在access 2007 中怎样实现按一个按钮弹出一个输入对话框,按确定就可以修改表中指定记录一个字段

就像在qq里修改备注那样
2024-12-04 05:50:12
推荐回答(1个)
回答1:

对于一般的用户来说,下面的语句完全够用了!只是弹出的对话框没有qq的这个绚丽。。
如果,我是说如果,你一定想要这么漂亮的界面:
那你需要做一个窗体,点按钮后弹出这个窗体;等点击确定按钮后,先隐藏这个窗体(以便获取你输入的内容),更新数据后再关闭这个窗体。。
呵呵,这个漂亮的代码我无法教你写了。还是酬和着用下面这个吧~~

把下面的代码复制到你说的按钮单击事件当中,即可实现单击按钮后弹出一个输入对话框,按确定就可以修改表中指定记录一个字段。。

'设定变量str等于弹出框的输入值
Dim str As String
str = InputBox("请输入备注姓名:", "添加备注姓名")
'如果变量str不是空字符串,则更新员工表姓名字段中张三对应的曾用名字段为变量str的值
'假如姓名张三来自窗体控件(以Text1为例),那么下面的条件应改为 WHERE 姓名='" & Text1 & "'"
If str <> "" Then
CurrentDb.Execute "UPDATE 员工表 SET 曾用名 ='" & str & "' WHERE 姓名='张三'"
End If