Visual Basic 6 & Access 2000

[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

[Demon]

Thanks.

I got the SendKeys sample from the Help file working nicely:

AppActivate Shell("calc.exe", 1)
For I = 1 To 100
SendKeys I & "{+}", True
Next I
SendKeys "=", True
SendKeys "%{F4}", True

How could I modify it so that I don't hardcode the executable? I'd like to be able to chose what running application gets focus.

Robert

[keithdoxey]

Have you tried something simple like

dim TargetAppName as String

.....


TargetAppName = "calc.exe"

.....

AppActivate Shell(TargetAppName, 1)