主题：窗口按钮代码

窗口代码问题：
窗口“铣床日报表修改”有一组合框控件“最后修改”，绑定某表的某列，其控件TextChanged代码为：
e.Sender.WriteValue()


有一按钮“修改”，单击按钮代码为：
With Forms("铣床日报表修改").Controls("最后修改")
        .Value = Tables("登陆")(0)("用户名")& " " & now
End With
Tables("日报表").Current.Locked = True '锁定行
Forms("铣床日报表修改").Close() '关闭窗口
Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick() '保存
DataTables("日报表").AllowEdit = False

怎么能达到我的要求，但是会出现一些错误提示和与应该的行，正确的代码应该怎么写，要求是：
点修改按钮时，“最后修改”控件内容为Tables("登陆")(0)("用户名")& " " & now，即当前登录用户名+当前日期和时间，并填写在绑定表的绑定列。
谢谢各位了。