Tab zichtbaar als enkele voorwaarden voldaan zijn.

[DEWCAP]

Hallo,

Ik heb een Access formulier. Hierin zitten 2 tabs verwerkt.
Tab 1 heeft 3 velden, namelijk user, company en username.

Nu heb ik een code die ervoor zorgt die alle 3 de velden ingevuld moeten worden alvorens naar tab 2 te kunnen. MAAR, het zou mogelijk moeten zijn naar tab 2 te gaan als:
1.USER en COMPANY ingevuld zijn of
2. Username ingevuld is.

Kan iem mij hiermee helpen?

Bednakt!

Private Sub Command14_Click()

    Dim blnVerder As Boolean

    blnVerder = True

    If Len(Nz(Me.Text4)) = 0 Then blnVerder = False
    If Len(Nz(Me.Text6)) = 0 Then blnVerder = False
    If Len(Nz(Me.Text8)) = 0 Then blnVerder = False
    
    If blnVerder Then
        Me.TabCtl0.Pages(1).Visible = True
        Me.TabCtl0.Pages(1).SetFocus
        Me.TabCtl0.Pages(0).Visible = False
    Else
        MsgBox "Niet alle tekstboxen zijn gevuld!", vbInformation, "db1 Database"
    End If

End Sub

Private Sub Form_Open(Cancel As Integer)
    'Bij het openen van het form wordt de tweede tab verborgen.
    Me.TabCtl0.Pages(1).Visible = False
    'en de velden op het eerste tab leeg gemaakt.
    With Me
        .Text4 = ""
        .Text6 = ""
        .Text8 = ""
    End With
    
End Sub

 

[JHx]

verander

    blnVerder = True

    If Len(Nz(Me.Text4)) = 0 Then blnVerder = False
    If Len(Nz(Me.Text6)) = 0 Then blnVerder = False
    If Len(Nz(Me.Text8)) = 0 Then blnVerder = False

in

    blnVerder = False

    If (Len(Nz(Me.Text4)) <> 0) And (Len(Nz(Me.Text6)) Then blnVerder = True
    If Len(Nz(Me.Text8)) <>0 Then blnVerder = True

Daarbij veronderstel ik wel dat :
text4 = USER
text6 = COMPANY
text8 = Username
Groetjes,
JHx.

 

[DEWCAP]

Bedankt voor het antwoord. Maar de code werkt niet. Dit is wat ik nu heb (hetgene is het vet is rood in de code)

Dim blnVerder As Boolean

    blnVerder = False

    [B]If (Len(Nz(Me.Text4)) <> 0) And (Len(Nz(Me.Text6)) Then blnVerder = True[/B]
    If Len(Nz(Me.Text8)) <> 0 Then blnVerder = True
    
    If blnVerder = False Then
        Me.TabCtl0.Pages(1).Visible = True
        Me.TabCtl0.Pages(1).SetFocus
        Me.TabCtl0.Pages(0).Visible = False
    Else
        MsgBox "Niet alle tekstboxen zijn gevuld!", vbInformation, "db1 Database"
    End If

End Sub

 

[DEWCAP]

Heb de code even zelf proberen veranderen en het werkt!

Dim blnVerder As Boolean

    blnVerder = False

    If (Len(Nz(Me.Text4)) <> 0) And (Len(Nz(Me.Text6)) <> 0) Then blnVerder = True
    If Len(Nz(Me.Text8)) <> 0 Then blnVerder = True
    
    If blnVerder = True Then
        Me.TabCtl0.Pages(1).Visible = True
        Me.TabCtl0.Pages(1).SetFocus
        Me.TabCtl0.Pages(0).Visible = False
    Else
        MsgBox "Niet alle tekstboxen zijn gevuld!", vbInformation, "db1 Database"
    End If

End Sub

 

[JHx]

Oooopppsss..... die " <>0 " was effe in mijn toetsenbord blijven plakken
Prima dat je het zelf gevonden hebt :thumb: !