Discussion :

[r.mehdi]

Bonjour, bon avant de poser Mon Probleme je veux Remercier 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 :

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
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

[ThierryAIM]

C'est cette requête qui te fait souci ?

sql1= "select Commande.*, into archivecde from " & _
" commande, reglement where " & Reglement.numc_reg=Commande.numc_cde and " & _ 'jointure
" reglement.numc_reg='" & Combo2 & "'"

Si oui, c'est quoi ce commentaire 'jointure en plein milieu de la requête ??!!

[r.mehdi]

C'est cette requête qui te fait souci ?

Si oui, c'est quoi ce commentaire 'jointure en plein milieu de la requête ??!!

ah non ce Commentaire Ne dois pas etre laba

[r.mehdi]

bon le role de SELECT INTO c'est creer juste une une table ou creer une table avec des enregistrements?

[Vld44]

Mehdi,

Les tutoriels et autres faq sont là pour répondre à ce type de question.
Merci de ta compréhension,

Seb