laoding name from combo box to report

  • Thread starter Thread starter jln via AccessMonster.com
  • Start date Start date
J

jln via AccessMonster.com

Ok here is what im trying to do is

Dim strwhere as string
Dim stDocName as string


If Not IsNull(Me.combo27) Then
strWhere = strWhere & "[Assigned To]=" & Me.Me.combo27
End If

DoCmd.OpenReport stDocName, acprint, , strWhere

Im getting a syntax error could someone help me out.
 
Is Assigned To a text field? If so, you need quotes around the value:

If Not IsNull(Me.combo27) Then
strWhere = strWhere & "[Assigned To]='" & Me.Me.combo27 & "'"
End If

Exagerated for clarity, that's

strWhere = strWhere & "[Assigned To]= ' " & Me.Me.combo27 & " ' "

If it's a name that could contain an apostrophe (O'Reilly), use:

strWhere = strWhere & "[Assigned To]= " & Chr$(34) & Me.Me.combo27 &
Chr$(34)
 
Douglas

Thanks that was just what i needed
Is Assigned To a text field? If so, you need quotes around the value:

If Not IsNull(Me.combo27) Then
strWhere = strWhere & "[Assigned To]='" & Me.Me.combo27 & "'"
End If

Exagerated for clarity, that's

strWhere = strWhere & "[Assigned To]= ' " & Me.Me.combo27 & " ' "

If it's a name that could contain an apostrophe (O'Reilly), use:

strWhere = strWhere & "[Assigned To]= " & Chr$(34) & Me.Me.combo27 &
Chr$(34)
Ok here is what im trying to do is
Click to expand...
[quoted text clipped - 8 lines]
Im getting a syntax error could someone help me out.
Click to expand...
Click to expand...
 
Back
Top