Visual Basic 6 & Access 2000

[Demon]

How do we point to a VB6 public variable from within a SELECT statement?

Set rsProfile = dbProfile.OpenRecordset("SELECT * FROM tblProfile WHERE ptrMenu = ptrCurrentMenu")

Both ptrMenu (primary key) and ptrCurrentMenu are defined as LONG, but it only works when I hardcode a 1 instead of ptrCurrentMenu.

Robert


EDIT: Found it in Programmer's Heaven, thanks Steve: ("SELECT * FROM tblProfile WHERE ptrMenu = " & ptrCurrentMenu)

[Demon]

I would have expected this IF statement to trap a Null, but apparently it doesn't work that way. The execution fell right down to the ELSE and executes the next statement. Any idea how to do make it work?

Robert

[keithdoxey]

I would have expected this IF statement to trap a Null, but apparently it doesn't work that way. The execution fell right down to the ELSE and executes the next statement. Any idea how to do make it work?

Robert

Try "vbNull" instead. (Cant test as I dont have VB on this machine!)

[Luciano]

Hi,

Use the Visual Basic function IsNull().

Best regards,

Luciano

[Demon]

Thank you!

Robert

[Demon]

-----------------------------------------------------
Dim ptrProfile as Long

Dim dbProfile As Database
Set dbProfile = OpenDatabase(strPath & "\" & strFilename)
Dim rsProfile As Recordset
Set rsProfile = dbProfile.OpenRecordset("tblProfile")

rsProfile.AddNew
rsProfile!Description = "bla bla bla"
rsProfile.Update

ptrProfile = rsProfile!ptrMenu <-- Primary key, Autonum
-----------------------------------------------------

According to one of my Access books this should place the new key into ptrProfile but it doesn't.

Am I supposed to set special parameters for update? Like UpdateNow or something like that? I see references to Cursor Types and Record Locks but I can't figure how to use them.

Robert

[Luciano]

Hi,

Try that.

Best regards,

Luciano

rsProfile.AddNew
rsProfile!Description = "bla bla bla"
ptrProfile = rsProfile!ptrMenu 
rsProfile.Update