Error 3075 1

[Hargreavesk]

Hi,

Can anyone help?

I'm using the following code:

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb

Set rs = db.OpenRecordset("SELECT [Name] from [TBL ChequeDetails] where [TBL ChequeDetails].[Name]= " & (Me!Name))

Unfortunately, I'm getting an Error 3075 "Syntax error, missing operator. As I've been looking at this for a while and not been able to see anything wrong, please can someone help before i go blind?

Many thanks

Kate )

 

[JoanneM]

hello kate

Is this on a form or in a module before I go any further

regards
Jo

 

[Hargreavesk]

Jo,

Thanks for replying. The code I'm using is part of a search form. If I search for "Kate Hargreaves" in the field called "Name", I get this error.

Thanks

Kate

 

[Steve101]

Kate,

I suspect that the error is occuring because you are not enclosing the name in quotes; ie.

Change the line:

Set rs = db.OpenRecordset("SELECT [Name] from [TBL ChequeDetails] where [TBL ChequeDetails].[Name]= " & (Me!Name))

to:

Set rs = db.OpenRecordset("SELECT [Name] from [TBL ChequeDetails] where [TBL ChequeDetails].[Name]= '" & (Me!Name) & "'&quot

or better still, cut out some of the redundant stuff; ie:

Set rs = db.OpenRecordset("SELECT [Name] from TBL ChequeDetails where [Name]= '" & Me!Name & "'&quot

This should do the trick,
Cheers,
Steve

PS. This code will fail if you enter a name like O'Connor. Food for thought on how you'd deal with that situation.

 

[JoanneM]

Apologies Kate

We've just had a power cut and our leccy has just kicked in

Steve has given you the same answer that I was going to offer

Talk to you again soon

regards

jo

 

[Hargreavesk]

Steve,

Thanks for all your help. It works perfectly!!! I'll have a think about the names problem

Jo,

Sorry about your power but Thanks anyway.

Regards

Kate