Set Temp Var - VBA code

[tihmir]

Hi all.
I have a Macro Bilder on the command button "X". The Macro is:

SetTempVar
Name temVarCityID
Expressen = [ cboCity]
OpenForm
Form name fmControl
View Form
Where Condition = [ CityID]=[TempVars]![temVarCityID]


I need to add and "If cboCity is Null then message "Plesase, choose City"


So, I want to this in VBA code. Please, how to do it?

 

[pbaldy]

If Len(Me.cboCity & vbNullString) = 0 Then
  MsgBox "Please..."
Else
  DoCmd.OpenForm...
End If

http://www.baldyweb.com/wherecondition.htm

 

[tihmir]

If Len(Me.cboCity & vbNullString) = 0 Then
  MsgBox "Please..."
Else
  DoCmd.OpenForm...
End If

http://www.baldyweb.com/wherecondition.htm

Thanks you, but I want to write in vba all this:


SetTempVar
Name temVarCityID
Expressen = [ cboCity]
OpenForm
Form name fmControl
View Form
Where Condition = [ CityID]=[TempVars]![temVarCityID]

 

[pbaldy]

I wouldn't bother with the TempVar, unless it's needed elsewhere. I gave you a link with the code to open the form with a filter applied.

 

[tihmir]

I wouldn't bother with the TempVar, unless it's needed elsewhere. I gave you a link with the code to open the form with a filter applied.

Oh, sorry. I will try the code now!

 

[pbaldy]

Post back if you get stuck. Using the TempVar there was just adding unnecessary code to the process. You can refer directly to the combo, as shown in the link.

 

[tihmir]

If Len(Me.cboCity & vbNullString) = 0 Then
  MsgBox "Please..."
Else
  DoCmd.OpenForm...
End If

http://www.baldyweb.com/wherecondition.htm

Excellent! It's works perfectly! Thank you, pbaldy again!

 

[pbaldy]

Happy to help!