MS Access VBA Control Events – PT3

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 >>




By the way, if you got or are getting value from the VBA information, please click the "Donate" button to give me a small token of your appreciation, thanks!


These posts may help answer your question too...

How to Delete Blank Rows in Excel Using VBA (Step-by-Step Guide)

How to Delete Blank Rows in Excel Using VBA (Step-by-Step Guide) When you work with large datasets in Excel, it’s common to end up with thousands of blank rows scattered throughout your worksheet. Maybe your data came from a mainframe export, a CSV download, or a legacy system that doesn’t format properly. Deleting all those […]

How to Copy Data from One Worksheet to Another Using VBA in Excel

Learn how to copy data between worksheets in Excel using VBA step-by-step! This quick tutorial shows how to automate data movement, save time, and boost productivity. Watch: How to Copy Data from One Worksheet to Another Using VBA Why Automate Copying Data Between Worksheets? Copying and pasting data manually can take up valuable time and […]

Learn Access VBA: Understand Tables, Queries, Forms, and Reports

Learn Access VBA: From Zero to Database Hero If you’ve ever opened Microsoft Access and wondered how all the pieces fit together — tables, queries, forms, and reports — this tutorial is made for you. In just a few minutes, you’ll understand how Access works behind the scenes and see how VBA (Visual Basic for […]

How to Fix Run Time Error 1004 in Excel

If you work with Microsoft Excel frequently, chances ar ling for a solution. Fortunately, this error is well-documented, and there are several ways to resolve it. In this article, we’ll explore the causes of run time error 1004, practical steps to fix it, and preventive measures to reduce the chances of it happening again. What […]


Support these sponsors:
Previous Post

MS ACCESS FORM OBJECTS – PT1

Next Post

MS Access VBA Control Events – PT2

Leave a Reply

Your email address will not be published. Required fields are marked *