MS Access VBA Control Events – PT2
by admin on Wednesday, October 14th, 2020 | No Comments
In this video we are going to cover the following MS Access VBA Control Events:
AfterUpdate
BeforeUpdate
NotInList
This is part 2 of a 3 part video series.
Private Sub cboBookTitles_NotInList(NewData As String, Response As Integer) Dim strMsg As String Dim strForm As String strForm = "frmAddBookTitle" strMsg = "Sorry, '" & NewData & "' is not a current book title. Would you like to add it?" Select Case MsgBox(strMsg, vbYesNo, "Add Book?") Case vbYes 'NewData is the data entered into the combo box DoCmd.OpenForm strForm, , , , acFormAdd, acDialog, NewData 'Suppress the Access error message Response = acDataErrAdded DoCmd.Close acForm, strForm Case vbNo MsgBox "You must select an item from the list or add a new one.", vbExclamation, "Information" 'Return the Access error message Response = acDataErrContinue End Select End Sub Private Sub txtAddress_AfterUpdate() MsgBox "Change was completed" End Sub Private Sub txtAddress_BeforeUpdate(Cancel As Integer) If MsgBox("Save Changes?", vbYesNo) = vbNo Then Cancel = True MsgBox "Change will not be saved." End If End Sub
<< MS Access VBA Control Events – PT1 | MS Access VBA Control Events – PT3 >>