I simply cannot see what I have done wrong here:
Private Sub Form_Load()
txtCheck.Value = strCheckMark
If txtCheck.Value = "A" Then _
lblTitle.Caption = "Amended Entries Completed - Change Flag Form"
ElseIf txtCheck.Value = "N" Then _
lblTitle.Caption = "Entry On File - Audit Input Form"
ElseIf txtCheck.Value = "Y" Then _
lblTitle.Caption = "Entries for Amendment - Change Flag Form"
Else
lblTitle.Caption = "This did not work"
End If
The first ElseIf is hilited on error.
I tried this on both the Form - Open and Form - Load action, and neither works.
Help, please!
Private Sub Form_Load()
txtCheck.Value = strCheckMark
If txtCheck.Value = "A" Then _
lblTitle.Caption = "Amended Entries Completed - Change Flag Form"
ElseIf txtCheck.Value = "N" Then _
lblTitle.Caption = "Entry On File - Audit Input Form"
ElseIf txtCheck.Value = "Y" Then _
lblTitle.Caption = "Entries for Amendment - Change Flag Form"
Else
lblTitle.Caption = "This did not work"
End If
The first ElseIf is hilited on error.
I tried this on both the Form - Open and Form - Load action, and neither works.
Help, please!