Ein Klick-Befehl und kein Hinzufügen von Text bei leerem Textfeld

Question

Ein Klicken Ich möchte, dass meine Schaltfläche keinen Text hinzufügt, wenn me.txtAddNote leer ist und eine Meldung angezeigt wird, die den Benutzer auffordert, Text einzugeben oder abzubrechen. Und wenn ich.txtAddNote Text hat, möchte ich den On Click um den Text einzugeben. Zur Zeit fügt mein Code Text unter beiden Bedingungen hinzu und noch bevor die msgbox erscheint. Jede Hilfe wird geschätzt, danke.

Private Sub cmdAddNote_Click() 
Dim LName As String 
On Error Resume Next 
LName = DLookup("[LNAME]", "[qryEmpDepDes]", "[EMP_NO]='" & Me.txtUserID & "'") 
[NOTES] = Date & ": " & Me.txtAddNote & " (" & Me.txtUserID & " " & LName & ")" & vbNewLine & vbNewLine & [NOTES] 
Me.txtAddNote = "" 
Me.cmdAddNote.Enabled = True 
Me.cmdClose.Enabled = True 
Me.cmdClose.SetFocus 
'5-16-2016 testing blank text box' 
    If Me.txtAddNote = "" Then 
If MsgBox("No text is entered. Hit OK to enter text. Hit CANCEL to close out.", vbOKCancel) = vbOK Then 
    End If 
Else 
    DoCmd.Close 
End If 

End Sub

Answer 1

Versuchen Sie, den Inhalt von txtAddNote Überprüfung vor irgendetwas anderes?

Private Sub cmdAddNote_Click() 
Dim LName As String 

If Me.txtAddNote.Text = "" Then 
    response = MsgBox("No text is entered. Hit OK to enter text. Hit CANCEL to close out.", vbOKCancel) 
    If response = vbOK Then 
     ' do whatever you needed 
    Else 
     Exit Sub ' Exit the sub if Cancel was clicked 
    End If 
End If 

On Error Resume Next 
LName = DLookup("[LNAME]", "[qryEmpDepDes]", "[EMP_NO]='" & Me.txtUserID & "'") 
[NOTES] = Date & ": " & Me.txtAddNote & " (" & Me.txtUserID & " " & LName & ")" & vbNewLine & vbNewLine & [NOTES] 
Me.txtAddNote = "" 
Me.cmdAddNote.Enabled = True 
Me.cmdClose.Enabled = True 
Me.cmdClose.SetFocus 

DoCmd.Close 

End Sub