<div>
And for readability I might format the query this way in the code. 
 

<pre><code class="code-10 nolinks" id="code-20-42372922-1">SQL_Update_Appt_Qry = &quot;UPDATE clientinfo &quot; &amp; _
 &quot; INNER JOIN tblappointments &quot; &amp; _
 &quot; ON clientinfo.clientid = tblappointments.clientid_fk &quot; &amp; _
 &quot;SET tblappointments.displayname = [clientinfo]![displayname], &quot; &amp; _
 &quot; tblappointments.primaryclientname_c = [clientinfo]![primaryclientname_c], &quot; &amp; _
 &quot; tblappointments.displaynamem = [clientinfo]![displaynamem], &quot; &amp; _
 &quot; tblappointments.displaynamepc = [clientinfo]![displaynamepc], &quot; &amp; _
 &quot; tblappointments.displaynamefm = [clientinfo]![displaynamefm], &quot; &amp; _
 &quot; tblappointments.maritalstatus = [clientinfo]![maritalstatus], &quot; &amp; _
 &quot; tblappointments.familymember_c = [clientinfo]![familymember_c] &quot; &amp; _
 &quot;WHERE tblappointments.rigacct = &quot; &amp; PriAcct &amp; &quot;'&quot;
</code></pre>
<hr />
»bp
</div>

<div>
adding on ... 
this: 
Dim PriAcct, FamAcct As String 
is dimensioning PriAcct as a variant, not a string -- As String needs to be specified each time 
... is that the data type? or is it a number? 
 
&gt;&nbsp; &quot;&nbsp;WHERE (((tblAppointments.RIGAcct)= PriAcct))&quot; 
 
inside the SQL string, PriAcct cannot be determined. &nbsp;Its value was gotten with VBA and needs to be inserted into the SQL*. When that happens, the value needs delimiters around it if it is not a number. &nbsp;Strings use ' or &quot;&nbsp;to delimit (mark beginning and end). 
 
if PriAcct is a number, delimiters will not be needed -- Bill gave you examples for each case (string and number -- data type). Just because InputBox always returns a string does not mean that only a string can be handled. If the return value is assigned to a variable with a specified data type, Access will implicitly do the conversion 
 
* there are other ways to get the value into the query such as setting a database property or global variable and having the query use a wrapper function to get it 
 
~~~ 
better to use 
CurrentDb.Execute SQL_Update_Appt_Qry 
than 
DoCmd.RunSQL SQL_Update_Appt_Qry 
 
performance is better and no need to worry about warnings and echo ;) 
 
if CurrentDb will be used more than once in a procedure, it is also a good idea to: 
 

<pre><code class="code-1 nolinks" id="code-20-42372924-1"> 'dimension database object variable
 dim db as dao.database
 'set database object variable to current database
 set db = CurrentDb
 'execute SQL statement
 db.Execute strSQL 
 ' ... more code ...
 'release database object variable
 set db = nothing
</code></pre>
 
have an awesome day, 
crystal
</div>

<div>
Hi, 
 
If I can add mygrain of sand: 
Concatenate string variables with queries have issues, especially if the variable contain a quotes, double quotes or a mix a single quotes and double quotes. 
 
Let's say you have a table representing books, with an ID, an ISBN and a TITLE column. 
What will you do if the user provide as title: Tom Clancy's &quot;Splinter cell&quot; ? 
You could replace double quotes by single quotes, but the user expect retrieving the same title he entered earlyer. 
 
The solution is to use a parameterised query (the query builder is of great help here): 
- Write your query 
- Create a query def 
- Provide parameters 
- Run the query def 
- Destroy the query def 
 
