Correct use of IF ElseIf

[DS]

Is this If statement correct, meaning, am I missing an end if.
Is the syntax correct?
It seems to be working ok but one never knows
Thanks
DS

If Me.TxtID = 0 Then
DoCmd.OpenForm "FXMsgSelect"
Forms!FXMsgSelect!TxtMsg = "SELECT AN ITEM"
ElseIf Me.TxtAllergyID = 0 Then
DoCmd.OpenForm "FXMsgSelect"
Forms!FXMsgSelect!TxtMsg = "SELECT AN ALLERGY"
Else:
Me.TxtStatus = "DELETE"
Dim DeleteSQL As String
DoCmd.SetWarnings False
DeleteSQL = "DELETE * FROM Allergys " & _
"WHERE Allergys.ItemID = Forms!AllergySetUp!TxtID " & _
"AND Allergys.AllergysID = Forms!AllergySetUp!TxtAllergyID"
DoCmd.RunSQL (DeleteSQL)
DoCmd.SetWarnings True
Me.ListAllergys.Requery
Me.ListAllergys = ""
Me.TxtStatus = ""
Me.TxtAllergyID = 0
End If

 

[Douglas J. Steele]

Other than the colon after the Else, it looks fine to me.

 

[DS]

Other than the colon after the Else, it looks fine to me.

Thanks Douglas.
I'll remove the colon.
DS

 

[eos]

AUTO-REPLY From George Levitt

Please allow this to confirm a system receipt of your e-mail.

I am out of the office until Wednesday morning (1/12/05) and will not be
reviewing or responding to email or voicemail until that time.

I look forward to replying to your message on Wednesday.

Thanks and warmest regards, George

 

[eos]

AUTO-REPLY From George Levitt

Please allow this to confirm a system receipt of your e-mail.

I am out of the office until Wednesday morning (1/12/05) and will not be
reviewing or responding to email or voicemail until that time.

I look forward to replying to your message on Wednesday.

Thanks and warmest regards, George

 

[eos]

AUTO-REPLY From George Levitt

Please allow this to confirm a system receipt of your e-mail.

I am out of the office until Wednesday morning (1/12/05) and will not be
reviewing or responding to email or voicemail until that time.

I look forward to replying to your message on Wednesday.

Thanks and warmest regards, George