<div>
Try this:<br />
<br />
<br />

<pre><code id="code-20-37603400-1">Me.WRSSub.Form.Combo65.RowSource = &quot;select [hours id], [id2], [job number id], [Job Date], site, [Work Request Details], [total ot hrs], [total std hrs], callout from vvworksheetlookup where EngName=&quot; chr(34) &amp; Forms!frmdatabaselogin!cboStaffMember &amp; CHR(34</code></pre>
</div>


Try this:




Me.WRSSub.Form.Combo65.RowSource = "select [hours id], [id2], [job number id], [Job Date], site, [Work Request Details], [total ot hrs], [total std hrs], callout from vvworksheetlookup where EngName=" chr(34) & Forms!frmdatabaselogin!cboStaffMember & CHR(34

<div>
mbizup<br />
<br />
Your code finished at the final CHR(34<br />
<br />
I've tried ) and ) &amp;, but keep getting expected end of statement error at the first CHR
</div>


mbizup

Your code finished at the final CHR(34

I've tried ) and ) &, but keep getting expected end of statement error at the first CHR

<div>
<div class="content wysiwyg-content">
On a similar line to my previous post. The following code works fine except for our Mr D'Arcy.<br />
<br />
I have tried numerous permitations, but cnnot escape an errror message.<br />
<br />
Please can you help?<br />
<br />
Private Sub Form_Open(Cancel As Integer)<br />
Me.Filter = &quot;[Engname] =&quot; &amp;&nbsp;Chr(34) &amp;&nbsp;Forms!frmdatabaselogin!cbo<wbr />StaffMembe<wbr />r &amp;&nbsp;Chr(34) &amp;&nbsp;&quot;And [WE Date] &gt;= Now() - 3&quot;<br />
Me.FilterOn = True<br />
<br />
Me.WRSSub.Form.Combo65.Row<wbr />Source = &quot;select [hours id], [id2], [job number id], [Job Date], site, [Work Request Details], [total ot hrs], [total std hrs], callout from vvworksheetlookup where EngName='&quot; &amp;&nbsp;Forms!frmdatabaselogin!cbo<wbr />StaffMembe<wbr />r &amp;&nbsp;&quot;'&quot;<br />
End Sub
</div>
</div>


On a similar line to my previous post. The following code works fine except for our Mr D'Arcy.

I have tried numerous permitations, but cnnot escape an errror message.

Please can you help?

Private Sub Form_Open(Cancel As Integer)
Me.Filter = "[Engname] =" & Chr(34) & Forms!frmdatabaselogin!cboStaffMember & Chr(34) & "And [WE Date] >= Now() - 3"
Me.FilterOn = True

Me.WRSSub.Form.Combo65.RowSource = "select [hours id], [id2], [job number id], [Job Date], site, [Work Request Details], [total ot hrs], [total std hrs], callout from vvworksheetlookup where EngName='" & Forms!frmdatabaselogin!cboStaffMember & "'"
End Sub

&amp; Chr(34) syntax

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

Most development for the Microsoft platform is done utilizing the technologies supported by the.NET framework. Other development is done using Visual Basic for Applications (VBA) for programs like Access, Excel, Word and Outlook, with PowerShell for scripting, or with SQL for large databases.

&amp; Chr(34) syntax

& Chr(34) syntax