Discussion :

[harjer]

bonjour,

j'utilise une base de donnees access avec des tables lié a sql server
mais lorsque je veut faire

Code :

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

pers.update

sachant que pers est un recorset et est bien ouvert
j'ai une erreur qui me dit vous et un autre voulez mettre a jour la base de donnees...
pourriez vous m'aider svp
merci d'avance

le code de l'erreur est le 3197

[Invité]

Bonjour

Ce serait bien d'avoir le code complet, avec ta chaine sql, ta connection, etc..

Starec

[harjer]

voici le code

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
Dim Pers As Recordset
Set Pers = Bds.OpenRecordset("SELECT * FROM Personnes where matricule='" & Matricule & "'", dbOpenDynaset, dbSeeChanges, dbPessimistic)
If Pers.RecordCount > 0 Then
' si fichier vide, sauter
    Pers.MoveFirst
    Do While Pers.EOF = False
 
 
        Dte = DteStart
        Do While Dte <= DteFin
            If Weekday(Dte, PremierJoursemaine) = 1 Then
                Pers.Edit
                Pers![ModeleEnCours] = CInt(Pers![ModeleEnCours] + 1)
                ' 28/02/03 : AS
                If Pers![ModeleEnCours] > 8 Then Pers![ModeleEnCours] = 1
                If Pers![ModeleEnCours] = 2 Then If IsNull(Pers![CodeModeleHebdo2]) Then Pers![ModeleEnCours] = 1
                If Pers![ModeleEnCours] = 3 Then If IsNull(Pers![CodeModeleHebdo3]) Then Pers![ModeleEnCours] = 1
                If Pers![ModeleEnCours] = 4 Then If IsNull(Pers![CodeModeleHebdo4]) Then Pers![ModeleEnCours] = 1
                ' 28/02/03 : AS
                If Pers![ModeleEnCours] = 5 Then If IsNull(Pers![CodeModeleHebdo5]) Then Pers![ModeleEnCours] = 1
                If Pers![ModeleEnCours] = 6 Then If IsNull(Pers![CodeModeleHebdo6]) Then Pers![ModeleEnCours] = 1
                If Pers![ModeleEnCours] = 7 Then If IsNull(Pers![CodeModeleHebdo7]) Then Pers![ModeleEnCours] = 1
                If Pers![ModeleEnCours] = 8 Then If IsNull(Pers![CodeModeleHebdo8]) Then Pers![ModeleEnCours] = 1
                If Pers![ModeleEnCours] = 1 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo1]: Pers![SemaineDu] = Dte
                If Pers![ModeleEnCours] = 2 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo2]
                If Pers![ModeleEnCours] = 3 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo3]
                If Pers![ModeleEnCours] = 4 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo4]
                ' 28/02/03 : AS
                If Pers![ModeleEnCours] = 5 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo5]
                If Pers![ModeleEnCours] = 6 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo6]
                If Pers![ModeleEnCours] = 7 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo7]
                If Pers![ModeleEnCours] = 8 Then Pers![CodeModeleEnCours] = Pers![CodeModeleHebdo8]
                Pers.Update
            End If

[harjer]

je trouve ce probleme plusieurs fois dans mon code

erreur 3197 la moteur de la base de donnees microsoft jet a arrete car vous et un autre utilisateur tente de modifier les memes donnees en meme temps

please aider moi

[harjer]

j'ai reussi a trouver ce probleme mais maintenant lorsque je fais toujours le meme update je trouve l'erreur 3146 l'appel odbc a echoué

merci d'avance

[kayser]

Salut !

J'ai le même problème 3197... Comment as tu fait pour résoudre ce problème ?

Merci d'avance.