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)
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Expert of the Year award recognizes an expert who helped improve Experts Exchange in the past year through high levels of contributions and participation on site. This award is given to the expert who has achieved the highest levels of participation, while maintaining quality contributions and professionalism.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.