结合代码 [英] Combining Code
问题描述
我有一个带有以下代码的ADD按钮：
Private Sub addrec_Click（）
On Error GoTo Err_addrec_Click
DoCmd.GoToRecord ,, acNewRec
Exit_addrec_Click：
退出Sub
Err_addrec_Click：
MsgBox Err.Description
恢复Exit_addrec_Click
End Sub
我通过以下代码进行了一些验证：
Private Sub Form_BeforeUpdate（取消为整数）
>
Dim blnValidation As Boolean
Dim strValidate As String
strValidate ="这些项目未填写且是必需的： " &安培; vbCrLf& vbCrLf
如果是IsNull（Me.username）或Me.username =""然后
blnValidate = True
strValidate = strValidate& "用户名和QUOT; &安培; vbCrLf
结束如果
如果IsNull（Me.number）或Me.number =""然后
blnValidate = True
strValidate = strValidate& "号" &安培; vbCrLf
结束如果
如果blnValidate那么
MsgBox strValidate
取消=真
结束如果
结束子
问题......我如何结合这些代码并有一个ADD按钮，在更新任何内容之前会显示验证消息？
i似乎无法正确使用它？ somat总是出错？我不希望添加按钮添加任何内容，直到表单完成？
Hi,
I have got an ADD button with the following code:
Private Sub addrec_Click()
On Error GoTo Err_addrec_Click
DoCmd.GoToRecord , , acNewRec
Exit_addrec_Click:
Exit Sub
Err_addrec_Click:
MsgBox Err.Description
Resume Exit_addrec_Click
End Sub
and i have some validations through the following code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim blnValidation As Boolean
Dim strValidate As String
strValidate = "These item(s) were not filled out and are required:" & vbCrLf & vbCrLf
If IsNull(Me.username) Or Me.username = "" Then
blnValidate = True
strValidate = strValidate & "Username" & vbCrLf
End If
If IsNull(Me.number) Or Me.number = "" Then
blnValidate = True
strValidate = strValidate & "Number" & vbCrLf
End If
If blnValidate Then
MsgBox strValidate
Cancel = True
End If
End Sub
The question...... how do i combine these codes and have an ADD button that will show a validation message before updating anything??
i cant seem to get this right? somat always goes wrong? i do not want the add button to add anything until the form is complete?
推荐答案
谢谢Neo，
代码无效..............我试过以下....... ...我做错了什么？
[HTML] Private Sub addrec_Click（）
''验证检查
Dim blnValidation As Boolean
Dim strValidate As String
strValidate ="这些项目未填写o ut并且是必需的： &安培; vbCrLf& vbCrLf
如果是IsNull（Me.username）或Me.username =""然后
blnValidate = True
strValidate = strValidate& "用户名和QUOT; &安培; vbCrLf
结束如果
如果blnValidate那么
MsgBox strValidate
否则
''添加新记录
DoCmd.GoToRecord ,, acNewRec
结束如果
结束子[/ HTML]
any1有个想法??
any1 have an idea??
这篇关于结合代码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
