[求助]如何修改窗体命令按钮代码？

awfusr · 发表于 2008-3-27 22:19

[求助]如何修改下面的窗体命令按钮代码，使指针移动到刚插入的空记录?

Private Sub cmdInset_Click()
Dim orderid As Long
orderid = Me.orderid.Value

    DoCmd.SetWarnings False
    DoCmd.RunSQL "update table1 set orderid = orderid+1 where orderid >=" & Str(orderid)
    DoCmd.RunSQL "insert into table1 (orderid) values(" & Str(orderid) & ")"
    DoCmd.SetWarnings True

    Me.Requery


End Sub

附件:

yd7U3xBq.rar (10.72 KB, 下载次数: 19)

[此贴子已经被作者于2008-3-28 21:27:38编辑过]

awfusr · 发表于 2008-3-29 08:57

请各位高手帮帮忙啊！！

		自动登录	找回密码
密码			免费注册

[求助]如何修改窗体命令按钮代码？

浏览过的版块