Discussion :

[youpi1]

Bonjour,
je me casse la tête pour récupérer des données ds un autre formulaire...
ds le premier formulaire je demande login et mot de passe et j'ai un bouton ok voici le code sur le bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande1_Click()
Me.requery
Dim sql, user_nom, user_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql="select * from table1 where nom='"&Me.texte0&"' and mot de passe='"&Me.texte2&"';"
Set rs=currentDb.openrecordset(sql)
if not rs.eof then
do cmd.openform "test", acNormal, , , , acWindowsNormal
user_nom =rs("nom").value
user_groupe=rs("niveauhierarchique").value
else...
endif...
end sub

Voilà ds mon 2ème formulaire test je récupère le nom en laissant le formulaire1 chargé et en écrivant dans la source contrôle de la zone de texte =formulaires!formulaires1!texte0 mais pour récupérer le niveauhiérarchique attribué à user_groupe je n'y arrive pas...
Merci pour votre aide.

[FreeAccess]

Bonjour,

Petites idées vite faites.....

Dans ton Form1, crée un nouveau TextBox (txtUserGroup) est attribue lui la valeur de user_groupe .
Ensuite dans ton Form2, il suffit de faire la même chose que pour Texte0...

Sinon, déclare comme Public ta variable user_groupe .....

Tu peux aussi passer en argument la valeur de ta variable à l'ouverture de ton Form2 (voir argument Arg de OpenForm)

Voià quelques idées....

[youpi1]

re,
j'ai essayé : j'ai crée un nouveau textBox ds mon 1er formulaire mais comment je lui attibue la valeur que je récupère ds user_groupe c'est dans le "source contrôle" que je fais=[user_groupe]? car cela ne fonctionne pas ?
Merci

[FreeAccess]

Sur Form1, ton TextBox (txtUserGroup)...
Dans le code de ton bouton de commande1:

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 Commande1_Click()
Me.requery
Dim sql As String
Dim user_nom As String
Dim user_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql="select * from table1 where nom='"&Me.texte0&"' and mot de passe='"&Me.texte2&"';"
Set rs=currentDb.openrecordset(sql)

user_nom =rs("nom").value
user_groupe=rs("niveauhierarchique").value
'Passe la valeur dans le textbox
Me.txtUserGroup.Value = user_group

if not rs.eof then
do cmd.openform "test", acNormal, , , , acWindowsNormal

else...
endif...
end sub

Ca donne quoi...

[youpi1]

Super ça fonctionne.
Merci beaucoup