急啊！InputBox不会修改时间，求各位大虾帮忙看看啊~

哟哟　发表于：2011-06-22 09:41:06 　

小的不才，想用InputBox输入框修改“加入时间”，苦于悟不出代码该如何写，求各位大虾帮忙看看啊，急啊！（如现加入时间为2010，想通过InputBox输入框输入2011，确定，则表里的“加入时间”被改为2011）

谢谢了，附件如下：

王樵民发表于：2011-06-22 10:20:49

命令按钮的语句如下即可：

Private Sub Command2_Click()
Me.Query1subform.Form.加入时间 = Val(InputBox("请输入需要修改的时间："))
MsgBox "时间修改为" & Me.Query1subform.Form.加入时间, vbOKOnly, "提示"

End Sub

Top

王樵民发表于：2011-06-22 10:24:45

另外需要改变子窗体名称的属性，把Query1 subform中间的空格去掉，改成Query1subform

点击下载此附件

Top

哟哟发表于：2011-06-22 10:35:07

确实可以了，老师好厉害，可是这是单一修改的，大胆猜测能不能把这一列的同时通过InputBox输入的同时修改，不要单一的，是整列一起改，请教老师，不知道可不可以实现

Top

王樵民发表于：2011-06-22 10:51:57

将按钮代码修改一下即可：

Private Sub Command2_Click()
Dim sj
Dim s
sj = Val(InputBox("请输入需要修改的时间："))
q = MsgBox("需要将加入时间全部更改为：" & sj, vbOKCancel, "提示")
If q = 1 Then
s = "update Table1 set 加入时间=" & sj
DoCmd.RunSQL s
Else
Me.Query1subform.Form.加入时间 = sj
End If
Me.Query1subform.Form.Requery
End Sub

Top

王樵民发表于：2011-06-22 10:55:39

点击下载此附件

Private Sub Command2_Click()
Dim sj
Dim s
sj = Val(InputBox("请输入需要修改的时间："))
q = MsgBox("需要将加入时间全部更改为：" & sj, vbOKCancel, "提示")
If q = 1 Then '整列修改
s = "update Table1 set 加入时间=" & sj
DoCmd.RunSQL s
Else '只改当前记录
Me.Query1subform.Form.加入时间 = sj
End If
Me.Query1subform.Form.Requery
End Sub

Top

哟哟发表于：2011-06-22 10:59:38

问题解决，非常感谢老师

Top

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

Access交流中心

急啊！InputBox不会修改时间，求各位大虾帮忙看看啊~