Problème d'ouverture d'une Table de la BD

Bonjour l'Ami


L'application sur laquelle que je travaille, consiste à gèrer les stocks
des produits ( Achats, Réception, Consommations )

Elle est développée, comme vous le saviez, dans un environnement de VB 6, liée à Access 2007 grâce à ADO
les requêtes se faisait grâce à la SQL


Mon problème est que Une Table ( TableCumulAchats ) ne s'ouvre pas pour permettre au processus de recalculer les nouvelles variables de se réaliser


La structure de mon application est comme suite :


La BD qui contient :

TableAchats
TableCumulAchats

TableReceptionMagasin
TableCumulReceptionMagasin

TableConsommations
TableCumulConsommations

TableStock


Les Feuilles de saisies ( Forms ) sont structurées comme suite :

Feuille de saisie Achats - Reception

Feuille de Recherche Achats ( Qui me renvoie vers la Feuille de mise à jour Achats)

Feuille de Recherche Reception ( Qui me renvoie vers la feuille de mise à jour Reception )


Feuille de Consultation des Achats

Feuille de Consultation des Reception

Feuille de Consultation des Stocks



L'Etape de saisie est réalisée sans problème

A ce moment , je suis bloqué au niveau de la mise à jour ( Suppression et Modification )
Une fois je clique sur le Bouton Supprimer la ligne concerné de la TableAchats disparue
mais la TableCumulAhats ne s'ouvre pas pour recalculer le nouvelles variables

Toutes vos remarques seront les bienvenues

Merci de me guider vers le bon sens




sur le Bouton Supprimer j'ai écris les code suivants

Private Sub cmdSuprimer_Click()


If NOrdre = TNOrdre Then

GoTo Executer:

End If


Executer:


MsgSupression = MsgBox("Voulez vous vraiment suprimer Ces données ?", vbQuestion + vbMsgBoxRight + vbYesNo)


If MsgSupression = vbYes Then



SQLs = "select * from TableAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' )"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


RS.Delete



RS.Close

'----------------

'--Mt par Fournisseur

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodeFou= " & CDbl(VarCodeFou) & " )"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS![CumulMtAchatFournisseur] <> 0 Then
RS.MoveLast
VarCumulMtAchatFournisseur = RS![CumulMtAchatFournisseur]
Else
VarCumulMtAchatFournisseur = 0
End If
RS.Close



'--Qte et Mt du pdt par Fournisseur


SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodeFou= " & CDbl(VarCodeFou) & " and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS![CumulQtePdtAchatFournisseur] <> 0 Then
RS.MoveLast
VarCumulQtePdtAchatFournisseur = RS![CumulQtePdtAchatFournisseur]
Else
VarCumulQtePdtAchatFournisseur = 0
End If


If RS![CumulMtPdtAchatFournisseur] <> 0 Then
RS.MoveLast
VarCumulMtPdtAchatFournisseur = RS![CumulMtPdtAchatFournisseur]
Else
VarCumulMtPdtAchatFournisseur = 0
End If
RS.Close



'--Qte et Mt par Mois

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and Mois=#" & Format(VarDateOp, "mm/yyyy") & "# and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS![CumulQtePdtAchatMois] <> 0 Then
RS.MoveLast
VarCumulQtePdtAchatMois = RS![CumulQtePdtAchatMois]
Else
VarCumulQtePdtAchatMois = 0
End If

If RS![CumulMtPdtAchatMois] <> 0 Then
RS.MoveLast
VarCumulMtPdtAchatMois = RS![CumulMtPdtAchatMois]
Else
VarCumulMtPdtAchatMois = 0
End If
RS.Close


'---Qte et Mt par Campagne

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS![CumulQtePdtAchatCampagne] <> 0 Then
RS.MoveLast
VarCumulQtePdtAchatCampagne = RS![CumulQtePdtAchatCampagne]
Else
VarCumulQtePdtAchatCampagne = 0
End If

If RS![CumulMtPdtAchatCampagne] <> 0 Then
RS.MoveLast
VarCumulMtPdtAchatCampagne = RS![CumulMtPdtAchatCampagne]
Else
VarCumulMtPdtAchatCampagne = 0
End If
RS.Close

'----Mt par Campagne

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' )"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS![CumulMtAchatCampagne] <> 0 Then
RS.MoveLast
VarCumulMtAchatCampagne = RS![CumulMtAchatCampagne]
Else
VarCumulMtAchatCampagne = 0
End If
RS.Close







'Calcul de la Variable

Dim CaVarCumulMtAchatFournisseur As Double


CaVarCumulMtAchatFournisseur = VarCumulMtAchatFournisseur
CaVarCumulMtAchatFournisseur = CaVarCumulMtAchatFournisseur - VarMontant

VarCumulMtAchatFournisseur = CaVarCumulMtAchatFournisseur

VarCumulMtAchatFournisseur = Format(VarCumulMtAchatFournisseur, "#,##0.00")


'---Qte et Mt par Fournisseur


Dim CaVarCumulQtePdtAchatFournisseur As Double


CaVarCumulQtePdtAchatFournisseur = VarCumulQtePdtAchatFournisseur
CaVarCumulQtePdtAchatFournisseur = CaVarCumulQtePdtAchatFournisseur - VarQuantite

VarCumulQtePdtAchatFournisseur = CaVarCumulQtePdtAchatFournisseur

VarCumulQtePdtAchatFournisseur = Format(VarCumulQtePdtAchatFournisseur, "#,##0.00")



Dim CaVarCumulMtPdtAchatFournisseur As Double


