Open form with where clause (1 Viewer)

eacollie · Apr 17, 2018

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

Code:

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 · Apr 17, 2018

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

eacollie · Apr 17, 2018

Thank you so much!

eacollie · Apr 17, 2018

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

Code:

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 · Apr 17, 2018

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

MarkK · Apr 17, 2018

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...

Code:

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

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

But this wizard code is just trashy....

Code:

Dim stDocName as string
stDocName = "frmReservations"

DoCmd.OpenForm stDocName

IMO
Mark

Open form with where clause (1 Viewer)

eacollie

Registered User.

CJ_London

Super Moderator

eacollie

Registered User.

eacollie

Registered User.

eacollie

Registered User.

MarkK

bit cruncher

Similar threads

Users who are viewing this thread