Discussion :

[cassidy]

salut !!


j'ai creer une table "compteur" contenant un champ initialisé à 0dans ma bd d'arrière plan et j'ai ajouter un lien vers cette table dans ma base frontale.
et dans ma procedure, j'écris le code suivant qui devra mettre à jour la valeur de champ dans cette table .

Code :

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

1
2
3
4
5
6
 
Dim rs1 As DAO.Recordset
 Set rs1 = db.OpenRecordset("compteur", dbOpenDynaset)
rs1.Edit
rs1!compt = 1
rs1.Update

mais j'ai le message d'erreur suivant:
Microsoft jet ne trouve pas les données de la table compteur, assurer vous que le nom a été bien ecrit

merci d'avance

[cafeine]

Hello,

sur quoi pointe l'objet db que tu utilises dans ton code ?

[marot_r]

Clairement il y a un pb sur le nom que tu passe.

Le plus simple est de recopier le nom que tu as mis sur le link (il y a peut-être un espace à la fin).

Moi je précède ainsi :

F2 sur l'objet concerné (ici ta table)
[ctrl][c] pour piquer le nom
[ctrl][v] dans le code.

A+

[cassidy]

db pointe sur la base de données courante!

quel peut être le pb?

[cafeine]

db pointe sur la base de données courante!

quel peut être le pb?

rien, mais ça ne se voyait pas dans ton code ... d'où ma question ...

[cassidy]

est ce un pb que d'acceder dans la meme fonction,a 2 table differentes mais en utilisant 2 recordset differents.
car dans ma procedure où j'accède a ma table compteur j'accède d'abord a ma table sécurité.

Est ce que ça peut causé cette erreur?

[cafeine]

dans ce cas montre nous un morceau de ton code plus conséquent, notament la partie avec la déclaration et l'instanciation de db.

[Moha25fr]

salut
commence par

Code :

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

1
2
Set db=currentdb
 (

là je vois pas !!!
tu dois te placer sur quel enregistrement?

[cassidy]

voila la fonction complete

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub cmdOk_Click()

On Error GoTo Err_cmdOk_Click

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim rstV As Recordset
    Dim rs1 As DAO.Recordset   
    Dim stDocName As String
    Dim stLinkCriteria As String
   
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("Security", dbOpenDynaset)
     Set rs1 = db.OpenRecordset("compteur", dbOpenDynaset)     
    If Not IsNull(Me.txtUser) And Not IsNull(Me.txtPassword) Then
        rst.FindFirst "Password = '" & Me.txtPassword & "'" & " And UserID = '" & Me.txtUser & "'"
    
        If rst.NoMatch Then
             MsgBox "You entered the wrong User Name or Password." & Chr(13) & _
            "Please enter the correct User Name and Password or " & Chr(13) & _
            "contact the Database Adminstrator for assistance.", vbOKOnly + vbCritical, "Logon Denied"
        ElseIf Me.txtPassword = "password" Then
            MsgBox "This is the first time using the database or your passowrd has been reset." & Chr(13) & _
            "You must change your password before you can enter the database.", _
            vbOKOnly + vbExclamation, "Change Password"
            stDocName = "SecurityfUserLogonNew"
            stLinkCriteria = "[UserID]=" & "'" & Me![txtUser] & "'"
            DoCmd.OpenForm stDocName, , , stLinkCriteria
        Else
            HideForm
            stDocName = "Startup"
            
            rs1.MoveFirst
            rs1.Edit
            rs1!compt = rs1!compt + 1
            rs1.Update            
            
            DoCmd.OpenForm stDocName, , , stLinkCriteria
           
        End If
    Else
        MsgBox "You left the User Name and/or Password blank." & Chr(13) & _
        "Please enter the correct User Name and Password or " & Chr(13) & _
        "contact the Database Adminstrator for assistance.", vbOKOnly + vbCritical, "Logon Denied"
    End If
    
    With User
        .AccessID = rst.Fields("AccessID")
        .ViewID = rst.Fields("ViewID")
        .Active = rst.Fields("Active")
        .Password = rst.Fields("Password")
        .SecurityID = rst.Fields("SecurityID")
        .UserID = rst.Fields("UserID")
    End With
    
    rst.Close
    
Exit_cmdOk_Click:
    Exit Sub

Err_cmdOk_Click:
    MsgBox Err.Description
    Resume Exit_cmdOk_Click

End Sub

les parties rouges sont celles dont après l'ajout dans ma fonction j'ai ce message d'erreur.

[Moha25fr]

re

Code :

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

1
2
3
4
 Dim db As Database
 Dim rst As Recordset
 Dim rstV As Recordset
 Dim rs1 As Recordset

Utilse ça pour voir

A+

[cafeine]

Compteur est une table ou une requête ?

L'orthographe est-elle correcte ?

sinon ton code ne ferme aucun recordset et ne libère aucune ressource, c'est voulu ?