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
--
Good Luck
BS"D
"Levans digital" wrote:
> 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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12332
> [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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12332
> otherwise make them visible but I am learning a bit about VB where am I going
> wrong 
Our Donation Goal
: Why Donate? : Donate Today! : Donate Anonymously (ਗੁਪਤ) : Our Family of Supporters 
Linear Mode
