Discussion :

[croke]

bonjour,
bon je suis un grand novice sur le VBA mais viens de lire quelques forum et tuto, mais je n'y comprend rien et je n'arrive pas a faire mon action...
le but étant d'excuter une requete sur le bouton d'un formulaire.
mais comme elle fait plus de 255 caractère je n'ai pas d'autre choix que de faire du VBA.... et la probleme.

voila ce que j'ai essayer de faire en chopant des trucs sur des tutos..

Code :

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

1
2
3
4
5
6
7
8
Sub DAOExecuteBulkOpQuery_click()
    Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase(".\gros_proget2.mdb")
    ' Exécution de la requête
    db.Execute "UPDATE (tab_livraison INNER JOIN req_dernier_livraison ON tab_livraison.ref_livraison=req_dernier_livraison.ref_livraison) INNER JOIN tab_prod_nomm ON tab_livraison.ref_prod_nomm=tab_prod_nomm.ref_prod_nomm SET tab_prod_nomm.stock = tab_prod_nomm.stock+tab_livraison.stock;"
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
End Sub

le probleme c'est que ça ne marche pas....
et en plus je souhaiterai que ce bouton enregistre les données sur le formulaire dans la table, avant d'executer cette requete...

je nage donc complet.... pouvez vous m'aider???
merci d'avance

[azertix]

Je te donne un exemple à moi pour supprimer des enregistrements (mais ça marche pour tout type de requète)

Code :

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

1
2
3
Dim sqlSuppr
sqlSuppr = "DELETE FROM Avoir WHERE NumNote=" & Me.lstNotes & ";"
DoCmd.RunSQL (sqlSuppr)

C'est pas plus compliqué
Sinon, tu peux mettre ta requète sur plusieurs lignes en utilisant le caractère _

[croke]

merci ça a marcher....

[azertix]

De rien