Discussion :

[Floyd-44]

Bonjour,
Sur un Multipage de 3 pages, je souhaite "after update textbox" changer de page, donc j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TxtMDP_AfterUpdate()
    If Me.TxtMDP.Value <> MdP Then
        MsgBox "Mauvaise saisie d'utilisateur et/ou mot de passe", vbInformation, "Essaies encore"
        Me.TxtMDP.Value = ""
        Me.TxtMDP.SetFocus
    Else
        Me.MultiPage1.Value = 1
    End If
End Sub

Mon problème est que la propriété Value reste à 0
Si quelqu'un peut m'aider. Merci d'avance

[Philippe Tulliez]

Bonjour,
C'est pourtant la bonne syntaxe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub optWord_Click()
  With Me.MultiPage1
  .Value = 2
  End With
End Sub

Essayez la procédure événementielle Exit au lieu d'AfterUpdate

[EDIT]
Est-ce que par hasard le contrôle Textbox nommé TxtMDP ne se trouverait pas dans l'une des pages du contrôle Multipage ?
Si c'est le cas, déplacez le à l'extérieur de celui-ci car curieusement l'instruction ne fonctionne pas à l'intérieure d'une page

[Floyd-44]

Bonjour,
J'ai tout essayé, mais le point étrange est que d'autres parties du code dysfonctionnent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Cette procédure ne fonctionne pas
Private Sub LstTraite_Click() 'Listbox
    Me.LstAttente.ListIndex = -1
    With Me.LstTraite
        Origine = .List(.ListIndex, 1) 'String => Chemin avec un \ à la fin
        Fichier = .List(.ListIndex, 0) 'Nom du fichier pdf qui inclus le .pdf à la fin
'Contrôle PDFxChange   - Il ne fonctionne pas
        Me.Contrôle1.Src = Origine & Fichier
    End With
End Sub
' Alors que cette procédure fonctionne très bien
Private Sub LstAttente_Click()
    VideControl 1
    With Me.LstAttente
        Origine = .List(.ListIndex, 1)
        Fichier = .List(.ListIndex, 0)
        Me.Contrôle1.Src = Origine & Fichier
    End With
End Sub

Ensuite, j'ai des problèmes avec le ".SetFocus". Aucun ne fonctionne. Il ne tient pas compte de l'instruction, il passe systématiquement au TabIndex suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub TxtMDP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.TxtMDP.Value <> MdP Then
        MsgBox "Mauvaise saisie d'utilisateur et/ou mot de passe", vbInformation, "Essaies encore"
        Me.TxtMDP.Value = ""
        Me.TxtMDP.SetFocus
    Else
        Application.Speech.Speak ">Bienvenue" & User, True 
    End If
End Sub
'Un autre sur un AfterUpdate
Private Sub TxtDateFact_AfterUpdate()
    If IsDate(TxtDateFact.Value) = True Then
        FF_Date = Me.TxtDateFact.Value
    Else
        MsgBox "La date n'est pas saisie au bon format", vbInformation, "Oups"
        Me.TxtDateFact.Value = ""
        Me.TxtDateFact.SetFocus
    End If
    ControleDate
End Sub

Bref je suis un peu perdu.....

[Philippe Tulliez]

Bonjour,
Je ne sais pas dans quelle situation se trouve le TextBox nommé TxtMDP car les procédures événementielles Exit et AfterUpdate ne réagissent bien que s'il y a au moins un autre contrôle actif, ComboBox, TextBox, CommandButton, etc.

Un exemple d'un UserForm contenant plusieurs contrôles dont un MultiPage.

A son ouverture seul le TextBox nommé txtPasswrd, son Label et le CommandButton nommé cmdExit seront visibles
Pour l'exemple, le contrôle Multipage reste visible pour voir que le premier onglet est bien actif et dès que le mot de passe (pour l'exemple Admin) sera introduit

Le code des procédures

Procédure événementielle à l'activation du UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Activate()
  ' Cache les contrôles
  With Me
  .txtPasswrd.Visible = False
  .lblPassWrd.Visible = False
  End With
  Me.mPgeDataSheet.Value = 0   ' Place le premier onglet du contrôle
  OppositeStatus               ' Inverse les propriétés Visible des contrôles
  Me.txtPasswrd.SetFocus       ' Met le focus
End Sub

La procédure OppositeStatus qui inverse les propriétés Visible des contrôles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub OppositeStatus()
  ' Inverse la propriété des contrôles
  ' Un contrôle doit rester visible
  With Me
  .txtPasswrd.Visible = Not .txtPasswrd.Visible
  .lblPassWrd.Visible = Not .lblPassWrd.Visible
  .frmDataSheet.Visible = Not .frmDataSheet.Visible
  .cboDataSheet.Visible = Not .cboDataSheet.Visible
  ' .mPgeDataSheet.Visible = Not .mPgeDataSheet.Visible
  End With
End Sub

