Public strUserName As String
窗体1中有一文本框:收款人在代码中设为 Me!收款人.Value = strUserName
Dim sql As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
sql = "update 电视业务发票 set 总金额=" & Me.总金额 & ",收款人=StruserName where 发票号码='" & Me.发票号码 & "'"
DoCmd.RunSQL sql