Validating changes to a form field

[Lykus]

I would like to be able to enter a value into a field that currently is in a null state without initiating an event but once a value has been assigned to that field that further changes will initiate an event that opens a message box that prompt the user to decide if they want to save the changes or not. Can someone help me with this?

[missinglinq]

This code will throw up a messagebox asking the user if they want to keep the info already input. If they answer Yes the cursor moves to the next field, if they answer No, the cursor returns to the field in question and the data is hilighted, ready to be replaced or simply deleted.

Private Sub YourTextBox_BeforeUpdate(Cancel As Integer)
If MsgBox("Are You Sure You Want To Keep   " & Me.YourTextBox & "   In This Field?", vbYesNo) = vbNo Then
 Cancel = True
 Me.YourTextBox.SelStart = 0
 Me.YourTextBox.SelLength = Len(Me.YourTextBox)
End If
End Sub

Welcome to TheScripts!

Linq ;0)>

[Lykus]

Thank you, missinglinq! This works great, however, I need to be able to circumvent the message box prompt if it is a new record. Someone just informed me that I could use the NewRecord property to do this. The code I was given looks something like this (the control in my example below is dtmDateAssnd):

Private Sub dtmDateAssnd_BeforeUpdate(Cancel As Integer)
 
        Dim strMsg As String
        Dim iResponse As Integer
 
        If Not (Me.NewRecord) Then  
 
        ' Specify the message to display.
        strMsg = "Do you wish to save the changes?" & Chr(10)
        strMsg = strMsg & "Click Yes to Save or No to Discard changes."
 
        ' Display the message box.
        iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?")
 
        ' Check the user's response.
        If iResponse = vbNo Then
            ' Undo the change.
            Me!dtmDateAssnd.Undo
 
            ' Cancel the update.
            Cancel = True
        End If
        End If
 
     End Sub