If statement error

[waq963]

Hi, I have the following code below bet it comes up with a '424' error object required. I cant see what is wrong with the code. I have declared and set the recordset aswel. Any Ideas?

Code:
If rstP("V") Is Not Null Then
txtV.Value = DLookup("V", "tblP", "ID =""" & Forms![frmP]!cboP & """")
ElseIf rstP("W") Is Not Null Then
txtV.Value = DLookup("W", "tblP", "ID =""" & Forms![frmP]!cboP & """")
End If

 

[Dennisk]

you seem to have far to many quotes and to test for null in use the following recommended technique

IF Not IsNull(rstP("V") ) then
is not null is only used in queries.

If you want to substitute the contents of a combo box (or text control) then use a single quote

txtV.Value = DLookup("V", "tblP", "ID ='" & Forms![frmP]!cboP & '")

 

[pbaldy]

You didn't say what line threw the error, but try

If Not IsNull(rstP("V")) Then

 

[waq963]

Cheers guys it works perfectly now.