Private Sub Command35_Click()
Set rs = Me.Child33.Form.Recordset
MsgBox rs("AA")
Me.Child33.Requery
End Sub
Private Sub Form_Load()
Me.Child33.Form.AllowAdditions = False
End Sub
点击子窗体相应的行,再点击上面的命令按纽,重复多次操作,经常会出现以下错误
点击子窗体相应的行,再点击上面的命令按纽,重复多次操作= 为什么要这么做?子窗体有记录显示不就可以了吗?
张老师:我是不想利用右键删除子窗体的记录,想用一个命令按纽进行提示删除。按多次操作,是有些删除会失灵,会出现错误。但重新关闭窗体,再打开就可以了。只是,感觉有错误就不太完美。 如下是我想实际运用的代码。
DoCmd.SetWarnings False
Set rs1 = Child195.Form.Recordset
sql = "delete * from 顾客来访登记表 where id=" & rs1("id")
Dim X As Integer
X = MsgBox("您确定要删除表中的数据吗?姓名=" & rs1("姓名"), vbYesNoCancel, "提醒")
If X = 6 Then
DoCmd.RunSQL sql
Me.Child195.Requery
End If
DoCmd.SetWarnings False
总记录:2篇 页次:1/1 9 1 :