Too few parameters. Expected 1

[rmtiptoes]

I have the following code and I am receiving the error:

Too few parameters. Expected 1

I know its the delimeters and I have tried every combination around the fUser variable yet I always get this error. I have no idea what is wrong.


Private Sub Form_AfterUpdate()
Dim db As Database
Dim fUser As String
fUser = CurrentUser()

Set db = CurrentDb
db.Execute "INSERT INTO Building ([ID Number],[Lot],[Block],[User])" _
& " SELECT [ID Number],Lot,Block,"'& fUser & '" FROM City WHERE " _
& "[ID Number]=" & Me![ID Number]

Homer: But every time I learn something new, it pushes out something old! Remember that time I took a home wine-making course and forgot how to drive?
Marge Simpson: That's because you were drunk!
Homer: And how.

 

[RoyVidar]

Try:

[tt]db.Execute "INSERT INTO Building ([ID Number],[Lot],[Block],[User])" _
& " SELECT [ID Number],Lot,Block,'"& fUser & "' FROM City WHERE " _
& "[ID Number]=" & Me![ID Number][/tt]

But wouldn't this have thrown a compile error - do you use Option Explict? I gather ID Number is numeric, else it would also need single quotes.

Roy-Vidar

 

[rmtiptoes]

You guys are great, that worked and yet I thought I tried it. I have no Option Explicit and yes ID number is numeric.

thanks a million!!!

Homer: But every time I learn something new, it pushes out something old! Remember that time I took a home wine-making course and forgot how to drive?
Marge Simpson: That's because you were drunk!
Homer: And how.