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
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