Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Compile error: Else without if

Discussion in 'Information Technology' started by Levans digital, Jul 28, 2006.

  1. Levans digital

    Levans digital
    Expand Collapse
    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
     
  2. Loading...


  3. Ofer Cohen

    Ofer Cohen
    Expand Collapse
    Guest

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

Share This Page