Débutant: Supprimer une fiche d'un formulaire

**jrogron** · 09/08/2006, 11h57

Bonjour,

Je possède un formulaire sur lequel plusieurs fiches de sociétés sont enregistrés et je souhaite pouvoir supprimer l'une de ces fiches quand je suis dessus en appuyant sur un bouton. J'ai donc utilisé la macro "supprimerobjet" qui ne fonctionne pas. Le message que j'ai est qu'il ne peut supprimer la fiche si celle ci est ouverte.

Comment puis-je faire?

Merci,

Jocelyn

**zoom61** · 09/08/2006, 12h35

Salut,

Il te suffit de faire une requête suppression et ensuite de faire un rafraichissement de ta page.

Je ne vois pas trop ou est ton problème ???

**jrogron** · 09/08/2006, 12h59

Bonjour,

Mon souci c'est que je débute juste donc une requête suppression je comprends pas. Javais utilisé une macro, c pas possible?

En faite je ne vois pas comment à partir d'une requête je peux supprimer une ligne de ma table (donc les caractéristiques d'une entreprise).

Merci de m'expliquer,

Jocelyn

**zoom61** · 09/08/2006, 13h04

Tu vas dans le générateur de requête et au lieu de faire une requête de sélection tu choisis la requête de suppression, et en mettant un filtre sur l'entreprise que tu veux supprimer, tu enleveras la ligne de la table.
L'aide dans Access te permettra de faire ta requête.

**jrogron** · 09/08/2006, 13h46

Après avoir essayé avec une requête suppression je rencontre toujours un problème. Lorsque je créé un bouton commande sur mon formulaire (pour effacer une fiche) je ne peux pas le faire éxécuter une requête suppression. Seul les autres requêtes apparaissent dans le fenêtre de choix d'une requête à éxécuter sur clic du bouton.

Help me please,

**zoom61** · 09/08/2006, 13h57

Ta table qui contient ton entreprise contient un id ou pas ???

Si c'est le cas, tu peux faire ta suppression avec des variables.

Il faut que tu crées ta variable :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim g_entreprise As String
Dim g_entreprise as String
 
'date1
Public Function get_entreprise() As String
get_entreprise= g_entreprise
End Function
Public Function set_entreprise(entreprise As String) As Integer
g_entreprise = entreprise
End Function

Ensuite sur ton bouton d'action tu mets le code suivant :

Code :

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

1
2
3
4
5
6
7
i as integer
i = get_entreprise("")
i = get_entreprise(Forms!formulaire!champ)
Docmd.SetWarnings false
Docmd.OpenQurey  "Requête de suppression"
Docmd.SetWarnings true
Me.refresh

Pour utiliser la variable dans ta requête suppression, il te suffit de mettre à l'endroit ou tu as besoin de l'id :

Code :

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

entreprise()

**thb74** · 09/08/2006, 13h58

Essaye en creant sur ton formulaire (unique si possible) un bouton de commande par l intermediaire du generateur
il te suffit de repondre aux questions

**jrogron** · 11/08/2006, 15h52

Je relance le sujet car je viens de me rendre compte que ma solution qui est de cliquer sur un bouton "modifier" (pour mettre le formulaire en mode modification) avant de cliquer sur le bouton "supprimer" (réaliser avec l'assistant access) ne fonctionne pas super. En faite cela supprime bien la fiche et la ligne dans la table mère mais pas celle dans la table fille.

Je ne comprends pas pourquoi?

Jocelyn

**Macno** · 11/08/2006, 15h58

Regarde les propriétés de ta relation entre la table mère et fille et tu comprendras.

**pgz** · 11/08/2006, 16h04

Re,

Comme j'ai vu ta base, je te propose ce code pour ton bouton d'effacement:

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
Private Sub Commande908_Click()
Dim db as DAO.Database
On Error GoTo Err_Commande908_Click
 
    Set db = Currentdb
    db.Execute "Delete * FROM VSHProducts WHERE NumCompany = " & Me.NumCompany
    db.Execute "DELETE * FROM VSH WHERE NumCompany = " & Me.NumCompany
    Me.Requery
 
Exit_Commande908_Click:
    set db = Nothing
    Exit Sub
 
Err_Commande908_Click:
    MsgBox Err.Description
    Resume Exit_Commande908_Click
 
End Sub

Bon courage,

pgz

**jrogron** · 11/08/2006, 16h17

Je n'ai qu'une chose à dire tu proposes super bien!!!

Tu sais s'il est possible d'avoir un message de confirmation d'effacement qui s'affiche?

Amicalement,

Joc

**Kloun** · 11/08/2006, 16h21

Après les execute, rajoute:

Code :

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

msgbox db.recordsaffected & " lignes supprimées"

**jrogron** · 11/08/2006, 16h24

Merci à toute la dream team pour toute votre aide vous êtes géniaux!!!

**pgz** · 11/08/2006, 16h27

Re,

Avec compte-rendu

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
Private Sub Commande908_Click()
Dim db As DAO.Database ', sMessage As String
On Error GoTo Err_Commande908_Click
 
    sMessage = "L'enregistrement de " & Me.Company 
    Set db = CurrentDb
    db.Execute "Delete * FROM VSHProducts WHERE NumCompany = " & Me.NumCompany
    db.Execute "DELETE * FROM VSH WHERE NumCompany = " & Me.NumCompany
    Me.Requery
    MsgBox sMessage & " a été supprimé."
 
Exit_Commande908_Click:
    Set db = Nothing
    Exit Sub
 
Err_Commande908_Click:
    MsgBox Err.Description & vbcrlf & sMessage & " n'a pu être correctement supprimé."
    Resume Exit_Commande908_Click
 
End Sub

pgz

**jrogron** · 11/08/2006, 16h39

En faite j'ai du mal m'exprimer. J'aurais aimé savoir s'il était possible d'avoir un message de confirmation d'effacement avant l'effacement finale. Car comme dans toute entreprise il y en a qui sont pas très malin je préfère prévoir. Qu'il viennent pas me dire après qu'ils n'avaient pas compris que le bouton avec une poubelle dessus servait a effacer

Merci,

Jocelyn

**Macno** · 11/08/2006, 16h42

En utilisant toujours msgbox

Code :

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

1
2
3
4
5
6
 
If Msgbox("Confirmez vous la suppression ?",VbQuestion+VbYesNo,"TITRE BOITE DE DIALOGUE")=VbYes Then
 
'Je fais mon petit traitement qui va bien
 
End If

**pgz** · 11/08/2006, 16h43

Il suffit de demander :

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
Private Sub Commande908_Click()
Dim db As DAO.Database, iRéponse As Integer
On Error GoTo Err_Commande908_Click
 
    iRéponse = MsgBox("Effacer l'enregistrement de " & Me.Company & "?", vbQuestion + vbYesNo)
    If iRéponse = vbNo Then Exit Sub
    Set db = CurrentDb
    db.Execute "Delete * FROM VSHProducts WHERE NumCompany = " & Me.NumCompany
    db.Execute "DELETE * FROM VSH WHERE NumCompany = " & Me.NumCompany
    Me.Requery
 
Exit_Commande908_Click:
    Set db = Nothing
    Exit Sub
 
Err_Commande908_Click:
    MsgBox Err.Description
    Resume Exit_Commande908_Click
 
End Sub

A+

pgz

**jrogron** · 11/08/2006, 16h57

Total respect!!!

Sans vous j'aurais passé 2h dessus pour trouver une soluce qui aurait pas fonctionné une fois sur deux

Jocelyn

Débutant: Supprimer une fiche d'un formulaire

Access

Discussions similaires

Partager

Partager