Avatar of VGuerra67
VGuerra67

asked on 

trying to run vba code that will use a value from an input box in a query

Here is the code.
Dim PriAcct, FamAcct As String
    '
    ' Get the data
    '
    PriAcct = InputBox("ENTER THE PRIMARY ACCOUNT:", "PRIMARY ACCOUNT INPUT BOX")
    '
    ' Check to see if any data was entered
    '
    If PriAcct <> "" Then
        '
        ' Run the table updates
        '
        SQL_Update_Appt_Qry = "UPDATE ClientInfo INNER JOIN tblAppointments ON ClientInfo.ClientID = tblAppointments.ClientID_FK SET tblAppointments.DisplayName = [ClientInfo]![DisplayName], tblAppointments.PrimaryClientName_C = [ClientInfo]![PrimaryClientName_C], " & _
        " tblAppointments.DisplayNameM = [ClientInfo]![DisplayNameM], tblAppointments.DisplayNamePC = [ClientInfo]![DisplayNamePC], tblAppointments.DisplayNameFM = [ClientInfo]![DisplayNameFM], tblAppointments.MaritalStatus = [ClientInfo]![MaritalStatus], tblAppointments.FamilyMember_C = [ClientInfo]![FamilyMember_C] " & _
        " WHERE (((tblAppointments.RIGAcct)= PriAcct))"
        DoCmd.RunSQL SQL_Update_Appt_Qry

This is giving me a syntax error (missing operator)
Microsoft AccessVBA

Avatar of undefined
Last Comment
Fabrice Lambert

8/22/2022 - Mon