pb pour mettre a jour la BDD

Question

Salut, g un pb car je souhaite modifier des enregistrements dans une BDD mais quand je le fais, il me dit soit que je ne peux pas car l'objet ne gere pas ca, soit il me cree un 2° enregistrement dans ma BDD. Pourtant j'utilise le edit et non addnew. Voila mon code, si vous avez une solution je vous remercie par avance. Private Sub Command1_Click() Dim db As Database Dim Table As Recordset Dim str As String Set db = OpenDatabase("c:\BDD\ebauche.mdb") Set Table = db.OpenRecordset("Utilisateur") SQL = "select * from Utilisateur where [Nom utilisateur]=" & Chr(34) & Form13.modif & Chr(34) str = "[Nom utilisateur]=" & Chr(34) & Form13.modif & Chr(34) str = " WHERE " & str Set Table = db.OpenRecordset("SELECT * from Utilisateur" & str, dbOpenSnapshot) If (Table.RecordCount <> 0) Then Table.Edit If (Form14.Text1 <> "") Then If (Table![Nom utilisateur] <> Form14.Text1) Then Table.Fields("Nom utilisateur").Value = Form14.Text1 End If Else MsgBox "Vous devez remplir le champs Nom utilisateur!", vbExclamation, "Erreur!" Exit Sub End If If (Form14.Text2 <> "") Then If (Table![Password] <> Form14.Text2) Then Table.Fields("Password").Value = Form14.Text2 End If Else MsgBox "Vous devez remplir le champs password!", vbExclamation, "Erreur!" Exit Sub End If If (Form14.Combo1 <> "") Then If (Table![Categorie] <> Form14.Combo1) Then Table.Fields("Categorie").Value = Form14.Combo1 End If Else MsgBox "Vous devez remplir le champs Categorie!", vbExclamation, "Erreur!" Exit Sub End If Table.Update Else MsgBox "bouh" Exit Sub End If Form11.Show Unload Form14 Table.Close: Set Table = Nothing db.Close: Set db = Nothing End Sub Voila, je vous remercie par avance et espere que vous pourrez trouver ou je me suis trompe.

Lguerrault · Answer

Bonjour,

Remplace dbOpenSnapshot par dbOpenDynaset.
dbOpenSnapshot ne sert qu'en lecture seule. Donc impossible de modifier un enregistrement.

Bon courage

Pb pour mettre a jour la BDD

1 réponse

Discussions similaires