erreur sur une requete avec param curentuser

**laurent.w** · 17/01/2007, 12h21

revoilou revoila le poseur de question:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Dim rds As Recordset
 Dim dbs As Database
 Dim frmcurrent As Form
 Dim strsql As String
 
    Set frmcurrent = Forms("sysconnection")
    Set dbs = CurrentDb
 
    strsql = "SELECT sysUsers.UserId, sysUsers.UserLogin, sysUsers.UserLastName, sysUsers.UserFirstName, sysUsers.Administrator FROM sysUsers  where sysUsers.UserLogin=   str   ;"
 
    Set rds = dbs.OpenRecordset(strsql, dbOpenDynaset)
    MsgBox (strsql)
    ''' Exit if it doesn't exit anymore
    If rds.EOF And rds.BOF Then
        MsgBox "Ce Login n'existe pas dans la base  etes vous sûr qu'il est bon ou que vous êtes inscrit dans le groupe de travail!", _
        vbApplicationModal + vbOKOnly + vbExclamation, "GIP - Montants"
        rds.Close
        Set rds = Nothing
        dbs.Close
        Set dbs = Nothing
        Exit Function
 
    Else
 
        ''' Refresh 2 fields
        With frmcurrent
            .cbxuser.Requery
 
        End With
 
    End If
 
    Set frmcurrent = Nothing
 
    '' Close the instance
    Set rds = Nothing
    dbs.Close
    Set dbs = Nothing
    'Forms("sysconnection").cbxuser = CurrentUser

j'ai une erreur sur la requete apparremment il manque un parametre celui du curentuser
j'ai essayé divers syntaxe (&, ", ') rien ne fonctionne

comment faire, svp?

**cafeine** · 17/01/2007, 12h23

Hello,

Ton SQL recherche un user nommé "str" ...

on dirait cette erreur fréquente :
http://cafeine.developpez.com/access...ugprint/#LVI-A

**laurent.w** · 17/01/2007, 12h27

non çà j'ai déjà viré
je me suis trompe voilà la ligne

Code :

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

strsql = "SELECT sysUsers.UserId, sysUsers.UserLogin, sysUsers.UserLastName, sysUsers.UserFirstName, sysUsers.Administrator FROM sysUsers  where sysUsers.UserLogin=   currentuser   ;"

**cafeine** · 17/01/2007, 13h16

Idem, cette fois ... tu recherches un nommé : CurrentUser ! (et en plus sans les quotes (') )

Ce serait vraiment agréable que tu ailles regarder le lien que je t'ai indiqué ...