VBA Open Form If - Else

[Bruce]

I've got a form with a command button that opens another form and I'm trying to make it open 1 of 2 possible forms (ABCD or EFGH) based on criteria: Here is the code:

Private Sub Command35_Click()
On Error GoTo Err_Command35_Click

If (Field1.Text = "ABCD") Then

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "ABCD_Form"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else:

stDocName = "EFGH_Form"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Command35_Click:
Exit Sub

Err_Command35_Click:
MsgBox Err.Description
Resume Exit_Command35_Click



End Sub

I get an error You can't regerence a property or method for a control unless the control has focus. Any suggestions are appreciated. Tks!

[pbaldy]

Don't use the Text property:

If (Field1 = "ABCD") Then

I would add that for efficiency, all I would do in the If/Then block is set the variable:

stDocName = "ABCD_Form"

I'd have the OpenForm after, so you only have it once. Also, if you're not using stLinkCriteria I wouldn't include it anywhere.

[maximus]

Yes the problem in the the code is If (Field1.Text = "ABCD") Then Use Me.FieldName="ABCD" then.

[Bruce]

This worked. Thanks!

If (Field1 = "ABCD") Then
Dim stDocName As String

stDocName = "ABCD_Form"
DoCmd.OpenForm stDocName

Else:

stDocName = "EFGH_Form"
DoCmd.OpenForm stDocName
End If