Non alcoholic VBA

[skeeter23]

DoCmd.MixMeAdrink acDrink "Jack & Coke",True

Keeps returning an error of "Invalid Outside Procedure"

Damn I thought VBA could do anything. I guess not

 

[Beetle]

You're going about this completely the wrong way. You need an append query;

Dim PourMeADrink As string

PourMeADrink = "Insert Into Glass(Right, Now) Select Whiskey, Coke From Bottle Where Whiskey = 'Jack Daniels';"

CurrentDb.Execute PourMeADrink, dbPourMeAnotherOnError

 

[skeeter23]

Good point. I like your solution.

It probably also needs to be within the construct of an if else statement as well for supply outages

 

[Thales750]

Good point. I like your solution.

It probably also needs to be within the construct of an if else statement as well for supply outages

Not to mention,

If Blood Alcohol => .08% then

If Must Drive =True then
Go to Sleep
End If
End If
Exit Sub
Sleep:
Lie Down Now 'Hopefully with one of the pretties at the party that
' are like wise =>.08%