Bonjour,

Pour Windows 2000 et sup :

Dim Identifiant_Utilisateur As String

Identifiant_Utilisateur = Environ("USERNAME") 

Cela est le code en VBA, je ne pense pas que je puisse l'intégrer dans ma requête SQL

Je ne pense pas que l'on puisse le faire directement en SQL.

La requête devient :

SELECT * 
FROM Backoffice 
WHERE " & Identifiant_Utilisateur & " ='user_name'; 

J'ai pensé à faire ça :

initADO

Dim sql
Dim user_name
user_name = Environ("Username")

sql = "SELECT * FROM Backoffice WHERE [Identifiant Utilisateur]='" + user_name + "';"
MsgBox sql
Set db = CurrentProject.Connection
rst.Open sql, db

j'essaye d'ouvrir un page avec un DoCmd.OpenQuery afin qu'il m'affiche ce que je cherche avec ma requête SQL ^^

Oups erreur dans mon post #3 ... ta syntaxe est bonne, il faut remplacer les "+" par "&" et c'est bon

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

Je cherche la commande pour afficher comme DoCmd.OpenQuery qui ne fonctionne pas, j'ai regardé pour DoCmd.RunSQL, mais il fonctionne qu'avec des requêtes d'action et non pas avec des Select!

Je n'ai pas accès à Access en ce moment, je ne peux pas chercher. Il n'y aurait pas un ExecuteQuery() ?

«Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

Ca marche avec un Query.
Le seul problème est que je suis obligé de le créer pour que le code fonctionne ^^

initADO

Dim sql
Dim user_name
Dim stDocName
Dim Qry As DAO.QueryDef

user_name = Environ("Username")

sql = "SELECT * FROM Backoffice WHERE [Identifiant Utilisateur]='" + user_name + "';"
'MsgBox sql

Set db = CurrentProject.Connection
DoCmd.DeleteObject acQuery, "Find_UserAdd"
CurrentDb.CreateQueryDef "Find_UserAdd", sql

Set Qry = CurrentDb.QueryDefs("Find_UserAdd")
stDocName = "Find_UserAdd"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Si ça fonctionne c'est le principal :o)

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

Bonjour,

Respire calmement ... zen ... pas de panique. :o)

Voilà, une fois calmée, on va examiner de plus près ton problème ... :O))

Premièrement je ne vois pas ta déclaration de ta variable strsql dans ta procédure. Ce n'est qu'un détail, parce que je suppose que tu n'as pas mis Option Explicit en en t^te de ton module. Mais c'est bien de le faire quand même pour être logique avec la déclaration de tes autres variables.

Tu inspires encore lentement et tu expires bien fort aussi ... voilà ...

Resultat est un objet de type recordset. Ce qui veut dire que ton objet contient plusieurs enregistrements. MsgBox ne peut pas prendre en compte un objet tel quel.

Ensuite, quelle méthode as-tu utilisé pour compter les enregistrements de ton simple "Select ID from Personnes" ?

Pour lire un recordset, il faut le parcourir. La première chose à faire est de s'assurer que l'on est bien sur la première ligne d'enregistrement en faisant un MoveFirst (Resultat.MoveFirst), ensuite faire :

  Resultat.MoveFirst 
  While Not resultat.Eof
     MsgBox resultat.Fields(0)
     resultat.MoveNext
  Wend

Bonjour,

Ca va mieux ce matin ? tu as pu déstresser pendant le week end ?

Dans ta requête : "select ID from Personnes where Nom = '" & Nom & "' and Prenom = '" & Prenom & "'" , il semblerait que tu veux l'ID (l'identifiant) concernant une seule personne (nom + prénom). Tu peux donc affecter le résultat de ton recordset dans zone texte, ton recordset ne contiendra qu'un seul élément, en faisant comme ça :

Text1.Text = Resultat.Fields(0)

Text1.Text = resultat.Fields(0) & " " & resultat.Fields(1) 

Resultat.MoveFirst 
  While Not resultat.Eof
     list1.Additem resultat.Fields(0) & vbTab & resultat.Fields(1)
     resultat.MoveNext
  Wend