Discussion :

[albayt]

Bonjour,

Je dispose de deux formulaires : Navigation et Inscriptions:

- Dans le formulaire "Navigation", je souhaite créer un bouton "Supprimer" qui, sur la base de la valeur donnée dans le champs "No Dossier", va aller dans le formulaire "Inscriptions", chercher l'enregistrement "No Dossier" correspondant, puis le supprimer (voir miniature)

Bien entendu, avant la suppression, un message disant:"Attention: Etes vous sur...".

Merci pour votre aide

[marot_r]

Souhaites-tu afficher l'enregistrement avant la suppression ?

Si non quelques lignes de VBA feront cela beaucoup plus simplement.

A+

[albayt]

Non, pas besoin d'afficher l'enregistrement en question. Il faut juste un message d'alerte du type "Etes vous sur de....".

Merci

[Robert1957]

Bonjour albayt, René,

Si je me souviens je t'ai déjà aidé dans une autre discussion et de mémoire ton enregistrement "Dossier" a des enregistrements qui lui sont rattachés (Voyageurs). Je ne sais pas si tu avais choisi de mettre tes tables en relation et si oui tu avais choisi d'appliquer l'intégrité référentielle mais si c'est le cas il va falloir que tu débutes par supprimer les enregistrements enfants avant de supprimer le parent.

Bonne journée

[marot_r]

Alors voilà ce que je suggère :

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
public sub SupprimerDossier(prmNoDossier as long)
   dim mess as string: Mess="Voullez-vous vraiment supprimer le dossier " & prmNoDossier
 
   if vbYes=msgbox(Mess, vbQuestion+vbYesNo+vbDefaultButton2) then
      dim db as dao.database:set db=currentdb
      dim r as dao.recordset:set r=db.openRecordset("NomTaTable", dbOpenDynaset)
      r.findirst("[NoDossier]=" & prmNoDossier)
 
      if not r.nomatch then
            r.delete
         else
            'Cas normalement impossible
            msgbox "Dossier " & prmNoDossier " non trouvé."
      end if
 
      r.close:set r=nothing
      db.close:set db=nothing 'Libère la mémoire utilisée par l'objet
   end if
end sub

msgbox(Mess, vbQuestion+vbYesNo+vbDefaultButton2) affiche le message, un bouton Oui, un bouton Non et s'assure que le bouton par défaut est Non.

A+

[Tofalu]

Quelques petites erreurs de compilation corrigées :

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
Public Sub SupprimerDossier(prmNoDossier As Long)
   Dim mess As String: mess = "Voulez-vous vraiment supprimer le dossier " & prmNoDossier
 
   If vbYes = MsgBox(mess, vbQuestion + vbYesNo + vbDefaultButton2) Then
      Dim db As DAO.database: Set db = CurrentDb
      Dim r As DAO.Recordset: Set r = db.openRecordset("NomTaTable", dbOpenDynaset)
      r.FindFirst "[NoDossier]=" & prmNoDossier
 
      If Not r.nomatch Then
            r.Delete
         Else
            'Cas normalement impossible
            MsgBox "Dossier " & prmNoDossier & " non trouvé."
      End If
 
      r.Close: Set r = Nothing
      db.Close: Set db = Nothing 'Libère la mémoire utilisée par l'objet
   End If
End Sub

[marot_r]

À mettre "dans" le formulaire ou dans un module à part.

[albayt]

Salut Robert, René,

Effectivement, j'étais parti sur l'idée de publiée la base via sharepoint mais il s'est avéré que c'était trop contraignant et me faisait donc perdre beaucoup de fonctionnalités de mon application actuelle. J'ai donc abandonné cette idée de publier sur le Web. Je vais travailler en Frontale / Dorsale.

Donc les tables sont liées et il y a bien intégrité référentielle (Cf miniature)

[albayt]

Question bête d'un débutant :

Comment affecter le module au bouton:

Code :

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

1
2
3
4
Private Sub Bouton_Click()
........
.......
End Sub

Merci

[Tofalu]

En appelant la fonction sans oublier de lui spécifier le numéro de dossier concerné

[albayt]

Bonjour à tous,

J'ai essayé d'appeler la fonction au clic du bouton mais ca ne marche pas !
Un message d'erreur "Variable ou procédure attendue, et non un module"

Quel est le problème ?
Merci

[Tofalu]

En appelant la fonction sans oublier de lui spécifier le numéro de dossier concerné

Il ne me semble pas avoir parlé d'appelé un module ... La méthode porte le nom de SupprimerDossier et nécessite un paramètre.

Imaginons, un formulaire avec un bouton et une zone de texte txtNumDossier contenant le numéro de dossier à supprimer, le clic sur le bouton donnera :

Code :

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

1
2
3
Private Sub Bouton_Click()
SupprimerDossier txtNumDossier
End Sub

[albayt]

MERCI BEAUCOUP....
DOSSIER CLASSE

A BIENTOT