Impossible de modifier la propriété Value du Multipage

Version imprimable

1 pièce(s) jointe(s)

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

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 Pièce jointe 585886
Si quelqu'un peut m'aider. Merci d'avance

05/12/2020, 07h03
Philippe Tulliez
Bonjour,
C'est pourtant la bonne syntaxe.
Code:

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

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

Code:

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:

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

3 pièce(s) jointe(s)

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:

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:

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:

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:

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:

Me.mPgeDataSheet.Value = 2

ou
Code:

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)

Pièce jointe 585971

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

Pièce jointe 585972

Le classeur ayant servi d'exemple

2 pièce(s) jointe(s)

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

Code:

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:
Pièce jointe 585984
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:

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:

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:

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:

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:
Pièce jointe 585991
Merci