Hi,
I am currently receiving the error "Else without IF" on line "ElseIf QC2 = -1 Then".
Code:
Dim QC1 As Integer
Dim QC2 As Integer
Dim QC3 As Integer
Dim QC4 As Integer
QC1 = DLookup("LoggedIn", "tbl_Users", "[Username] = 'QC_AM1' or [Username] = 'QC_PM1'")
QC2 = DLookup("LoggedIn", "tbl_Users", "[Username] = 'QC_AM2' or [Username] = 'QC_PM2'")
QC3 = DLookup("LoggedIn", "tbl_Users", "[Username] = 'QC_AM3' or [Username] = 'QC_PM3'")
QC4 = DLookup("LoggedIn", "tbl_Users", "[Username] = 'QC_AM4' or [Username] = 'QC_PM4'")
If QC1 = -1 Then
frm_QCQueue.lblQC1.Caption = "Quality Control one: Logged in"
frm_QCQueue.lblQC1.ForeColor = vbGreen
Else
frm_QCQueue.lblQC1.Caption = "Quality Control one: Not logged in"
frm_QCQueue.lblQC1.ForeColor = vbRed
ElseIf QC2 = -1 Then
frm_QCQueue.lblQC2.Caption = "Quality Control one: Logged in"
frm_QCQueue.lblQC2.ForeColor = vbGreen
ElseIf QC2 = 0 Then
frm_QCQueue.lblQC2.Caption = "Quality Control one: Not logged in"
frm_QCQueue.lblQC2.ForeColor = vbRed
ElseIf QC3 = -1 Then
frm_QCQueue.lblQC3.Caption = "Quality Control one: Logged in"
frm_QCQueue.lblQC3.ForeColor = vbGreen
Else
frm_QCQueue.lblQC3.Caption = "Quality Control one: Not logged in"
frm_QCQueue.lblQC3.ForeColor = vbRed
ElseIf QC4 = -1 Then
frm_QCQueue.lblQC4.Caption = "Quality Control one: Logged in"
frm_QCQueue.lblQC4.ForeColor = vbGreen
Else
frm_QCQueue.lblQC4.Caption = "Quality Control one: Not logged in"
frm_QCQueue.lblQC4.ForeColor = vbRed
End If