CaVarCumulMtPdtAchatFournisseur = VarCumulMtPdtAchatFournisseur
CaVarCumulMtPdtAchatFournisseur = CaVarCumulMtPdtAchatFournisseur - VarMontant
VarCumulMtPdtAchatFournisseur = CaVarCumulMtPdtAchatFournisseur

VarCumulMtPdtAchatFournisseur = Format(VarCumulMtPdtAchatFournisseur, "#,##0.00")


'--Qte et Mt par Mois

Dim CaVarCumulQtePdtAchatMois As Double


CaVarCumulQtePdtAchatMois = VarCumulQtePdtAchatMois
CaVarCumulQtePdtAchatMois = CaVarCumulQtePdtAchatMois - VarQuantite

VarCumulQtePdtAchatMois = CaVarCumulQtePdtAchatMois

VarCumulQtePdtAchatMois = Format(VarCumulQtePdtAchatMois, "#,##0.00")



Dim CaVarCumulMtPdtAchatMois As Double


CaVarCumulMtPdtAchatMois = VarCumulMtPdtAchatMois
CaVarCumulMtPdtAchatMois = CaVarCumulMtPdtAchatMois - VarMontant
VarCumulMtPdtAchatMois = CaVarCumulMtPdtAchatMois

VarCumulMtPdtAchatMois = Format(VarCumulMtPdtAchatMois, "#,##0.00")

'---Qte et Mt par Campagne

Dim CaVarCumulQtePdtAchatCampagne As Double


CaVarCumulQtePdtAchatCampagne = VarCumulQtePdtAchatCampagne
CaVarCumulQtePdtAchatCampagne = CaVarCumulQtePdtAchatCampagne - VarQuantite
VarCumulQtePdtAchatCampagne = CaVarCumulQtePdtAchatCampagne

VarCumulQtePdtAchatCampagne = Format(VarCumulQtePdtAchatCampagne, "#,##0.00")



Dim CaVarCumulMtPdtAchatCampagne As Double


CaVarCumulMtPdtAchatCampagne = VarCumulMtPdtAchatCampagne
CaVarCumulMtPdtAchatCampagne = CaVarCumulMtPdtAchatCampagne - VarMontant

VarCumulMtPdtAchatCampagne = CaVarCumulMtPdtAchatCampagne

VarCumulMtPdtAchatCampagne = Format(VarCumulMtPdtAchatCampagne, "#,##0.00")

'----Mt par Campagne


Dim CaVarCumulMtAchatCampagne As Double


CaVarCumulMtAchatCampagne = VarCumulMtAchatCampagne
CaVarCumulMtAchatCampagne = CaVarCumulMtAchatCampagne - VarMontant
VarCumulMtAchatCampagne = CaVarCumulMtAchatCampagne

VarCumulMtAchatCampagne = Format(VarCumulMtAchatCampagne, "#,##0.00")


'------------------------------------------------------------------------


'---le cas de la BD vide

SQLs = "select * from TableAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodeFou=" & CDbl(VarCodeFou) & " and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS.RecordCount = 0 Then

GoTo Sortir:

End If


RS.Close



SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodeFou=" & CDbl(VarCodeFou) & " and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS.RecordCount = 0 Then

GoTo Sortir1:

End If


RS.Close





'--------Enregistrement


'--Mt par fournisseur

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodeFou= " & CDbl(VarCodeFou) & " )"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

RS.MoveLast
RS![CumulMtAchatFournisseur] = VarCumulMtAchatFournisseur
RS.Update
RS.Close



'--Qte et Mt par Fournisseur


SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodeFou= " & CDbl(VarCodeFou) & " and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

RS.MoveLast
RS![CumulQtePdtAchatFournisseur] = VarCumulQtePdtAchatFournisseur
RS![CumulMtPdtAchatFournisseur] = VarCumulMtPdtAchatFournisseur
RS.Update
RS.Close


'---Qte et Mt par Mois

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and Mois=#" & Format(VarDateOp, "mm/yyyy") & "# and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


RS.MoveLast
RS![CumulQtePdtAchatMois] = VarCumulQtePdtAchatMois
RS![CumulMtPdtAchatMois] = VarCumulMtPdtAchatMois
RS.Update
RS.Close


'---Qte et Mt par Campagne

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' and CodePdt=" & CDbl(VarCodePdt) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

RS.MoveLast
RS![CumulQtePdtAchatCampagne] = VarCumulQtePdtAchatCampagne
RS![CumulMtPdtAchatCampagne] = VarCumulMtPdtAchatCampagne
RS.Update
RS.Close


'---Mt par campagne

SQLs = "select * from TableCumulAchats where (Campagne='" & CStr(lblCampagne) & "' and Societe='" & CStr(lblSociete) & "' )"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

RS.MoveLast
RS![CumulMtAchatCampagne] = VarCumulMtAchatCampagne
RS.Update
RS.Close



'---------------------------------------------------------------
FRechercheSaisieAchat.Show

Unload Me



Else

FRechercheSaisieAchat.Show

Unload Me




End If









Sortir:
Sortir1:

MsgBox "Une Opération d'Achat est Supprimée. La Correction de la Réception correspondante est nécessaire !", vbInformation + vbMsgBoxRight, "Important !"



FRechercheSaisieReception.Show

Unload Me

FRechercheSaisieReception.lblLettrage = "la ligne à corriger porte le (L) N° :"
FRechercheSaisieReception.lblLettrageN = VarNordre
FRechercheSaisieReception.lblLettrage.Visible = True
FRechercheSaisieReception.lblLettrageN.Visible = True



End Sub