Page 1 sur 1
Posté : 11 juin 2003, 22:49:00
par azzouz.mustapha
salut
l'assistance boutton de commande me cause des problémes et je veux écrire le code moi même.
je veux supprimer l'enregistrement en cours dans un formulaire.
quel est le code. (j'ai oublier à§a)
merci de m'apprendre en maîne.
Posté : 09 juil. 2003, 21:06:00
par appm30
Il faut supprimer l'enregistrement directement dans la table.
Posté : 11 mai 2004, 20:09:00
par appm30
Voici un exemple de code
Fiche = Forms!facturemoteur!Fiche
Dim Db As Database
Dim ft As Recordset
Set Db = CurrentDb
Set ft = Db.OpenRecordset("Facture", dbOpenDynaset)
ft.MoveLast
critere = "Fiche='" & Me.Fiche.Value & "'"
ft.FindFirst critere
N = MsgBox("Voulez vous vraiment supprimer l'enregistrement", vbYesNo)
If N = 7 Then
Exit Sub
End If
If N = 6 Then
ft.Delete
DoCmd.Close
DoCmd.OpenForm "facture"
End If
ft.Close
Posté : 12 mai 2004, 08:38:00
par nicopan
Salut,
Autre faà§on:
Private Sub BSup_Click()
On Error GoTo Err_BSup_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_BSup_Click:
Exit Sub
Err_BSup_Click:
MsgBox Err.Description
Resume Exit_BSup_Click
End Sub
à§a c'est le code généré par l'assistant.