La procédure événementielle qui vérifie le mot de passe et s'il est correct, cache les contrôles txtPasswrd et lblPassWrd, rend visible les autres contrôles et active la page nommée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub txtPasswrd_AfterUpdate()
  With Me
    If .txtPasswrd.Value = "Admin" Then
       OppositeStatus
       With Me.mPgeDataSheet
       .Value = .Pages("pgeArt").Index
       End With
     Else
       MsgBox "Mot de passe erroné"
    End If
  End With
End Sub

Procédure événementielle txtPasswrd_AfterUpdate qui active l'onglet nommé pgeArt (2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub txtPasswrd_AfterUpdate()
  With Me
    If .txtPasswrd.Value = "Admin" Then
       OppositeStatus
       With Me.mPgeDataSheet
       .Value = .Pages("pgeArt").Index
       End With
     Else
       MsgBox "Mot de passe erroné"
    End If
  End With
End Sub

Comme toutes les collections d'object, il y deux façons de manipuler l'un de ses éléments. Soit utiliser son numéro, soit son nom
Donc pour activer la page d'un Multipage on écrira

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.mPgeDataSheet.Value = 2

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Me.mPgeDataSheet
.Value = .Pages("pgeArt").Index
End With

Les illustrations (avant/après)

Nous pouvons voir sur la première illustration que c'est la page 0 qui est active et sur la seconde que c'est la page 2 (onglet Articles)

Illustration 1 (Avant l'encodage du mot de passe)



Illustration 2 (Après l'encodage du mot de passe)




Le classeur ayant servi d'exemple

[Floyd-44]

Bonjour,
Pour essayer de mieux visualiser, je mets le contenu dans l'ordre, on est en début de procédure,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
    Me.MultiPage1.Value = 0
    Me.MultiPage1(1).Visible = False
    Me.MultiPage1(2).Visible = False
    Usf1.LstTraite.ColumnCount = 3     'C'est une Listbox en page 1
    Usf1.LstTraite.ColumnWidths = "150;500;0"
    With Me.CbxSociete
        .AddItem
        .List(.ListCount - 1, 0) = "SOCIETE1"
        .AddItem
        .List(.ListCount - 1, 0) = " SOCIETE2"
    End With
End Sub

On arrive alors sur cet écran:

Dans le principe, on sélectionne la société et le choix détermine la variable "Chaine de connexion" pour se connecter à la base SQLServer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CbxSociete_AfterUpdate()
    If Me.CbxSociete.ListIndex <> -1 Then
        If Me.CbxSociete.Text = "SOCIETE1" Then
            ConStrSql = "Provider=SQLOLEDB;Data Source= MONSERVEUR;Initial Catalog=SOCIETE1;User ID=ID;Password=;"
        ElseIf Me.CbxSociete.Text = "SOCIETE2" Then
            ConStrSql = "Provider=SQLOLEDB;Data Source=MONSERVEUR;Initial Catalog=SOCIETE2;User ID=ID;Password=;"
        End If
    Else
        MsgBox "Le choix de la société est obligatoire", vbCritical
        Me.CbxSociete.Text = ""
    End If
End Sub

Ensuite, on saisi son nom et par une requête on va vérfier que le nom d'utilisateur existe bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub TxtLogin_AfterUpdate()
    If Me.TxtLogin <> "" Then
        Login = Me.TxtLogin.Value
        FindUser
    End If
End Sub
Sub FindUser()
    Req = "SELECT N_User, ISNULL(Prenom,'Toto'), Password from USERS WHERE LOGIN = '" & Login & "'"
    With CreateObject("Adodb.connection")
        .Open ConStrSql
        Set Rst = .Execute(Req)
        If Rst.EOF = True Then
            MsgBox "Utilisateur incunnu...", vbInformation, "Mauvais Login"
            Usf1.TxtLogin.Value = ""
            Usf1.TxtLogin.SetFocus ' Ce setfocus ne marche pas, il passe quand même au textbox suivant TxtMDP
        Else
            N_User = Rst(0)
            User = Rst(1)
            MdP = Rst(2)
            Set Rst = Nothing
            .Close
        End If
    End With
End Sub

et ensuite le Mot de Passe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TxtMDP_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.TxtMDP.Value <> MdP Then
        MsgBox "Mauvaise saisie d'utilisateur et/ou mot de passe", vbInformation, "Essaies encore"
        Me.TxtMDP.Value = ""
        Me.TxtMDP.SetFocus 'Ne marche pas non plus et met le focus sur le commandbutton
    Else
        Application.Speech.Speak ">Bienvenue" & User, True 'message vox asynchrone
    End If
End Sub

En premier lieu, et sujet initial du Post, le code ci dessous était placé après le Application.speech (ci dessus) et n'a jamais fonctionné. Il a fallu que je rajoute un CommandButton pour que ça marche.... Alors la question est pourquoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CmdLog_Click()
    Me.MultiPage1(1).Visible = True
    Me.MultiPage1(2).Visible = True
    Me.MultiPage1.Value = 1
    Me.MultiPage1(0).Visible = False
End Sub

et le résultat du commandbutton:

Merci