probleme En sql Select Into pour effectuer l'archivage des Commandes
Bonjour, bon avant de poser Mon Probleme je veux Remercier :D infinement tous les Membres de ce fromidable Forums pour leurs grand effort a resoudre des Probleme des posteurs :)
Bon mon probleme c'est que je veux archiver Les Commande des Clients automatiquement apres que le client a regler sa Commande
Voila j'ai 2 table (Commande , Reglement)
premierement effectue la Commande Pour le Client sa depent son choix
2eme le client dois Payé si il regle toutes sa Commande cette derniere doit etre Archiver
voila Requette sql
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
|
Private Sub Ajout_Click()
va = MsgBox("Voulez_vous Vraiment Valider La Commande??", vbYesNo + vbInformation, "VALIDATION")
If va = 6 Then
If Text5 = 0 Then 'Le reste a Payé=0 sa veux dire que Le Client a Tout Regler
'**************
'archivage des Commandes
sql1= "select Commande.*, into archivecde from " & _
" commande, reglement where Reglement.numc_reg=Commande.numc_cde and reglement.numc_reg='" & Combo2 & "'"
base.Execute sql1
'***************
'suppression de la Commande dans les tables Commmande et Contient
'a condition que la commande a été reglée
sql3 = "delete commande.* from reglement, commande where " & _
" commande.num_cde=reglement.numc_reg and reglement.numc_reg='" & Combo2 & "'"
base.Execute sql3
End If
'Ajout Des données
SQL = "insert into reglement values('" & Combo1 & "' , #" & MaskEdBox1 & "# , '" _
& Combo2 & "' , '" & Combo3 & "' , '" & Text1 & "' , '" & Text2 & "' , " & Text4 & " , " & Text3 & ")"
base.Execute SQL
End If
End Sub |
Bon Pour L'ajout dans la table et la Suppression et la Modification sa se Passe Bien aussi
Mais je trouve juste difficulté sur L'archivage il me donne la table Vide:(
svp Pourriez vous M'aider sur ca
