Discussion :

[fscli]

salut
j'ai un formulaire dans lequel se trouve 3 sous formulaires
j'ai crée un bouton Supprimer enregistrement
et je voudrais qu'il supprime les lignes des tables de mes 3 sous-formulaires et celle de mon formulaire.
Celui crée directement avec l'assistant Access me donne le message d'erreur Suppression impossible car un sous formulaire comprend des enregistrements connexes.

j'avais pensé mettre ce 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
Private Sub bc_supprimer_Click()
Dim Sql As String
If MsgBox("Etes vous sûr ?", vbYesNo + vbCritical, "Suppression") = vbNo Then Exit Sub
 
Sql = " DELETE Table1.* FROM Table_sous_form1 WHERE Table1.NumFiche = " & Me.tb_NumFiche & " ;"
CurrentDb.Execute Sql
Sql = " DELETE table2.* FROM Table_sous_form2 WHERE table2.NumFiche = " & Me.tb_NumFiche & " ;"
CurrentDb.Execute Sql
Sql = " DELETE Table1.* FROM Table_sous_form3 WHERE Table1.NumFiche = " & Me.tb_NumFiche & " ;"
CurrentDb.Execute Sql
Sql = " DELETE table2.* FROM Table_formulaire WHERE table2.NumFiche = " & Me.tb_NumFiche & " ;"
CurrentDb.Execute Sql
Endif
End Sub

mais je voulais savoir s'il n'y avait pas un autre moyen ?

Merci

[tamerlan]

as tu essaye de faire une mise a jour apres chaque suppression d enregistrement des sous formulaire?

[fscli]

pour l'instant je n'ai pas mis de code.
j'ai juste celui qui a été crée lorsque j'ai crée le bouton supprimer

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
Private Sub supprimer_Click()
On Error GoTo Err_supprimer_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_supprimer_Click:
    Exit Sub
 
Err_supprimer_Click:
    MsgBox err.Description
    Resume Exit_supprimer_Click
 
End Sub

pourquoi j'ai 2 lignes DoCmd.DoMenuItem... ?
a quoi correspondent 8 et 6 ?

tu me conseilles de taper mon propre code ou puis-je modifier celui ci-dessus ?

[fscli]

Ok j'ai trouvé ce qu'étais 8 et 6
Commande Variant obligatoire. Vous pouvez utiliser l'une des constantes intrinsèques suivantes.

Constantes intrinsèques :
acNew
acSaveForm
acSaveFormAs
acSaveRecord
acUndo
acCut
acCopy
acPaste
acDelete ->8
acSelectRecord
acSelectAllRecords
acObject
acRefresh

Mais pourquoi 8 et après 6 ?

[tamerlan]

a quoi correspondent 8 et 6 ?

tu as la réponse en cliquant sur f1 quand la souris est sur DoMenuItem

en modifiant le dernier code que tu as mis, je sais pas.
mais si tu le fais le code avec des requetes Delete, tu supprimes et tu mets a jour (en premier dans tes sous formulaires puis dans le formulaire principal)

[fscli]

voici mon code pour supprimer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub supprimer_Click()
Dim Sql As String
If MsgBox("Etes vous sûr de vouloir supprimer cet enregistrement?", vbYesNo + vbCritical, "Suppression") = vbNo Then Exit Sub
 
Sql = " DELETE rep_controleurs.* FROM rep_controleurs WHERE rep_controleurs.no_rep = " & Me.no_rep & " ;"
CurrentDb.Execute Sql
Sql = " DELETE rep_regleurs.* FROM rep_regleurs WHERE rep_regleurs.no_rep = " & Me.no_rep & " ;"
CurrentDb.Execute Sql
Sql = " DELETE rep_operateur.* FROM rep_operateur WHERE rep_operateur.no_rep = " & Me.no_rep & " ;"
CurrentDb.Execute Sql
Sql = " DELETE rep.* FROM rep WHERE rep.no_rep = " & Me.no_rep & " ;"
CurrentDb.Execute Sql
MsgBox ("L'enregistrement a bien été supprimé")
End Sub

çà fonctionne
maintenant je vais voir comment faire parce que j'ai une numéro_auto comme clé primaire
comment le remettre a zero...

La pour l'instant lorsque je clique sur supprimer j'ai toutes mes valeurs dans mes composants il faut que je vois si je les clear

en tout cas merci çà fonctionne...

[tamerlan]

je crois et je suis quasiment sur qu'une clee primaire en numéro auto ne peut pas être remis a zero. Si non, il faut que tu créé toi meme une incrementation