[access] ajout d'enregistrement requete
fl0
Messages postés
357
Date d'inscription
Statut
Membre
Dernière intervention
-
Apprenti -
Apprenti -
salut a tous
voila ce que je veut faire
a partir d'un formulaire ou je remplit des champ textes (nom,prenom,service) lorseque j'appui sur un bouton ajout que ca me creéé un enregistrement dans ma table utilisateur
voila mon code
Sql = "INSERT INTO Utilisateurs ( Nom, Prenom, Service )"
Sql = Sql & " VALUES (""" & Form_ajout!txtnom & """, """ & Form_ajout!txtprenom & """, """ & Form_ajout!lstservice & """)"
DoCmd.DeleteObject acQuery, "confirmationajout"
CurrentDb.CreateQueryDef "confirmationajout", Sql
Set Qry = CurrentDb.QueryDefs("confirmationajout")
jusqu'ici ca marche bien
ca la creer et quand je lance la requete comfirmajout que j'ai creer si dessus ca me créé un enregistrement
Mais quand je veut la lancer automatiquement dans VBa
Set rs = Qry.OpenRecordset
Set Qry = Nothing
Set rs = Nothing
la il ni veut pas
croyez vous que cela vienne des messages d'access
genre "vous etes sur le point d'ajouter un enregistrement etes vous sur? "
Si oui dite moi comment les annulé
Merci a ceux qui m'on lu
et merci d'avance pour votre aide
voila ce que je veut faire
a partir d'un formulaire ou je remplit des champ textes (nom,prenom,service) lorseque j'appui sur un bouton ajout que ca me creéé un enregistrement dans ma table utilisateur
voila mon code
Sql = "INSERT INTO Utilisateurs ( Nom, Prenom, Service )"
Sql = Sql & " VALUES (""" & Form_ajout!txtnom & """, """ & Form_ajout!txtprenom & """, """ & Form_ajout!lstservice & """)"
DoCmd.DeleteObject acQuery, "confirmationajout"
CurrentDb.CreateQueryDef "confirmationajout", Sql
Set Qry = CurrentDb.QueryDefs("confirmationajout")
jusqu'ici ca marche bien
ca la creer et quand je lance la requete comfirmajout que j'ai creer si dessus ca me créé un enregistrement
Mais quand je veut la lancer automatiquement dans VBa
Set rs = Qry.OpenRecordset
Set Qry = Nothing
Set rs = Nothing
la il ni veut pas
croyez vous que cela vienne des messages d'access
genre "vous etes sur le point d'ajouter un enregistrement etes vous sur? "
Si oui dite moi comment les annulé
Merci a ceux qui m'on lu
et merci d'avance pour votre aide
A voir également:
- Requete d'ajout access
- Ajout snap sans rien d'écrit - Forum Snapchat
- Acer quick access - Forum Logiciels
- Ajout rapide snap - Forum Snapchat
- Access runtime ✓ - Forum Access
- Demande d'amis SNAPCHAT - Forum Snapchat
8 réponses
Salut,
il y a beaucoup mieux pour ajouter un record.
il y a beaucoup mieux pour ajouter un record.
Dim MaTable as RecordSet
Set MaTable = CurrentDb.OpenRecordset("Utiisateurs", dbOpenDynaset)
On Error Resume Next
With MaTable
.AddNew
!Nom = Form_ajout!txtnom
!Prenom = Form_ajout!txtprenom
!Service = Form_ajout!lstservice
.Update
.Requery
End With
If Err.Number <> 0 Then
MsgBox Err.Description, , Err.Number
GoTo Fin:
End If
MaTable.Close
Set MaTable = Nothing
Fin:
End SubCa te fait pas de vilains messages d'ajout (comme ça, tu peux les gérer toi-même...)
salut
Merci c'est cool mais il y a un petit probleme il me dit qu'il y a une incompatibilité de type et il me surligne cette ligne
Set MaTable = CurrentDb.OpenRecordset("Utilisateurs", dbOpenDynaset)
Merci c'est cool mais il y a un petit probleme il me dit qu'il y a une incompatibilité de type et il me surligne cette ligne
Set MaTable = CurrentDb.OpenRecordset("Utilisateurs", dbOpenDynaset)
Soit il te manque une référence à DAO (menu outils/références dans la fenêtre de code, cocher les 'manquantes'), soit tu ne mets pas de type à matable (Dim MaTable), ça devrait passer, mais c'est plus bourrin !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Regarde quand même les histoires de références, un jour ou l'autre, tu vas tomber dessus sans contournement possible...
oui je m'en suis deja servi mais depuis le debut je ne declare aucune variables je c que ce n'est pas bien mais vu que je ne voi pas la difference
en tout cas merci de tes conseils
en tout cas merci de tes conseils
