Accès au code VBA que de supprimer des enregistrements ne fonctionne pas

salut les gars, j'ai essayé ce code sur access vba et il me donne erreur
le voici :

Private Sub Command102_Click()
If msgbox("are u sure", MsgBoxStyle.yesno, "Delete") = MsgBoxResult.Yes Then
 Resume
    msgbox ("deleted")
    Else
    msgbox ("canceld")
End If
    DoCmd.RunCommand acCmdDeleteRecord
End Sub
  • Quelle erreur(s) avez-vous l'obtenir?
  • Êtes-vous à l'aide de VB.NET ou VBA? VBA n'a pas une telle chose comme MsgBoxStyle autant que je sache. Vous pouvez faire vbYesNo à la place.
  • merci pour votre rapide relecture je suis nouveau à vb btw, je viens de recevoir le code de internet mais je peux le comprendre de la façon tous j'ai besoin de code faisant msgbox par oui ou par non si oui, reprendre le code, si pas de l'annuler et le code sur supprimer l'enregistrement de toutes j'espère que vous me comprenez et merci encore une fois
  • et sur le vba, je suis en utilisant le vba avec access 2010
InformationsquelleAutor Alaa Eldin | 2013-10-26
  1. 2

    VBA ne pas comprendre ce code, car il est écrit pour VB.NET. Si c'est la première fois que vous entendez parler de VB.NET, pensez-y comme une extension de VBA (ce qui est un énorme simplification et j'espère que je ne vous downvoted en raison de l'écriture de ce genre de chose 🙂 ).

    Dans VBA de la syntaxe que vous feriez quelque chose comme:

    Private Sub Command102_Click()
    If MsgBox(Prompt:="Are you sure?", Buttons:=vbYesNo, Title:="Delete") = vbYes Then
         On Error Resume Next
         DoCmd.RunCommand acCmdDeleteRecord
         If Err.Number = 0 Then
            MsgBox Prompt:="Deleted", Buttons:=vbOKOnly, Title:="Deleted"
        Else
            MsgBox Prompt:="There is no record to delete!", Buttons:=vbOKOnly, Title:="Error"
        End If
    Else
        MsgBox Prompt:="Canceled", Buttons:=vbOKOnly, Title:="Canceled"
    End If
End Sub

    Vous n'avez pas besoin Resume dans ce contexte.

    Ont un coup d'oeil à ce post ainsi, il est tout à fait similaire.

    Espérons que cette aide!

    • merci beaucoup u essayé, mais je me donne une erreur (agruments pas une option)
    • Désolé, c'était un peu négligent 🙂 Maintenant, il fonctionne. Tout MsgBox a besoin d'au moins une Invite de commandes. Par ailleurs, si vous essayez de supprimer le dossier, mais il n'existe aucun enregistrement, vous obtiendrez un message d'erreur.. je suis l'ajout d'un message informe l'utilisateur en cas de ce qui se passe
    • merci beaucoup c'était donc la bonté de vous
    • Heureux que ça a aidé! Si cette réponse répond à 100% à votre question, je vous suggère de le marquer comme "accepté" (en cliquant sur la case d'option à gauche de la réponse du titre). De cette façon, les gens qui ont le même problème va le résoudre rapidement. Aussi, il est de bonne pratique si la question du titre est un peu plus descriptif, tel que Accès au code VBA que de supprimer des enregistrements ne fonctionne pas. Vous pouvez le modifier, de sorte que les gens qui google des trucs de la vie "Access VBA supprimer des enregistrements" rendre ici. Tout le meilleur!
    • cool de tous vous l'avez suggéré, est fait et merci encore:)
    InformationsquelleAutor Ioannis