Problemes avec ADO dans VBA

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

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

Bonjour,

Allez !

Code:

---

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

---

Merci beaucoup, ça marche!

Citation:

---

Envoyé par MuadDib_II

Merci beaucoup, ça marche!

---

Un petit RESOLU alors ?

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

Y'm'semble qu'il faut qu'une variable public, si tu veux la voir dans toute l'appli doit être déclarée dans un module et non pas dans le code du formulaire.

Vous dîtes dans une autre module, créé seule pour cette variable?
Je la declarée dans la Form_F_log, session (Général)/ (Déclarations)

au cas où je le fait dans une nouveau module, comment la chercher après?

Dans un module (pas le module rattaché à un formulaire), il suffit de déclarer la variable :

Code:

---

public MaVariable as String

---

elle sera alors visible de partout dans l'application

J'ai créé le module M_Geral et j'ai fait les declarations:
public x as string
public y as integer

dans le formulaire F_log :
x = Forms!F_log!USER
y= Forms!F_log!AG

si je fais un msgbox(x & y) dans la form F_log, tout se passe bien, mais si après,
sur un autre formulaire, si j'appele une macro e dans la macro j'utilise l'option "ExécuterCode"/ msgbox(x & y), l'error continue à se produire, pour quoi?

le code dans la form F_log:
Dim ss As ADODB.Recordset

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

ss.MoveFirst
x = (ss![NOM_LONG])
y = Forms!F_log!AG

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "T_logs", CurrentProject.Connection, _
adOpenDynamic, adLockOptimistic
With rs

.AddNew

![AG] = y
![USER] = Forms!F_log!USER.Value
![TIME] = Now

.Update
End With


DoCmd.Close
stDocName = "M_F_inicio"
DoCmd.RunMacro stDocName


Merci