[access] ajout d'enregistrement requete

Question

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

blux · Accepted Answer

Salut,

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...)

fl0 · Answer

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)

blux · Answer

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 !

fl0 · Answer

Merci Blux g choisi la methode bourin ca marche comme il faut
merci de ton aide

blux · Answer

Regarde quand même les histoires de références, un jour ou l'autre, tu vas tomber dessus sans contournement possible...

fl0 · Answer

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

adelzeg · Answer

bonjour,

j ai un probleme avec ACCESS. en faite j ai une table avec des codepart identiques pour des dates différentes.
Je voudrais sélectionner pour chaque codepart la derniere date.

c urgent svp

Apprenti · Answer

Bonjour,
Voulez-vous m'aider à ajouter des enregistrements sur ma base de données !

[access] ajout d'enregistrement requete

8 réponses

Discussions similaires

Newsletters