Discussion :

[deuval]

bonjour

Je debute dans le vbs sous access, j'ai un petit formulaire qui affiche les données de ma table client. J'aimerai créer un bouton me permettant de créer un nouvelle enregistrement dans ma table client mais je ne connais pas la syntax exactement, mais je connais la requete sql a faire...

voici ma requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO clients(client_num,client_raison) VALUES('', txt_raison.value)

ma sous vba sa marche comment ?

[grenoult]

Ca marche avec des recordset, mais tu peux aussi utiliser du SQL

Exemple d'ajout de tuple avec un recordset :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim bd As Database 'déclaration de la base de donnée
    Dim rs As DAO.Recordset 'déclaration du recordset
    Set bd = CurrentDb() 'la variable prend pour valeur la base de données
    Set rs = bd.OpenRecordset("ARCHIVE") 'mise en mémoire de la table ARCHIVE dans le recordset
                rs.AddNew
                    rs.Fields("nom_archive") = nom_archive & " " & nom_support_archive & " n° " & i
                    rs.Fields("date_archive") = date_archive
                    rs.Fields("code_support") = support_archive
                    rs.Fields("code_systeme") = systeme_archive
                    rs.Fields("code_typea") = type_archive
                rs.Update

C'est assez simple avec les recordset, mais pour du SQL, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.runsql("ta requete SQl")

dans le code VB d'une procédure ou fonction.

[mout1234]

Utilises Currentdb.execute (de préférence)
ou Docmd.RunSQL

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Currentdb.execute "INSERT INTO clients(client_num,client_raison) VALUES('','" &  txt_raison.value & "'),dbFailOnError"

[deuval]

ok donc j'ai un petit peu ajusté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.Execute "INSERT INTO clients([client_raison]) VALUES("'test"")"

il faut rajouter des [ ] autour des nom de propriété, la sa marche

mais sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.Execute "INSERT INTO clients([client_raison]) VALUES('"&txt_nom.value&"')"

et bien c est pas bon, a savoir que txt_nom existe bien dans mon formulaire

[Elstak]

c'est quoi ton erreur?

utilise les balises code #

car là on lit mal ton code j'ai l'impression qu'il te manque des espaces ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

('"&txt_nom.value&"')"

t'a tout collé?

il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

('" & txt_nom.value & "')"

on sait jamais c'est peut etre ca surtout s'il te met le texte en rouge

[mout1234]

Comme le dit Elstak, la prochaine fois, utilises la balise code (le bouton #) quand tu postes un message contenant du code (je l'ai fait pour toi pour le précédent message).
EDIT: dans ce cas c'est un contre exemple: la balise code interprete mal l'apostrophe parce le code n'est pas complet


D'accord avec Elstak, le fait de coller les éléments fausse le compilateur (le caractère & accolé ayant alors un autre sens....)
Pour ma part, j'aime rappelé qu'il s'agit d'un controle du formulaire en cours avec le ME.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VALUES('" Me!txt_nom.value & "')"