In this video we are going to continue to cover the following MS Access VBA Control Event:
NotInList
We will also look at the Open Event Arguments of a Form.
This is part 3 of a 3 part video series.
The NotInList Event of the combo box:
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
The code for “frmAddBookTitle”
Option Compare Database
Private Sub btnCancel_Click()
DoCmd.Close
End Sub
Private Sub btnOK_Click()
Me.Visible = False
End Sub
Private Sub Form_Load()
If Len(Me.OpenArgs) <> 0 Then
Me.txtBookTitle = Me.OpenArgs
End If
End Sub
<< MS Access VBA Control Events – PT2 | MS Access Form Objects – PT1 >>
How To Parse A Flat File In Excel VBA
In another post I demonstrated how to access a file on your computer using the MS Office Library. Here it is if you don’t know what I’m talking about. In this post, I am going to show you how to access the file and load it into your spreadsheet. I will do the same thing […]
How to pick a file to load In VBA
Picking a file to load in your Microsoft App is a very important skill to know. In this blog post you will see how to do it. First you need to set a reference to the MS office object library From VBE editor –> select Tools > MS office object library (click check mark) Sub […]
What is the purpose of the Me keyword in Access VBA?
What does the Me keyword mean? “Me” refers to the Access form currently in focus. Instead of writing out the entire form reference, you can just use the keyword “Me” which is easier. Like: Me.txtbox = “I am a textbox on the form that currently has the focus.” or you can update a label’s caption […]
How do I handle errors in Access VBA code?
I am going to give you the answer to “How do I handle errors in Access VBA code?” In my opinion there are 2 ways to handle errors: 1. Avoid the potential for an error to occur. 2. Handle the error in your code. Number 1 – If you have a control on your form […]