请老师帮我修改一下

林小兵　发表于：2009-05-19 18:06:36 　

那个老师帮我做一下

在窗体中设一个命令按钮

当点击命令按钮时弹出“是”、“否”、“取消”文本框

当点击“是”时施行下面代码如“Me.编号 = .Form.编号”

当点击“否”时施行下面代码如“Me.编号 = .Form.备注”

当点击“取消”时关闭文本框

请在下列代码中加入

Sub AddDataToMain()

With Me.进货明细表临时子窗体102

Me.编号 = .Form.编号

LsBh = Me.编号

.Requery

End With

End Sub

chinasa 发表于：2018-03-22 08:07:59

Dim 提示信息
提示信息 = MsgBox("在这里写提示文本", 3)

If 提示信息 = 6 Then
MsgBox "你选择了是"
'Me.编号 = .Form.编号
End If

If 提示信息 = 7 Then
MsgBox "你选择了否"
End If

If 提示信息 = 2 Then
MsgBox "你选择了取消"
End If

总记录：1篇页次：1/1 9 1 :

Access交流中心