cs_amita
Messages postés151Date d'inscriptionsamedi 17 juillet 2004StatutMembreDernière intervention11 mai 2012
-
16 mars 2009 à 11:53
Notabadcat
Messages postés5Date d'inscriptionmercredi 12 juillet 2006StatutMembreDernière intervention16 mars 2009
-
16 mars 2009 à 14:39
merci à l'équipe
Svp aidez moi, je suis bloqué
j'ai une erreur 3021 lors de la modification d'un enregistrement.
Private Sub CmdEdit_Click()
Dim db As Database
Dim rs As Recordset
If txtIdentPat(0).Text = "" Then MsgBox ("Please fill in the Numéro first!"), vbOKOnly + vbCritical, "Error" _
: Exit Sub
If txtIdentPat(1).Text = "" Then MsgBox ("Please fill in the Nom first!"), vbOKOnly + vbCritical, "Error" _
: Exit Sub
If txtIdentPat(2).Text = "" Then MsgBox ("Please fill in the Prénom number first!"), vbOKOnly + vbCritical, "Error" _
: Exit Sub
If txtIdentPat(3).Text = "" Then MsgBox ("Please fill in the Sex number first!"), vbOKOnly + vbCritical, "Error" _
: Exit Sub
Set db = OpenDatabase(App.Path + "\Rhazi.mdb")
Set rs db.OpenRecordset("Select * from A_Pat where Nom '" & Trim(lvRecNames.SelectedItem.Text) & "'")
Notabadcat
Messages postés5Date d'inscriptionmercredi 12 juillet 2006StatutMembreDernière intervention16 mars 2009 16 mars 2009 à 14:39
Salut .
1- je commence toujours par ouvrir comme ça : docmd.openrecordset("nom", dbopendynaset)
ouverture dynamique de la table qui permet de modidier les enregistrements
2- il y a un gag dans ton while...wend :
With rs
.MoveFirst
' While Not .EOF 'ça marche pas
Mieux vaut commencer par le premier enregistrement : rs.movefirst avant le while
Nulle part tu lui dis de passer à la ligne, donc bouclage à l'infini : rajouter rs.movenext