Probleme de code dans recordset

bonsoir à tous,

sur mon appli j'ai placé un code afin de filtrer les postes pouvant accéder à la base de données.
J'ai une dizaine de postes sensés pouvoir accéder, sur 7 d'entre eux le code fonctionne très bien mais malheureusement sur 3 autres ça "coince" et je n'arrive pas à trouver pourquoi.
J'ai vérifié les références vba elles sont identiques. J'ai épuré le code au maximum afin de limiter les sources d'erreurs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim oDb As DAO.Database Dim rst As DAO.Recordset Dim Sql As String   Set oDb = CurrentDb MsgBox "1" Sql = "SELECT * FROM Machines WHERE Machine = Environ(""computername"") " MsgBox "2" Set rst = oDb.OpenRecordset(Sql, dbOpenSnapshot) MsgBox "3" If rst.EOF Then MsgBox "4" MsgBox "VOTRE MACHINE " & Environ("computername") & Chr(13) & Chr(13) & "N'EST PAS AUTORISEE A ACCEDER A CETTE APPLICATION", , "AVERTISSEMENT" Sql = "INSERT INTO JournalIntrusions ( DateHeure, Machine) SELECT Now() AS Expr1, Environ(""computername"") AS Expr2;" DoCmd.RunSQL Sql MsgBox "5" Else Sql = "INSERT INTO JournalAcces ( DateHeure, Machine) SELECT Now() AS Expr1, Environ(""computername"") AS Expr2;" DoCmd.RunSQL Sql MsgBox "6"

---

J'ai placé des msgbox pour voir jusqu'ou ça fonctionne et ça plante à la 2eme msgbox. :?

Bonjour

Je ne comprends pas ta chaine SQL, elle ne devrait pas marcher du tout.*

J'écrirais plutôt :

Code:

---

Sql = "SELECT * FROM Machines WHERE Machine ='" & Environ("computername") & "'"

---

De même pour la suite.

De plus, je ne vois pas l'utilité d'un recordset dans ton cas, mais une fonction de domaine (DLookup) serait plus appropriée ici pour une seule valeur (pour les fonctions de domaines il y a un tuto, voir mes tutos).

De plus pense à indenter ton texte.

Philippe

bonsoir Philippe

effectivement au depart la requete est ecrite de façon académique comme tu l'as écrite, néanmoins le problème était identique, disons que j'ai voulu tester.... :ccool:

De même pour le recordset, javais un code sous le coude, je l'ai adapté pour le fun, pour comprendre comment ça marchait, je fonctionne comme ça....:roll:

Alors puisque tu en parles, je vais tester avec un DLookup auquel je n'avais pas pensé. :oops:

Il n'en reste pas moins que j'aimerais bien comprendre ;)

re....

bon ben voilà, je gère ça avec un Dlookup comme tu le suggérais et ça marche. (à tester au bureau sur les postes posant problème)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim OrdiLocal As String   OrdiLocal = Nz(DLookup("Machine", "Machines", "Machine = Environ(""computername"") "), 0)   If OrdiLocal <> Environ("computername") Then MsgBox "VOTRE MACHINE " & Environ("computername") & Chr(13) & Chr(13) & "N'EST PAS AUTORISEE A ACCEDER A CETTE APPLICATION", , "AVERTISSEMENT" Sql = "INSERT INTO JournalIntrusions ( DateHeure, Machine) SELECT Now() AS Expr1, Environ(""computername"") AS Expr2;" DoCmd.RunSQL Sql Else Sql = "INSERT INTO JournalAcces ( DateHeure, Machine) SELECT Now() AS Expr1, Environ(""computername"") AS Expr2;" DoCmd.RunSQL Sql End If

---

Mais comme je le disais précédemment, j'aimerais bien savoir d'où ça vient ce dysfonctionnement partiel, si tu as une idée elle sera la bienvenue. :ccool:

je crois que j'ai cerné le problème, en fait les 3 ou 4 PC concernés buttent sur la variable d'environnement (je crois que c'est comme ça que ça s'appelle :oops: )

Environ("computer")

Ils ne veulent absolument pas la reconnaitre que ce soit par exemple pour donner la valeur à une variable , style : OrdiLocal = Environ("computer")
Ou que ce soit au sein d'une requete en tant que critere avec cette synthaxe Environ(""computer"").

Quelqu'un saurait-il me dire ce que je dois modifier ou ajouter sur les postes concernés pour franchir cet écueil ?

Salut,

Tu as testé sur ces 3 postes, dans la fenêtre d'exécution :

Code:

---

? Environ("computername")

---

Et verifié ce qu'elle te renvoie et si ça correspond au nom de machine sauvegardé dans ta table ?

A+

je vais retester ça tout à l'heure mais de memoire ça me donne une msgbox vide

Bonjour,

Effectivement, il semble que cette fonction ne retourne pas toujours le résultat attendu.

Il y a quelques anciennes discussions à ce sujet sur le forum.

Je ne crois pas que la cause n'ait jamais été véritablement établie.

Il existe une autre méthode avec l'API GetComputerName (voir la FAQ ou le forum).

Domi2

bilan de l'essai :

Environ("Computer") me retourne bien le nom du poste dans une msgbox à l'ouverture d'un form
par contre sur la ligne :

Code:

---

OrdiLocal = nz(Dlookup("Machine", "Machines", "Machine = Environ(""computername"") "), 0)

---

j'ai un message d'erreur execution 3085, fonction "environ non definie dans l'expression

idem sur la ligne sql :

Code:

---

sql = "INSERT INTO JournalAcces ( DateHeure, Machine) SELECT Now() AS Expr1, Environ(""computername"")

---

J'ai pallié ce probleme en attribuant la valeur à un champ non visible sur le formulaire et en remplaçant Environ(""computername"") par forms! accueil!OrdiLocal

Je vais tester le "GetComputerName"

C'est ok pour moi avec ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Compare Database Option Explicit ' déclaration des différentes API Windows Public Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpbuffer As String, nSize As Long) As Long   Public Function GetName() As String Dim Buffer$, gclen&, a& 'Détermine le nom de l'opérateur Buffer$ = Space(255) gclen& = Len(Buffer$) a& = GetComputerName(Buffer$, gclen&) GetName = Left$(Buffer$, gclen&) End Function

---

je remplace Environ("ComputerName") par GetName() dans le DLookup et la sql, ça fonctionne sans probleme.