AddToCombo code from EE (Smart Combo Article) to Fill Multiple fields

Option Compare Database
Option Explicit

Public Function AddToCombo(addFormName As String, controlName As String, _
    NewData As String) As Integer

    ' Add a new record to a table by calling a form, and then
    ' requery the calling form. Designed to be called from
    ' NotInList event procedures
    '
    '   addFormName - the form to be opened to add a record
    '   controlName - the control on the add form that matches
    '       the displayed info in the calling combo box
    '   newData - the data as supplied by the calling combo box

    On Error GoTo HandleErr

    ' First, confirm the user really wants to enter a new record.
    If MsgBox("Add new value to List?", vbQuestion + vbYesNo, _
     "Warning") = vbNo Then
        AddToCombo = acDataErrContinue
        Exit Function
    End If

    ' Open up the data add form in dialog mode, feeding it
    ' the name of the control and data to use
    DoCmd.OpenForm FormName:=addFormName, _
     DataMode:=acAdd, _
     WindowMode:=acDialog, _
     OpenArgs:=controlName & ";" & NewData

    ' Before control returns to the calling form,
    ' tell it we've added the value
    AddToCombo = acDataErrAdded

ExitHere:
    Exit Function

HandleErr:
    MsgBox "Error " & Err.Number & ": " & Err.Description, , _
     "AddToCombo"
    Resume ExitHere
End Function

Public Function CheckOpenArgs(frm As Form)

    ' Designed to be called on loading a new form
    ' Checks the OpenArgs and if it finds a string of
    ' the form
    '   controlname;value
    ' loads that value into that control

    Dim controlName As String
    Dim controlValue As String
    Dim semiColonPosition As Integer

    On Error GoTo HandleErr

    If IsNull(frm.OpenArgs) Then
        Exit Function
    Else
        semiColonPosition = InStr(frm.OpenArgs, ";")
        
        ' Was there a semi-colon?
        If semiColonPosition > 0 Then
            controlName = Left(frm.OpenArgs, semiColonPosition - 1)
            controlValue = Mid(frm.OpenArgs, semiColonPosition + 1)
            ' Possibly this OpenArgs belongs to someone else
            ' and just looks like ours. Set the error handling
            ' to just ignore any errors on the next line.
            On Error Resume Next
            frm.Form(controlName) = controlValue
        End If
    End If
    
ExitHere:
    Exit Function
    
HandleErr:
    MsgBox "Error " & Err.Number & ": " & Err.Description, , _
        "CheckOpenArgs()"
    Resume ExitHere
End Function

Select allOpen in new window

Private Sub Form_Load()
   On Error GoTo Form_Load_Error
    
    CheckOpenArgs Me
    Me.DatasheetFontHeight = 9

   On Error GoTo 0
   Exit Sub

Form_Load_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Load of VBA Document Form_frmSchoolContacts_sub"
End Sub

Select allOpen in new window

Private Sub ContactRecID_NotInList(NewData As String, Response As Integer)

Dim Lastname As String
Dim FirstName As String

    Lastname = Left(NewData, InStr(NewData, ",") - 1)
    FirstName = Right(Trim([NewData]), Len(Trim([NewData])) - InStr(1, [NewData], " "))

   Response = AddToCombo( _
     "frmContactInfo", "Lname", Lastname)

    Response = AddToCombo( _
     "frmContactInfo", "Fname", FirstName)

End Sub

Select allOpen in new window