这个函数应怎样写

半夜罗　发表于：2017-03-20 17:53:00 　

在实际中遇到这样的问题，在子窗体没有任何记录时，金宇先生的“检查子窗体必填项函数”会直接通过，经过实际应用，如果在该过程前进行一次“子窗体没有记录时”的处理，则完全没有问题。这样的情况在一个系统中有好几个，所以想把下面这段代码写成公共代码的，使其所有类似窗体都能共用。

'检查子窗体无数据，必须，否则【子窗体必填项】会直接通过
If Forms!成本表_编辑!子窗体.Form.RecordsetClone.RecordCount = 0 Then '检查子窗体有无记录
MsgBox "没有明细数据!", vbCritical, "提示"
Forms!成本表_编辑.SetFocus '焦点控制
Forms!成本表_编辑!子窗体.SetFocus '焦点控制
Exit Sub
End If
试了很多次无结果，请教各位大神，应怎样写与怎样引用？

Top

半夜罗发表于：2017-03-21 11:16:33

用下面这段代码能有一定的效果，但不完善。

Public Function a子窗体无记录(rform As Form) As Boolean

'调用：用这个完善记录后不能进入下一程序：If a子窗体无记录(Me) = False Then Exit Sub
'调用：用这个，没有完善记录也能进入下一程序：Call a子窗体无记录(Me)
On Error GoTo Ziduantf_err
Dim Ctl As Control
For Each Ctl In rform.Controls '应用中可更改对应的窗体名
If Ctl.ControlType = acSubform Then '子窗体控件
If Ctl.Form.RecordsetClone.RecordCount = 0 Then
a子窗体无记录 = False
Ctl.SetFocus '获得焦点
MsgBox "没有明细数据!请检查！", vbCritical, "提示"
Exit Function
End If
End If
Next
Ziduantf_exit:
Exit Function
Ziduantf_err:
Resume Next

End Function

用（If a子窗体无记录(Me) = False Then Exit Sub）这个方法调用时，完善记录后虽没有提示了，但不能进入下一程序，请各大能帮助下。

Top

MDZZ 发表于：2017-03-21 12:26:42

Public Function a子窗体无记录(rform) As Boolean
'调用：：If a子窗体无记录(Me) = False Then Exit Sub

On Error GoTo Ziduantf_err
Dim Ctl As Control
a子窗体无记录 = True
For Each Ctl In rform.Controls '应用中可更改对应的窗体名
If Ctl.ControlType = acSubform Then '子窗体控件

If Ctl.Form.RecordsetClone.RecordCount = 0 Then
a子窗体无记录 = False

Ctl.SetFocus '获得焦点
MsgBox "没有明细数据!请检查！", vbCritical, "提示"
Exit Function
End If
End If
Next
Ziduantf_exit:
Exit Function
Ziduantf_err:
Resume Next

End Function

或者

Public Function a子窗体无记录(rform) As Boolean
'调用：：If a子窗体无记录(Me) = true Then Exit Sub

On Error GoTo Ziduantf_err
Dim Ctl As Control

For Each Ctl In rform.Controls '应用中可更改对应的窗体名

If Ctl.ControlType = acSubform Then '子窗体控件

If Ctl.Form.RecordsetClone.RecordCount = 0 Then
a子窗体无记录 =true

Ctl.SetFocus '获得焦点
MsgBox "没有明细数据!请检查！", vbCritical, "提示"
Exit Function
End If
End If
Next
Ziduantf_exit:
Exit Function
Ziduantf_err:
Resume Next

End Function

Top

半夜罗发表于：2017-03-21 14:56:18

点击下载此附件谢谢MDDZ老师！非常感谢！此例有一定的代表性，所以上传了附件，以供其他爱好者研究，完善。

Top

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

Access交流中心

这个函数应怎样写