arwa0309
Messages postés4Date d'inscriptionvendredi 21 avril 2006StatutMembreDernière intervention 3 mai 2006
-
21 avril 2006 à 14:21
arwa0309
Messages postés4Date d'inscriptionvendredi 21 avril 2006StatutMembreDernière intervention 3 mai 2006
-
21 avril 2006 à 21:33
Dim db As Database
Dim rs As Recordset
Private Sub cmdAjouter_Click()
Set db = OpenDatabase(App.Path & "\Stagiaires.mdb")
Set rs = db.OpenRecordset("requete1")
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text
rs(2) = Text3.Text
rs(3) = Text4.Text
rs(4) = Text5.Text
rs(5) = Text6.Text
rs(6) = Text7.Text
rs(7) = Text8.Text
rs(8) = Text9.Text
rs(9) = Text10.Text
rs(10) = Text11.Text
rs(11) = Text12.Text
rs.Update
MsgBox "Enregistrement effectuer"
rs.Close
End Sub
Tu aurais vu:
- 2: On est poli: "Bonjour" et "Merci" sont des mots appréciés (Pas vus....)
- 4: On demande une explication sur un sujet précis on ne l'exige pas (ce code ne marche pas veillez le corriger )
- 7:On précise les détails du problème : contexte, langage, message d'erreur (Pas vus)
-9: On ne demande pas un programme tout fait, on ne demande que de l'aide sur un problème concret.
Enfin bref...
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée
arwa0309
Messages postés4Date d'inscriptionvendredi 21 avril 2006StatutMembreDernière intervention 3 mai 2006 21 avril 2006 à 21:33
merci bcp c gentil de votr part mai peu etr ke g mal compri je pense ke je doi pa cliquer sur réponse acceptée?
g fai ce ke vous m'avez demandez le resultat est
le problème est au niveau de opendatabase