Discussion :

[r.mehdi]

slt bon j'utilise SQl Pour l'ajout (Insert into) dans mes table ainsi la Suppression (Delete ) et la Modification (Update)
Bon voila Mon Probleme qui j'ai pas pu le resoudre Malgré que Ma requette suppression est juste
J'ai une table REGLEMENT qui porte (N°reglement, Date Reglement, N°commande, Mode Reglement(espece ou Cheque), Reference cheque, Nom de la banque, Montant , Montant Resté)
Bon voila les champs de mes tables
Remarque
comme vous voyez le Mode reglement porte (Espece ou cheque)
si cheque il doit remplir que le Champs Montant Sinon il doit remplir le Montant plus Reference cheque et Nom de la banque
Le Probleme que je dois Supprimer En enregistrement du Table Reglement Apres que je valide Dans la Table LIVRAISON
Voila code

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub Combo1_load()
'Chargement que les N°commande Reglé (Montant Resté=0) 
SQL = "select numc_reg from reglement where reste_reg = 0 order by numc_reg"
Set E_sql = Base.OpenRecordset(SQL)
With E_sql
Combo1.Clear
If Not .EOF Then .MoveFirst
While Not .EOF
Combo1.AddItem !numc_reg
.MoveNext
Wend
End With
End Sub
'********
Private Sub Form_Load()
Ouverture 'Ouverture Du B.d
Call Combo1_load        'Chargement Du N°commande
En sub
'********
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case Is = 1       
va = MsgBox("Voulez Vous vraiment" & Chr(13) & "Valider Ses Données??", vbYesNo + vbInformation + vbMsgBoxRight, "Validation")
If va = 6 Then
'Validation du données dans la Table Livraison
SQL = "insert into livraison(date_bl, numc_bl, np_bl, mat_bl, numcarte_bl)" & _
" values(#" & MaskEdBox1 & "# , '" & Combo1 & "' , '" & Text1 & "' , '" & Text2 & "' ," & _
" '" & Text3 & "')"
Base.Execute SQL
Call Effacertout
 
'*********
 
'Suppression des Données Du table Reglement a Condition que la Commande sois Réglée(Montant resté=0)
SQL = "delete * from reglement where numc_reg='" & Combo1 & "' and reste_reg=0"
Base.Execute SQL
Call Combo1_load
End If
End Select

tout passe bien quand je valide il me sorte aucun deboguage mais quand je verifie la table je vois que l'enregistrement n'est pas supprimi
ou es le probleme dans ma requette? Svp pourrez vous m'aidez??

[Delbeke]

Il faudrait vérifier le type de champs pour numc_reg. Je suppose qu'il est numérique. Si c'est bien le cas, ta requête devrait être

Code :

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

SQL = "delete * from reglement where numc_reg=" & Combo1 & " and reste_reg=0"

De toute façon, il serait judicieux de faire un

Code :

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

debug.print SQL

Pour vérifier que ta requête est bien celle que tu veux faire exécuter.

[r.mehdi]

Mon champs NUMC_REG N'est Pas numerique il est de type text j'ai fais le code (debug.print sql) que tu m'as Donnée il m'a rien affiché sa veux dire que ma requette est juste mais pourkoi il execute pas la suppression

[Delbeke]

Bon, encore une fois, il est necessaire de vérifier tes connaissance de vb avec les tutoriel fournis dans ce site
Un debug.Print MaVariable affiche le contenu de MaVariable dans la fenêtre d'exécution. Donc Debug.Print Sql Doit afficher le contenu de la variable SQL. Encore faut il qu'elle contienne quelque chose au momment du debug.print

Sinon utilise Access et fais lui exécuter ta requete. Il est possible que pour cause de relations d'intégrité la suppression soit refusée par ACCESS.

Exemple : on peut programmer une relation sécifiant qu'on ne supprime pas un code de réglement si ce code réglement est utilisé dans une fiche client.

[r.mehdi]

ok on peut modifier ma requette

Code :

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

1
2
 
SQL = "delete * from reglement where numc_reg='" & Combo1 & "'"

parceque dans N°commande(numc_reg) j'ai chargé que les Commande qui ont reglé (reste_reg=0)
mais maleuresement il me donne la meme resulta
ainsi quand j'ai fé debug.Print sql
il m'affiche delete * from reglement where numc_reg=' '
sa veux dire que numc_reg est vide??

[Delbeke]

Cà veut dire que combo1 est vide