access连续窗体循环代码

飛謌　发表于：2018-06-13 17:39:38 　

选择更新后，循环刷新显示单价

1.窗体属性，允许添加设置为否报错。

2.能让单价循环之后光标移动到款额第一行吗？

现代码如下:

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 业主信息 SET 单价=null"
DoCmd.RunSQL "UPDATE 业主信息 SET 数量=null"
DoCmd.RunSQL "UPDATE 业主信息 SET 款额=null"
Me.业主信息_子窗体.Requery
Me.业主信息_子窗体.SetFocus

DoCmd.GoToRecord acActiveDataObject, , acFirst
Do Until IsNull(Me.[业主信息_子窗体]![收费项目])
Me.[业主信息_子窗体]![单价] = DLookup("单价", "单价", "收费项目='" & Me.[业主信息_子窗体]![收费项目] & "'")
DoCmd.GoToRecord acActiveDataObject, , acNext
Loop

点击下载此附件

Top

chinasa 发表于：2018-06-14 08:30:47

Dim Bend
On Error GoTo Err_XXXX
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 业主信息 SET 单价=null"
DoCmd.RunSQL "UPDATE 业主信息 SET 数量=null"
DoCmd.RunSQL "UPDATE 业主信息 SET 款额=null"
Me.业主信息_子窗体.Requery
Me.业主信息_子窗体.SetFocus
DoCmd.GoToRecord acActiveDataObject, , acFirst

Do Until IsNull(Me.[业主信息_子窗体]![收费项目])
Me.[业主信息_子窗体]![单价] = DLookup("单价", "单价", "收费项目='" & Me.[业主信息_子窗体]![收费项目] & "'")
If Bend = -1 Then Exit Do

DoCmd.GoToRecord acActiveDataObject, , acNext

Loop

DoCmd.GoToRecord acActiveDataObject, , acFirst
Me.业主信息_子窗体.SetFocus
Me.[业主信息_子窗体]!款额.SetFocus

Err_XXXX:
   If Err.Number = 2105 Then
   Bend = -1
   Resume Next
   End If

Top

飛謌发表于：2018-06-14 09:13:33

感谢回帖完美解决！

Top

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

Access交流中心

access连续窗体循环代码