Discussion :

[morobaboumar]

Bonsoir membre du forum,
Mon code de sauvegarde n'insert pas les informations de tirage de reçu dans la table INFO_TIRAGE_RECU_PAY_FA dont voici les champs:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Compare Database
Option Explicit
Dim kPrinted As Integer
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
   If f_FraisAnnexes_GlobauxParentAnScol _
   (Me.idecoleFA, Me.[AnneeScolaire_FA], Me.MlePa_FA, Me.IdParentResp_FA) _
   - f_FraisAnnexesGlobauxPayesParentAnScol _
   (Me.idecoleFA, Me.[AnneeScolaire_FA], Me.MlePa_FA, Me.IdParentResp_FA) > 0 Then
Me.txtSoldeFA = "RESTE UN MONTANT A PAYER !"
        Me.txtSoldeFA.ForeColor = 255
    Else
        Me.txtSoldeFA = "FRAIS ANNEXES SOLDES."
        Me.txtSoldeFA.ForeColor = 6723891
    End If
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
Private Sub EntêteÉtat_Print(Cancel As Integer, PrintCount As Integer)
        kPrinted = kPrinted + 1
    '--- ainsi au moment de l'aperçu kPrinted = 1
    '--- ensuite à chaque impression kPrinted est incrémenté de 1
    If kPrinted = 2 Then
        EnregistrerRecuFA
    End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub EnregistrerRecuFA()
    Dim sql As String
    Dim idTirage As Long
    Dim n°Tirage As Integer
    idTirage = DMax("identifiantTirageFA", "INFO_TIRAGE_RECU_PAY_FA") + 1
    n°Tirage = Nz(DMax("Nombre_Tirage", "INFO_TIRAGE_RECU_PAY_FA", "NumRECUFA = " & Me.numpayementFA & " And  IdEcoleFA = " & Me.idecoleFA))
    sql = "INSERT INTO INFO_TIRAGE_RECU_PAY_FA(identifiantTirageFA, NumRECUFA, Date_TirageFA, Nombre_TirageFA, TypedeRecuFA, MontantVerseFA, mlePaFA, IdEcoleFA)" & _
         " VALUES (" & idTirage & ", " & Me.numpayementFA & ",'" & Now() & "', " & n°Tirage + 1 & ",'ORIGINAL'," & Me.montantFA_Verse & ", " & Me.MlePa_FA & ", " & Me.idecoleFA & " );"
    If n°Tirage > 0 Then
        sql = Replace(sql, "ORIGINAL", "DUPLICATA")
    End If
    CurrentDb.Execute sql, dbFailOnError
End Sub

Cordialement.

[Jean-Philippe André]

salut,

les champs date ont des valeurs incluses dans des #, comme par exemple #2024/01/19#.

Ensuite, pour mieux comprendre les erreurs, une des pistes à utiliser est de simplement recopier le contenu SQL de ta requête et de tenter de l'exécuter manuellement dans une nouvelle rquête.

En cas d'erreur, tu sauras sur quel(s) champ(s) tu as des erreurs de valeurs.

[morobaboumar]

Bonjour JFA, bonjour membres du forum,
Je vous poste une piece jointe de mon application afin trouver pourquoi l'enregistrement des infos de tirages des
reçus ne fait pas dans la table INTO INFO_TIRAGE_RECU_PAY_FA.
Cordialement.

[morobaboumar]

salut,

les champs date ont des valeurs incluses dans des #, comme par exemple #2024/01/19#.

Ensuite, pour mieux comprendre les erreurs, une des pistes à utiliser est de simplement recopier le contenu SQL de ta requête et de tenter de l'exécuter manuellement dans une nouvelle rquête.

En cas d'erreur, tu sauras sur quel(s) champ(s) tu as des erreurs de valeurs.

Bonjour JFA, bonjour membres du forum,
J'ai reproduit les conseils donnés par JFA.
Voici la suite (voir images):





Cordialement

[Jean-Philippe André]

Salut,

en fait il faut récupérer la valeur en chaine de caractères resultat de ton SQL, pas le code VBA

Tu peux l'obtenir avec un simple

Code :

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

Debug.Print sql

[morobaboumar]

Tu peux l'obtenir avec un simple

Code :

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

Debug.Print sql

Où le place t'on ?

[Jean-Philippe André]

Salut,

entre l'assignation de ta variable et son execution, donc avant

Code :

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

CurrentDb.Execute sql, dbFailOnError

Ca affichera le resultat dans la fenetre d'exécution.

Il faudra nous recopier le tout ici, on pourra constater les erreurs déjà évoquées

[morobaboumar]

Bonjour JFA,
J'ai suivi vos conseils mais
pas de réponse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
.Private Sub EnregistrerRecuFA()
 
Dim sql As String
    Dim idTirage As Long
    Dim n°Tirage As Integer
    idTirage = DMax("identifiantTirageFA", "INFO_TIRAGE_RECU_PAY_FA") + 1
    n°Tirage = Nz(DMax("Nombre_TirageFA", "INFO_TIRAGE_RECU_PAY_FA", "NumRECUFA = " & Me.numpayementFA & " And  idecoleFA = " & Me.IdEcoleFA))
    sql = "INSERT INTO INFO_TIRAGE_RECU_PAY_FA(identifiantTirageFA, NumRECUFA, Date_TirageFA, Nombre_TirageFA, TypedeRecuFA, MontantVerseFA, mlePaFA, IdEcoleFA)" & _
         " VALUES (" & idTirage & ", " & Me.numpayementFA & ",'" & Now() & "', " & n°Tirage + 1 & ",'ORIGINAL'," & Me.montantFA_Verse & ", " & Me.MlePa_FA & ", " & Me.IdEcoleFA & " );"
    If n°Tirage > 0 Then
        sql = Replace(sql, "ORIGINAL", "DUPLICATA")
    End If
'____________________________________
Debug.Print sql
'_____________________________________
 
    CurrentDb.Execute sql, dbFailOnError
End Sub

Cordialement.

[Jean-Philippe André]

Salut,
La réponse est dans ta fenêtre d'exécution de VBE....
https://access.developpez.com/faq/?p...ug#DebugWindow

[morobaboumar]

Bonsoir membres du forum,
Finalement, j'ai opté pour une autre méthode qui marche.
Je laisse une copie de la pièce jointe à votre appréciation.




Pièce jointe 656445