Discussion :

[MuadDib_II]

Bonjour, j'ai une table table T_Colaboradores (avec les champs USER, NOM) et un formulaire F_log (avec le champ USER). Quand l'utilisateur click sur le button OK de F_log, je voudrais chercher la valeur NOM dans la table T_Colaboradores et l'utiliser dans une variable X. Le code que j'ai essayé est le suivant, et tous les variables sont string:

Dim ss As ADODB.Recordset
Dim x As String

Set ss = New ADODB.Recordset
ss.ActiveConnection = CurrentProject.Connection
ss.Source = "SELECT * FROM [T_Colaboradores] WHERE [USER] = 'Forms!F_log!USER'"
ss.CursorType = adOpenDynamic
ss.LockType = adLockOptimistic
ss.Open

MESSAGE D'ERROR:BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé

ss.MoveFirst
X = (ss![NOM])

Merci pour l'aide

[psykodumarteau]

Bonjour,

Je pense que ton record set doit être vide, BOF et EOF sont des Flag qui indique tu as avant le premier enregistrement ou après le dernier. Vérifie que ta requête retourne bien des enregistrement. Je pense que c'est ta condition "Where" qui ne fonctionnement pas.

Cordialement

[pc75]

Bonjour,

Allez !

Code :

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

1
2
 
ss.Source = "SELECT * FROM [T_Colaboradores] WHERE [USER] = '" & Forms!F_log!USER & "'"

[MuadDib_II]

Merci beaucoup, ça marche!

[pc75]

Merci beaucoup, ça marche!

Un petit RESOLU alors ?

[MuadDib_II]

Une dernier question: Je voudrais utiliser cette variable X dans un autre formulaire, F_renov.

J'ai declaré la variable x dans le secteur de declaration du module F_log (public x as string), mais quand j'écris, par exemple msgbox(x) dans un autre module, ou dans une macro, il donne un error comme " l'objet ne contient pas d'objet d'automatisation 'x' ".

Vous avez quelque sugestion?

Merci