compile error - expected expression

[Guest]

How do I need to change this to eliminate the complie error message?

varName = If Me.ActiveControl.Name = "TruckID" Then

Thanks!

 

[Guest]

If Me.ActiveControl.Name = "TruckID" Then
varName = [your value]
End If

Steve

 

[Carl Rapson]

How do I need to change this to eliminate the complie error message?

varName = If Me.ActiveControl.Name = "TruckID" Then

Thanks!

You can't set a variable equal to an If...Then expression. What are you
trying to do here?

Carl Rapson

 

[Guest]

What I need to do is call different forms based on the name of the active
control. This same code would work for multiple controls if I can establish
this variable and then call the appropriate form for that control.
Thanks again!

 

[Carl Rapson]

It's still not clear what the variable 'varName' is for. Are you wanting to
store the name of the active control and use it later? Then you'd want
something like

varName = Me.ActiveControl.Name
If varName = "TruckID" Then...

Carl Rapson

 

[John W. Vinson]

What I need to do is call different forms based on the name of the active
control. This same code would work for multiple controls if I can establish
this variable and then call the appropriate form for that control.
Thanks again!

Try something like:

Dim strDocument As String
SELECT Case Me.ActiveControl.Name
Case "TruckID"
strDocument = "frmTrucks"
Case "AirplaneID"
strDocument = "frmAirplanes"
...
End Select
DoCmd.OpenForm strDocument, <arguments>

John W. Vinson [MVP]

 

[Guest]

Try this:

Select Case Me.ActiveControl.Name

Case "SomeName"
'[Call your form here]

Case "SomeOtherName"
'[Call your form here]

Case Else
'[Call default form here if no match found]

End Select

You can have as many 'Case "??"' lines as there are control names to test
for...
Steve

 

[Guest]

Thanks Steve for your help. I think your first suggestion will work.

Try this:

Select Case Me.ActiveControl.Name

Case "SomeName"
'[Call your form here]

Case "SomeOtherName"
'[Call your form here]

Case Else
'[Call default form here if no match found]

End Select

You can have as many 'Case "??"' lines as there are control names to test
for...
Steve

What I need to do is call different forms based on the name of the active
control. This same code would work for multiple controls if I can establish
this variable and then call the appropriate form for that control.
Thanks again!