Open form with where clause

[eacollie]

I'm getting a type mismatch error when trying to open a form:

Dim stDocName As String
stDocName = "frmReservations"
DoCmd.OpenForm stDocName, acNormal, , , "[RNOS] = " & 4730

The field [RNOS] is a long integer.

What am I doing wrong?
Thank you

 

[CJ_London]

looks to me like you have an extra comma so your where clause is being applied to the datamode parameter

 

[eacollie]

Thank you so much!

 

[eacollie]

If I'm using a SQL statement and saving the results into a string variable:

DIM param as string
DIM mySQL as string
Dim stdocname as string

stdocname = "frmReservations"
mySQL = "SELECT....."
param = Val(mySQL)

DoCmd.openform stdocname, , ,"[RNOS] = " & param

Get a 0 value for param. How do I load the correct long integer from the SQL statement into the variable to use to open the form?

Thank you!

 

[eacollie]

Think I figured it out...using DLookup instead of an SQL. Thank you

 

[MarkK]

Also, there's also no need to do that strDocName thing that the wizards write for you. Just put the name of the form in the open command, or use a constant, like...

   Const FN as string = "frmReservations"
   DoCmd.OpenForm FN

[COLOR="Green"]   ' or just...[/COLOR]
   DoCmd.OpenForm "frmReservations"

But this wizard code is just trashy....

Dim stDocName as string
stDocName = "frmReservations"

DoCmd.OpenForm stDocName

IMO
Mark