enregistrement d'un formulaire

[tunisien13]

* BONJOUR *

je veux le code vba qui me permet d'enregistrer le contenu de formulaire ans la table detail produits et merci

[marot_r]

Si tu utilises des formulaires liés, tu n'as pas besoin d'enregistrer tes données Access le fait automatiquement lorsque tu quittes un enregistrement.

Si tu veux enregistrer un enregistrement avant de l'avoir quitter, utilise l'assistant de création de bouton et suit ses instructions. L'assistant va générer le code nécessaire.

Si je n'ai pas répondu à ta question donne des précisions supplémentaires sur ce que tu veux faire.

A+

[tunisien13]

Envoyé par marot_r

Si tu utilises des formulaires liés, tu n'as pas besoin d'enregistrer tes données Access le fait automatiquement lorsque tu quittes un enregistrement.

Si tu veux enregistrer un enregistrement avant de l'avoir quitter, utilise l'assistant de création de bouton et suit ses instructions. L'assistant va générer le code nécessaire.

Si je n'ai pas répondu à ta question donne des précisions supplémentaires sur ce que tu veux faire.

A+

merci beaucoup mon ami
j'ai cree un formulaire qui n'est pas lier a aucun table et mon but que de lorsque je clique au bouton enregistre les donnees saisier au formulaire soient enregistre au table
merci beaucoup et excuse moi car je ne maitrise pas bien le farnçais)

[marot_r]

excuse moi car je ne maitrise pas bien le farnçais

Ton français est meilleur que mon tunisien :-).

Voilà comment je le ferai mais il y a d'autres solutions. On pourrait utliser une requête INSERT à la place.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub EnregisterDonnees()
    dim db as dao.database:set db=currentdb
    dim r as dao.recordse:set r=db.OpenRecorset("NomTaSourceDeDonnees")
    r.addnew 'Si c'est un nouvel enregistrement
    r![NomTonChamp1]=me.NomTonChamp1
    r![NomTonChamp2]=me.NomTonChamp2
    r![NomTonChamp3]=me.NomTonChamp3
    r![NomTonChamp4]=me.NomTonChamp4
    r.udpate
    r.close:set r=nothing
    set db=nothing
end sub

ou

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub EnregisterDonnees()
    dim db as dao.database:set db=currentdb
    dim r as dao.recordse:set r=db.OpenRecorset("NomTaSourceDeDonnees")
    r.findfirst("[NomTaClef]=" & me.NomTaclef) 'Si c'est un enregistrement qui existe
 
    if not r.nomatch()
         'Données trouvées 
         r.edit
         r![NomTonChamp1]=me.NomTonChamp1
         r![NomTonChamp2]=me.NomTonChamp2
         r![NomTonChamp3]=me.NomTonChamp3
         r![NomTonChamp4]=me.NomTonChamp4
         r.udpate
    end if
 
    r.close:set r=nothing
    set db=nothing
end sub

Il faut bien sur adapter ce code à ton appli mais c'est une bonne esquisse.

La question subsidiare est "Pourquoi s'embetter avec du code quand les formulaires liés font cela pour toi ?" mais il t'appartient d'y répondre.

A+