Compile error: Else without if

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hey please help!
I am getting "Compile error: Else without if"
This is what I have

Private Sub CustomerName_AfterUpdate()
If Me![ss] = 0 Then
[lblss].Visible = False
[ss].Visible = False
Else
[lblss].Visible = True
[ss].Visible = True
ElseIf Me![vi] = 0 Then
[lblvi].Visible = False
[vi].Visible = False
Else
[lblvi].Visible = True
[vi].Visible = True
ElseIf Me![dl] = 0 Then
[lbldl].Visible = False
[dl].Visible = False
Else
[lbldl].Visible = True
[dl].Visible = True
End If
End Sub

Basivcally I have 3 fields "dl", "vi" and "ss" with their respective labels
labelled "lbl...."
If the fields are equal to zero or null then I want it to be invisible
otherwise make them visible but I am learning a bit about VB where am I going
wrong
 
Try this instead

Private Sub CustomerName_AfterUpdate()

[lblss].Visible = (Me![ss] <> 0)
[ss].Visible = (Me![ss] <> 0)
[lblvi].Visible = (Me![vi] <> 0)
[vi].Visible = (Me![vi] <> 0)
[lbldl].Visible = (Me![dl] <> 0)
[dl].Visible = (Me![dl] <> 0)

End Sub
 
Back
Top