Transmettre les données entre les UserForms

Dans Excel VBA j'ai un Formulaire Utilisateur semblable à la suivante où l'utilisateur entre un numéro d'identification, puis les détails sont affichés sur le formulaire utilisateur:

Private Sub btnIDNo_Click()
Dim IDNo As Long
If txtIDNo.Text <> "" Then
    If IsNumeric(txtIDNo.Text) = True Then
        lblError.Caption = ""
        IDNo = txtIDNo.Text
        Worksheets("Details").Activate
        Range("B4").Select
        While ActiveCell.Value <> "" And ActiveCell.Value <> IDNo
            ActiveCell.Offset(1, 0).Select
        Wend
        If ActiveCell.Value = IDNo Then
            txtName.Value = ActiveCell.Offset(0, 1).Value
            txtPhone.Value = ActiveCell.Offset(0, 2).Value
        Else
            lblError.Caption = "Cannot find ID nummber"
        End If
    Else
        lblError.Caption = "Please enter the ID Number in numeric form"
    End If
End If
End Sub

De Détails sur le Formulaire Utilisateur, j'ai un bouton "Modifier". En cliquant sur le bouton "Modifier" serait d'ouvrir un autre utilisateur du formulaire dans lequel l'utilisateur peut modifier les détails de ce numéro d'identification, mais évidemment pas le numéro d'identification lui-même. Pour ce faire, j'ai besoin de passer le numéro d'identification à partir des Détails de l'Utilisateur du Formulaire pour l'Édition de Formulaire Utilisateur. Est-il un moyen de faire cela?

Le bas sur Afficher les Détails de Formulaire Utilisateur pour ouvrir le Formulaire de modification d'un Utilisateur est semblable à la suivante:

Private Sub CommandButton1_Click()
Dim IDNo As Long
If txtIDNo.Text <> "" Then
    If IsNumeric(txtIDNo.Text) = True Then
        lblError.Caption = ""
        IDNo= txtIDNo.Text
        ufmEditDetails.Show
        ufmShowDetails.Hide
    Else
        lblError.Caption = "Please enter the ID Number in numeric form"
    End If
Range("B4").Select
End If
End Sub

J'ai déjà regardé les liens suivants, mais ils ne semblent pas aider:

http://www.mrexcel.com/forum/excel-questions/671964-visual-basic-applications-pass-variables-between-user-forms.html

http://gregmaxey.mvps.org/word_tip_pages/userform_pass_data.html

http://peltiertech.com/Excel/PropertyProcedures.html

Avez-vous envisagé la mise en œuvre de votre 2 formes actuelles comme un seul formulaire avec un contrôle multipage? Vous pouvez mettre les champs en cours sur votre premier formulaire sur la page 1 de la multi page, et les champs actuellement sur votre deuxième formulaire à la page 2. Vous pouvez vous rendre à la page 2 de l'invisible par défaut et de contrôle dans le code du formulaire unique lorsque vous souhaitez afficher page 2

OriginalL'auteur Ben Smith | 2015-09-11

16

Il y a beaucoup, beaucoup de manières... Voici quelques-uns...

Voie 1
1. Déclarer un Public Variable dans un Module
2. Affecter à cette variable dans les Userform1, puis de lancer Userform2. Cette variable permettra de conserver la valeur. Exemple
Dans Userform1
```
Private Sub CommandButton1_Click()
    MyVal = "Sid"
    UserForm2.Show
End Sub
```
Dans Userform2
```
Private Sub CommandButton1_Click()
    MsgBox MyVal
End Sub
```
Dans Le Module
```
Public MyVal
```
2

Utiliser le .Tag propriété de l'objet userform

Dans Userform1
```
Private Sub CommandButton1_Click()
    UserForm2.Tag = "Sid"
    UserForm2.Show
End Sub
```
Dans Userform2
```
Private Sub CommandButton1_Click()
    MsgBox Me.Tag
End Sub
```
3

Ajouter un Label dans Userform2 et définir la propriété visible à False

Dans Userform1
```
Private Sub CommandButton1_Click()
    UserForm2.Label1.Caption = "Sid"
    UserForm2.Show
End Sub
```
Dans Userform2
```
Private Sub CommandButton1_Click()
    MsgBox Label1.Caption
End Sub
```
Ne serait pas le moyen le plus simple d'être UserForm2.Txtbox.Text = UserForm1.txtIDNo.Text
Oui c'est ça 🙂 j'ai répondu à la question: "Comment puis-je passer des données entre l'Utilisateur Formes?" En ce qui concerne votre réponse, j'ai déjà démontré un concept similaire dans Way 3 🙂

OriginalL'auteur Siddharth Rout
2

Il existe plusieurs façons de résoudre ce problème.
Celui que j'utilise est de déclarer mondiale ou variable publique dans le module

Exemple:
```
Public commonVariable As String
```
puis dans userform vous pouvez attribuer ou de récupérer la valeur de cette variable.
Par exemple
dans userform1:
```
Private Sub btnIDNo_Click()
    commonVariable = "UserId"
End Sub
```
dans UserForm2:
```
Private Sub CommandButton1_Click()
    me.txtIDNo.Text = commonVariable 
End Sub
```
++ Est Vraiment Sympa 🙂

OriginalL'auteur Adisak Anusornsrirung
1

La plus simple est:

UserForm2.TxtIDNo.Text = UserForm1.txtIDNo.Text

OriginalL'auteur DragonSamu

Vous devez vous connecter pour publier un commentaire.