In code, it can look like Something like this:
<pre><code class="code-10 nolinks" id="code-20-42373140-1">Public Sub test()
On Error GoTo Error
 Dim strSQL As String
 Dim db As DAO.database
 Dim qd As DAO.QueryDef
 
 '// define the query with parameters
 strSQL = vbNullString
 strSQL = strSQL &amp; &quot;PARAMETERS p_ISBN Text (255),&quot; &amp; vbCrLf
 strSQL = strSQL &amp; &quot; p_Title Text (255);&quot; &amp; vbCrLf
 strSQL = strSQL &amp; &quot;INSERT INTO Book (ISBN,&quot; &amp; vbCrLf
 strSQL = strSQL &amp; &quot; Title)&quot; &amp; vbCrLf
 strSQL = strSQL &amp; &quot;VALUES ([p_ISBN],&quot; &amp; vbCrLf
 strSQL = strSQL &amp; &quot; [p_Title]);&quot;

 Set db = CurrentDb
 '// create a temporary query def
 Set qd = db.CreateQueryDef(&quot;tempQd&quot;, strSQL)
 '// provide parameters
 qd.Parameters(&quot;p_ISBN&quot;).value = &quot;978-2-8688-9006-1&quot;
 qd.Parameters(&quot;p_Title&quot;).value = &quot;Tom Clancy's &quot;&quot;Splinter cell&quot;&quot;&quot;
 '// run the query def
 qd.Execute dbFailOnError
 '// destroy the querydef
 qd.Close
 db.QueryDefs.Delete qd.name
 '// cleanup
 Set qd = Nothing
 Set db = Nothing
Exit Sub
Error:
 '// cleanup
 If Not (qd Is Nothing) Then
 qd.Close
 db.QueryDefs.Delete qd.name
 Set qd = Nothing
 End If
 If Not (db Is Nothing) Then
 Set db = Nothing
 End If
 '// display the error (or raise it)
 MsgBox Err.Description
End Sub
</code></pre>
</div>

<div>
<div class="content wysiwyg-content">
Here is the code. 
Dim PriAcct, FamAcct As String 
&nbsp; &nbsp; ' 
&nbsp; &nbsp; ' Get the data 
&nbsp; &nbsp; ' 
&nbsp; &nbsp; PriAcct = InputBox(&quot;ENTER THE PRIMARY ACCOUNT:&quot;, &quot;PRIMARY ACCOUNT INPUT BOX&quot;) 
&nbsp; &nbsp; ' 
&nbsp; &nbsp; ' Check to see if any data was entered 
&nbsp; &nbsp; ' 
&nbsp; &nbsp; If PriAcct &lt;&gt;&nbsp;&quot;&quot; Then 
&nbsp; &nbsp; &nbsp; &nbsp; ' 
&nbsp; &nbsp; &nbsp; &nbsp; ' Run the table updates 
&nbsp; &nbsp; &nbsp; &nbsp; ' 
&nbsp; &nbsp; &nbsp; &nbsp; SQL_Update_Appt_Qry = &quot;UPDATE ClientInfo INNER JOIN tblAppointments ON ClientInfo.ClientID = tblAppointments.ClientID_FK SET tblAppointments.DisplayName = [ClientInfo]![DisplayName], tblAppointments.PrimaryClientName_C = [ClientInfo]![PrimaryClientName_C], &quot;&nbsp;&amp; _ 
&nbsp; &nbsp; &nbsp; &nbsp; &quot;&nbsp;tblAppointments.DisplayNameM = [ClientInfo]![DisplayNameM], tblAppointments.DisplayNamePC = [ClientInfo]![DisplayNamePC], tblAppointments.DisplayNameFM = [ClientInfo]![DisplayNameFM], tblAppointments.MaritalStatus = [ClientInfo]![MaritalStatus], tblAppointments.FamilyMember_C = [ClientInfo]![FamilyMember_C] &quot;&nbsp;&amp; _ 
&nbsp; &nbsp; &nbsp; &nbsp; &quot;&nbsp;WHERE (((tblAppointments.RIGAcct)= PriAcct))&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; DoCmd.RunSQL SQL_Update_Appt_Qry 
 
This is giving me a syntax error (missing operator)
</div>
</div>

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)

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

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.