Error 2001

  • Thread starter Thread starter Brad
  • Start date Start date
B

Brad

Can someone please help me i get an error 2001 when i run the following code

Dim Space As String
Dim Char As String
Dim SelectStatement As String

SelectStatement = "SELECT tblPagerTracking.AUDRECID,
tblPagerTracking.PagerID, tblPagerTracking.[Pager ESN], [First Name] & '" &
Space & "' & [Last Name] AS [Modified By Full Name], tblPagerTracking.ESO,
tblPagerTracking.Timestamp, tblPagerTracking.GroupMembership,
tblPagerTracking.PersonalCapcode, tblPagerTracking.PersonalPagingNumber,
tblPagerTracking.Capcodes, tblPagerTracking.user_id,"

Char = "''*''"
Space = " "

If (Me.txtESN <> "" And Me.txtFirstname <> "" And Me.txtLastname <> "") Then

Error Occurs Here -> Me.RecordSource = SelectStatement & "
tbl_pager_tracking_user.first_name, tbl_pager_tracking_user.last_name,
[First_Name] & '" & Space & "' & [Last_Name] AS [User Full Name],
tbl_pager_tracking_user.user_text FROM tblPagerTracking LEFT JOIN
tbl_pager_tracking_user ON tblPagerTracking.user_id =
tbl_pager_tracking_user.id WHERE (((tblPagerTracking.[Pager ESN]) =
[Forms]![frmPagerTracking]![txtESN]) And
((tbl_pager_tracking_user.First_Name) like " & Char & " &
[Forms]![frmPagerTracking]![txtFirstname]& " & Char & ") And
((tbl_pager_tracking_user.Last_Name) like " & Char & " &
[Forms]![frmPagerTracking]![txtlastname]& " & Char & " ));"
Me.Requery
Exit Sub

End if

Regards Brad
 
Well, not sure if this is your whole trouble, but you can't use reserved
words as variables -

Char
Space

are both Access Reserved Words so change them to

Dim strChar As String
Dim strSpace As String

strChar = "'*'"
strSpace = " "

if you are going to use those.
--
Bob Larson
Access World Forums Administrator

Tutorials at http://www.btabdevelopment.com

__________________________________
 
ok thanks for your help i will give it a go

boblarson said:
Well, not sure if this is your whole trouble, but you can't use reserved
words as variables -

Char
Space

are both Access Reserved Words so change them to

Dim strChar As String
Dim strSpace As String

strChar = "'*'"
strSpace = " "

if you are going to use those.
--
Bob Larson
Access World Forums Administrator

Tutorials at http://www.btabdevelopment.com

__________________________________


Brad said:
Can someone please help me i get an error 2001 when i run the following code

Dim Space As String
Dim Char As String
Dim SelectStatement As String

SelectStatement = "SELECT tblPagerTracking.AUDRECID,
tblPagerTracking.PagerID, tblPagerTracking.[Pager ESN], [First Name] & '" &
Space & "' & [Last Name] AS [Modified By Full Name], tblPagerTracking.ESO,
tblPagerTracking.Timestamp, tblPagerTracking.GroupMembership,
tblPagerTracking.PersonalCapcode, tblPagerTracking.PersonalPagingNumber,
tblPagerTracking.Capcodes, tblPagerTracking.user_id,"

Char = "''*''"
Space = " "

If (Me.txtESN <> "" And Me.txtFirstname <> "" And Me.txtLastname <> "") Then

Error Occurs Here -> Me.RecordSource = SelectStatement & "
tbl_pager_tracking_user.first_name, tbl_pager_tracking_user.last_name,
[First_Name] & '" & Space & "' & [Last_Name] AS [User Full Name],
tbl_pager_tracking_user.user_text FROM tblPagerTracking LEFT JOIN
tbl_pager_tracking_user ON tblPagerTracking.user_id =
tbl_pager_tracking_user.id WHERE (((tblPagerTracking.[Pager ESN]) =
[Forms]![frmPagerTracking]![txtESN]) And
((tbl_pager_tracking_user.First_Name) like " & Char & " &
[Forms]![frmPagerTracking]![txtFirstname]& " & Char & ") And
((tbl_pager_tracking_user.Last_Name) like " & Char & " &
[Forms]![frmPagerTracking]![txtlastname]& " & Char & " ));"
Me.Requery
Exit Sub

End if

Regards Brad
Click to expand...
Click to expand...
 
Back
Top