Discussion :

[cslbcg]

Je reviens vers vous au sujet de ma base de gestion commerciale.
Dans le formulaire qui permet la saisie des éléments de facturation, je voudrais automatiser la facturation des consignes.
C'est à dire que si sur la ligne 1 on saisit un article pour lequel figure dans sa fiche un code de consigne, je voudrais que l'enregistrement suivant soit généré automatique avec ce code consigne (qui existe en tant qu'article à part entière).
Qu'en pensez-vous ?
Merci d'avance de votre aide.
Catherine

[loufab]

Bonjour,

Une requete insert peut créer cette ligne.

Code :

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

currentdb.execute "Insert Into matable (champNumerique1, champtexte2, champ3, ....) Values (" & me.controle1 & ",""" & me.controle2 & """," & ... &")"

C'est une possibilité il y en a d'autres, à base de DAO par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
dim rst as dao.recordset
set rst = me.recordset
rst.addnew
rst.fields("nomduchamp").value = mavaleur
...
rst.update
rst = nothing

Attention ! jamais de close sur un me.recordset, sinon tu fermes la source de ton formulaire.

Cordialement,

[cslbcg]

Désolée mais je ne comprends pas la réponse !
Qu'est-ce que je fais de tout ça ? Je le mets où ?
Merci d'avance de ta patience...

Bonjour,

Une requete insert peut créer cette ligne.

Code :

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

currentdb.execute "Insert Into matable (champNumerique1, champtexte2, champ3, ....) Values (" & me.controle1 & ",""" & me.controle2 & """," & ... &")"

C'est une possibilité il y en a d'autres, à base de DAO par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
dim rst as dao.recordset
set rst = me.recordset
rst.addnew
rst.fields("nomduchamp").value = mavaleur
...
rst.update
rst = nothing

Attention ! jamais de close sur un me.recordset, sinon tu fermes la source de ton formulaire.

Cordialement,

[loufab]

Bonjour,

Ce code doit être adapter à ta table. Les nom de champs de controles etc.

Ou le mettre :

Pour un déclenchement automatique il vaut mieux le placer derrière l'événement du controle qui contient l'information qui détermine si il y a consigne.

Sélectionne ce controle, dans les propriétés repère Après MAJ, clique sur le bouton avec les 3 points [...] et choisi Code, il t'ouvrira la fenêtre Visual Basic Editor. C'est entre les 2 lignes (SUB et End SUb) que tu placera le code.

[cslbcg]

Bonsoir,

Je viens d'essayer d'insérer ce code mais, quand je teste la compilation, j'obtiens une erreur en ligne 7 : "Utilisation incorrecte de la propriété"

Code :

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

1
2
3
4
5
6
7
8
Private Sub Code_consignes_AfterUpdate()
Dim rst As dao.Recordset
Set rst = Me.Recordset
rst.AddNew
rst.Fields("code_article").Value = mavaleur
rst.Update
rst = Nothing
End Sub

Je n'ai peut-être simplement pas su utiliser le code

Bonjour,

Ce code doit être adapter à ta table. Les nom de champs de controles etc.

Ou le mettre :

Pour un déclenchement automatique il vaut mieux le placer derrière l'événement du controle qui contient l'information qui détermine si il y a consigne.

Sélectionne ce controle, dans les propriétés repère Après MAJ, clique sur le bouton avec les 3 points [...] et choisi Code, il t'ouvrira la fenêtre Visual Basic Editor. C'est entre les 2 lignes (SUB et End SUb) que tu placera le code.

Je ne maîtrise pas du tout les codes, sauf à peu près quand il est question de conditions !

Encore merci d'avance
Catherine

[cslbcg]

... que le champ "code_article" est sous la forme d'une zone de liste déroulante, ce qui pose peut-être problème.

Bonsoir,

Je viens d'essayer d'insérer ce code mais, quand je teste la compilation, j'obtiens une erreur en ligne 7 : "Utilisation incorrecte de la propriété"

Private Sub Code_consignes_AfterUpdate()
Dim rst As dao.Recordset
Set rst = Me.Recordset
rst.AddNew
rst.Fields("code_article").Value = mavaleur
rst.Update
rst = Nothing
End Sub

Je n'ai peut-être simplement pas su utiliser le code




Je ne maîtrise pas du tout les codes, sauf à peu près quand il est question de conditions !

Encore merci d'avance
Catherine

[loufab]

Oups !

C'est

Code :

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

Set rst = Nothing

[cslbcg]

ça ne marche pas
Je ne sais pas trop quoi faire... je reprendrai demain.
Bonne soirée et merci.

Oups !

C'est

Code :

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

Set rst = Nothing

[loufab]

le code que je t'ai fourni ne peut fonctionner sans une adaptation à ton cas et sans l'avoir étoffé.

C'est un exemple pour insérer un enregistrement dans les données d'un formulaire.

[cslbcg]

Je m'en doute bien un peu mais comment puis-je faire ?
Je ne connais pas les correspondances entre les codes et les actions !
Recordset, ça correspond à quoi ?
et mavaleur ?
Quels sont les types de paramètres à renseigner ?
Désolée si j'abuse de ta patience, mais j'aime bien comprendre !

le code que je t'ai fourni ne peut fonctionner sans une adaptation à ton cas et sans l'avoir étoffé.

C'est un exemple pour insérer un enregistrement dans les données d'un formulaire.

[loufab]

Je m'en doute bien un peu mais comment puis-je faire ?
Je ne connais pas les correspondances entre les codes et les actions !

Il faut les apprendre au fur et à mesure de tes besoins. En lisant les tutos par exemple. En construisant des macros que tu enregistres en module, pour en voir la traduction en VBA.

Recordset, ça correspond à quoi ?

Pour recordset et le code fourni il y a un peu de lecture ici http://warin.developpez.com/access/dao/

et mavaleur ?

mavaleur est la représentation que j'ai donné pour indiquer qu'il fallait mettre une valeur.

Code :

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

Quels sont les types de paramètres à renseigner ?

Je ne comprend pas ta question.

Désolée si j'abuse de ta patience, mais j'aime bien comprendre !

Il n'y rien à comprendre il faut apprendre. Malheureusement on ne peut pas te former à ACCESS, juste te donner des pistes, quelques solutions éventuellement du code, pas une solution complète vu la diversité d'une application.

Commence par acheter un bon bouquin genre bible qui traite de tout ce que va rencontrer dans ACCESS et pour bien comprendre l'interaction :
Table,
Requete,
Formulaire,
Etat,
VBA

Lis également le tuto sur les événements. C'est le coeur des formulaires tu comprendra mieux comment faire réagir un formulaire.

[cslbcg]

Je vais me débrouiller mais je maintiens qu'il y a tout de même des choses à comprendre, ne serait-ce que les fondements de la syntaxe !

Si j'ai fait appel à ce forum, c'est que je manque de temps pour apprendre par rapport à une échéance précise, c'est pour cela que je cherche de l'aide, pour essayer de gagner un peu de temps.

Merci.

[loufab]

Voici le code commenté.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Code_consignes_AfterUpdate()
Dim rst As dao.Recordset  'déclare le recordset
Set rst = Me.Recordset    'instancie le recordset du formulaire courant à la variable 
rst.AddNew   ' se positionne sur le nouvel enregistrement
rst.Fields("code_article").Value = mavaleur ' copie la valeur dans le champ Code_Article
...   ' d'autre copie
rst.Update  ' sauve les données
SET rst = Nothing   ' vide la déclaration
End Sub

Note que dans le tuto DAO que je t'ai aimablement conseillé de lire tu aurais trouvé la même chose et même plus.

Je regrette que tu prennes la chose de cette manière mais je ne suis en rien responsable de ton manque de temps ni de ton échéance, même si je comprend ton agacement.

Cordialement,

[cslbcg]

Oh, ce n'était pas de l'agacement, juste de la fatigue !

Merci pour ces explications supplémentaires.
J'ai effectivement regardé le tuto DAO et j'avais commencé à cerner le sujet, tu me confirmes ce que j'avais compris.

Merci et bonne semaine
Bien cordialement

Catherine

Voici le code commenté.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Code_consignes_AfterUpdate()
Dim rst As dao.Recordset  'déclare le recordset
Set rst = Me.Recordset    'instancie le recordset du formulaire courant à la variable 
rst.AddNew   ' se positionne sur le nouvel enregistrement
rst.Fields("code_article").Value = mavaleur ' copie la valeur dans le champ Code_Article
...   ' d'autre copie
rst.Update  ' sauve les données
SET rst = Nothing   ' vide la déclaration
End Sub

Note que dans le tuto DAO que je t'ai aimablement conseillé de lire tu aurais trouvé la même chose et même plus.

Je regrette que tu prennes la chose de cette manière mais je ne suis en rien responsable de ton manque de temps ni de ton échéance, même si je comprend ton agacement.

Cordialement,