Demande d'aide pour la création d'un code VBA entre 2 tables

Version imprimable

Voir 40 message(s) de cette discussion en une page

Citation:

Je n'avais pas vu la modification, mais rien ne se passe toujours au nouveau des mouvements en attentes qui ne se décochent pas malgré le chèque validé en encaissement.

C'est de ma faute, une étourderie avec les apostrophes autour de NumChqEncaisse :
Code:

1 2 3 db.Execute ("Update Cheques INNER JOIN (Mouvements) ON Cheques.NumChq=Mouvements.NumChq" _ & " SET Mouvements.EnAttente=No " _ & " WHERE Mouvements.NumChq=""" & NumChqEncaisse & """;")

Citation:
Envoyé par tee_grandbois
C'est de ma faute, une étourderie avec les apostrophes autour de NumChqEncaisse :
Code:

1 2 3 db.Execute ("Update Cheques INNER JOIN (Mouvements) ON Cheques.NumChq=Mouvements.NumChq" _ & " SET Mouvements.EnAttente=No " _ & " WHERE Mouvements.NumChq=""" & NumChqEncaisse & """;")
C'est merveilleux tout est en ordre.
Ceci est superbe pour l'automatisation de la base.

Il me reste plus qu'à regarder pour l'autre code qui pose problème, afin d'éviter des erreurs sur la base par la suite.

Merci à marot, et à tee-Grandbois pour votre aide.

Maintenant je vais voir pour mes autres discussions posées sur le forum, si j'arrive à obtenir des réponses aussi concluantes.

Bien cordialement,
Benjamin.

1 pièce(s) jointe(s)

Bon concernant le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Form_AfterUpdate()
If Not IsNull(Me.Mouvements_sous_formulaire.Form.DateMvt) And IsNull(Me.Mouvements_sous_formulaire.Form.LibelleMvt) Then
    MsgBox "Vous avez oublié de saisir un libellé !"
    Me.Mouvements_sous_formulaire.Form.LibelleMvt.SetFocus
End If
If Not IsNull(Me.Mouvements_sous_formulaire.Form.DateMvt) And IsNull(Me.Mouvements_sous_formulaire.Form.MontantMvt) Then
    MsgBox "Vous avez oublié de saisir un montant !"
    Me.Mouvements_sous_formulaire.Form.MontantMvt.SetFocus
End If
If Not IsNull(Me.Mouvements_sous_formulaire.Form.DateMvt) And IsNull(Me.Mouvements_sous_formulaire.Form.Paiement) Then
    MsgBox "Vous avez oublié de saisir un moyen de paiement !"
    Me.Mouvements_sous_formulaire.Form.Paiement.SetFocus
End If
If Not IsNull(Me.Mouvements_sous_formulaire.Form.DateMvt) And IsNull(Me.Mouvements_sous_formulaire.Form.CodeJrnl) Then
    MsgBox "Vous avez oublié de saisir un code de journal!"
    Me.Mouvements_sous_formulaire.Form.CodeJrnl.SetFocus
End If
If Not IsNull(Me.Mouvements_sous_formulaire.Form.DateMvt) And IsNull(Me.Mouvements_sous_formulaire.Form.CodeSsJrnl) Then
    MsgBox "Vous avez oublié de saisir un code de sous journal!"
    Me.Mouvements_sous_formulaire.Form.CodeSsJrnl.SetFocus
End If
If (Me.Mouvements_sous_formulaire.Form.Transaction) = "Chèque" And IsNull(Me.Mouvements_sous_formulaire.Form.NumChq) Then
    MsgBox "Vous avez oublié de saisir le numéro de chéque correspondant!"
    Me.Mouvements_sous_formulaire.Form.NumChq.SetFocus
End If
End Sub

Le problème devait venir qu'il était mal placé, il se trouvait dans le formulaire mouvement par journal et non dans le mouvement sous formulaire.

Donc après l'avoir MAJ du sous formulaire, dès que je mets une date j'ai ce message d'erreur qui s'affiche :
Pièce jointe 343700

Pourriez-vous me dire d'où peut venir le problème svp ?

Encore ^merci pour vos aides.

Bien cordialement,
Benjamin.

18/01/2018, 19h18
tee_grandbois

Citation:

Le problème devait venir qu'il était mal placé, il se trouvait dans le formulaire mouvement par journal et non dans le mouvement sous formulaire.

dans ce cas, il faut corriger le code en conséquence : si le code a été réinjecté dans le sous-formulaire, il faut enlever la référence au sous-formulaire :
Me.~~Mouvements_sous_formulaire.Form.~~
Mais un sous-formulaire n'a pas d'évènement Form_AfterUpdate actif

Citation:

Envoyé par tee_grandbois

dans ce cas, il faut corriger le code en conséquence : si le code a été réinjecté dans le sous-formulaire, il faut enlever la référence au sous-formulaire :
Me.~~Mouvements_sous_formulaire.Form.~~
Mais un sous-formulaire n'a pas d'évènement Form_AfterUpdate actif

Formidable, le code fonctionne.

J'ai deux petites questions au niveau du code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Private Sub Form_AfterUpdate() If Not IsNull(Me.DateMvt) And IsNull(Me.LibelleMvt) Then MsgBox "Vous avez oublié de saisir un libellé !" Me.LibelleMvt.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.MontantMvt) Then MsgBox "Vous avez oublié de saisir un montant !" Me.MontantMvt.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.Paiement) Then MsgBox "Vous avez oublié de saisir un moyen de paiement !" Me.Paiement.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.CodeJrnl) Then MsgBox "Vous avez oublié de saisir un code de journal!" Me.CodeJrnl.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.CodeSsJrnl) Then MsgBox "Vous avez oublié de saisir un code de sous journal!" Me.CodeSsJrnl.SetFocus End If If (Me.Paiement) = "Chèque" And IsNull(Me.NumChq) Then MsgBox "Vous avez oublié de saisir le numéro de chéque correspondant!" Me.NumChq.SetFocus End If If (Me.Paiement) = "Chèque" Or (Me.Paiement) = "Espèces" Or (Me.Paiement) = "Espèces et chèque" Then Me.EnAttente = True End If If (Me.CodeJrnl) <> (Me.CodeSsJrnl) Then MsgBox "Le code Journal ne corresponds pas au code sous journal" End If End Sub
1. Est-il possible de rassembler la boîte de dialogue en une seule boite de dialogue afin d’éviter de cliquer plusieurs fois sur les différents messages lorsqu'on oublie plusieurs champs à remplir ?

2. Existe-t-il un code afin de prendre en compte que les lettres du CodeSsJrnal c'est-à-dire ne prendre que "ADEP" sur le sous-journal "ADEP01" afin que le CodeJrnl correspond toujours à ce dernier.
C'est pour ceci que j'ai rajouté la dernière ligne du code afin d'attribuer par la suite les lettres du sous-journal.

Encore merci pour les réponses en tout cas.

Bien cordialement,
Benjamin.

19/01/2018, 00h15
tee_grandbois
Citation:

1. Est-il possible de rassembler la boîte de dialogue en une seule boite de dialogue afin d’éviter de cliquer plusieurs fois sur les différents messages lorsqu'on oublie plusieurs champs à remplir ?

On peut jouter un Exit Sub après chaque contrôle, cela arrêtera le code à la première erreur rencontrée :
Code:

1 2 3 4 5 If Not IsNull(Me.DateMvt) And IsNull(Me.LibelleMvt) Then MsgBox "Vous avez oublié de saisir un libellé !" Me.LibelleMvt.SetFocus Exit Sub End If
19/01/2018, 11h43
Jiben59

2 pièce(s) jointe(s)
Citation:
Envoyé par tee_grandbois

On peut jouter un Exit Sub après chaque contrôle, cela arrêtera le code à la première erreur rencontrée :

Code:

1 2 3 4 5 If Not IsNull(Me.DateMvt) And IsNull(Me.LibelleMvt) Then MsgBox "Vous avez oublié de saisir un libellé !" Me.LibelleMvt.SetFocus Exit Sub End If
Salut tee_grandbois,

Effectivement, c'est plus rapide, et plus simple au niveau codage. Et ceci évite de cliquer plusieurs fois sur les cases "Ok".

Donc pour mon dernier point, ce que je souhaite, c'est que le code Journal se met automatiquement à jour en fonction du sous-journal choisi lors de l'enregistrement de la ligne de mouvement.
C'est à dire si je rentre le CodeSsJrnl "ADEP02", qu'il indique comme CodeJrnl "ADEP", c'est-à-dire qui ne prends pas les chiffres.

Mes codes journal sont les suivants :
Pièce jointe 343838
-
La tables des codes sous-journaux se compose de la façon suivante :
Reprise des lettres du code journal + 2 chiffres.
Voici un exemple :
Pièce jointe 343842

C'est pour que ceci que je souhaite trouver un code qui ne prend que les caractères, car un code journal se compose de 3 ou 4 lettres donc le code suivant (Me.CodeJrnl) = Me.CodeSsJrnl(####) ne vas pas pouvoir fonctionner.

Merci pour votre aide en tout cas.

Bien cordialement,
Benjamin.
19/01/2018, 14h49
tee_grandbois
Bonjour,
essaie ce code :
Code:

1 2 3 If (Me.CodeJrnl) <> Left(Me.CodeSsJrnl, Len(Me.CodeJrnl)) Then MsgBox "Le code Journal ne correspond pas au code sous journal" End If
le principe est de comparer les n premiers caractères du code sous-journal avec le code journal et où n correspond à la longueur du code journal.
19/01/2018, 16h24
Jiben59
Citation:
Envoyé par tee_grandbois

Bonjour,
essaie ce code :

Code:

1 2 3 If (Me.CodeJrnl) <> Left(Me.CodeSsJrnl, Len(Me.CodeJrnl)) Then MsgBox "Le code Journal ne correspond pas au code sous journal" End If

le principe est de comparer les n premiers caractères du code sous-journal avec le code journal et où n correspond à la longueur du code journal.
Le code de contrôle fonctionne à merveille.

Mais je viens de me dire, au final pourquoi faire un code de contrôle au lieu d'exécuter cette tâche automatiquement, au lieu de l'exécuter manuellement.
C'est-à-dire si le CodeSsJrnl est ADEPXX alors il indique ADEP en CodeJrnl, de même pour AREVXX, il indique directement AREV.

Comme énoncé au préalable, un code journal se compose de trois ou quatre lettres suivit de deux chiffres.
Donc je pars sur un code qui commence par la droite, à partir du troisième caractère il débute l'extraction des caractères afin d'éliminer les deux chiffres.

J'aurais fait ceci en code :

Code:

(Me.CodeJrnl) = Right(Me.CodeSsJrnl, 3)

Mais peut-on mettre ceci dans la même procédure aussi ? Car il faut déclarer les variables des champs.

Encore merci pour ton aide.

Bien cordialement,
Benjamin.
19/01/2018, 16h56
tee_grandbois

S'il te plait, peux-tu ouvrir un autre discussion ? celle-ci n'en finit plus .... :weird:
je pense que tu as reçu pas mal de réponses pour la marquer comme :resolu:
19/01/2018, 17h25
Jiben59

Citation:

Envoyé par tee_grandbois

S'il te plait, peux-tu ouvrir un autre discussion ? celle-ci n'en finit plus .... :weird:
je pense que tu as reçu pas mal de réponses pour la marquer comme :resolu:

Je suis d'accord avec vous. Mais j'avais peur de faire doublon, mais aussi de partir hors sujet sur cette discussion.

Donc j'ai créé une nouvelle discussion :
https://www.developpez.net/forums/d1...e/#post9933872

Bien cordialement,
Benjamin.

Voir 40 message(s) de cette discussion en une page