Problem med borttagning av post

prøv at ændre 'msg' til 'msgbox' i 'If msg(strMsg, vbQuestion + vbYesNo, "Bekräfta") = vbYes Then'.

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Är Du säker på att Du vill ta bort avin?@@Beslutet kan inte ångras ?"    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "ta bort avin ?"    ' Define title.

Ctxt = 1000    ' Define topic
        ' context.
        ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' User chose Yes.
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70.
Else    ' User chose No.

End If

nu vil du blive spurgt om du vil slette og hvis du vælger ja vil posten blive slettet.

og det i koden som sletter posten er  dette :

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

>>geagleeye
Såvidt jeg forstår spørgsmålet, så tror jeg problemet kun var MsgBox-fejlen jfr: "borttagningen fungerar under førutsættning att frågan om borttagning skall ske, tas bort". ;-)

mit svensk er meget lav så det passer nok med det du siger  lol

Tack før era svar!
Jag har nu funnit orsaken till att borttagningen inte fungerade. Jag ær lite førvånad, men orsaken tycks vara att hænvisningen till acFormBar och acEditMenu inte fungerar då jag har standardmenyerna dolda och i stællet anvænder egna menyer. Kør jag db:n med standardmenyerna aktiva så fungerar borttagningen, men inte nær jag døljer dem.
Har ni møjligtvis några kommentarer till detta?

Du kan undgå dine 2 kald til DoMenuItem ved at bruge
    DoCmd.RunCommand acCmdDeleteRecord

Hej fdata!
Næær jag testar ditt førslag så får jag felmeddelandet att kommandot inte ær tillgængligt just nu. Samma sak som tidigare, så fungerar kommandot om jag kør db:n med standardmenyerna aktiva. Jag ær mycket førbryllad.

Gør du andet end at skjule standardmenuerne (AllowEdits eller lign.)?
Vis evt. lidt kode.

Ursækta min frånvaro, men jag har varit bortrest.
Problemet beror sannolikt på att den funktion som skall førhindra anvændning av bypasskeys:
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Public Function SetStartupProperties(Værdi As Boolean)
'***********************************************************************************************
'  Dette eksempel er udviklet af Thomas Jepsen, 1998
'
'  Dele eller hele koden må frit benyttes i applikationer, så længe kildeangivelse er bevaret
'  Besøg www.makeiteasy.dk eller skriv til tj@makeiteasy.dk,
'  hvis der opstår fejl eller spørgsmål, eller du har brug for yderligere assistance
'***********************************************************************************************
    On Error Resume Next
    Application.SetOption "Key Assignment macro", "Autokeys"  'Angiv at makroen Autokeys benyttes til at definere genvejstaster
    ChangeProperty "AllowBuiltinToolbars", dbBoolean, Værdi  'Tillad indbyggede værktøjslinier
    ChangeProperty "AllowShortcutMenus", dbBoolean, Værdi    'Tillad indbyggede genvejsmenuer
    ChangeProperty "AllowBreakIntoCode", dbBoolean, Værdi    'Tillad Debug ved eventuelle fejl
    ChangeProperty "AllowSpecialKeys", dbBoolean, Værdi      'Tillad Specielle Access-taster (F11, Ctrl+G, Alt+F11 m.fl.)
    ChangeProperty "AllowBypassKey", dbBoolean, Værdi        'Tillad Shift-tast ved opstart
    ChangeProperty "AllowToolbarChanges", dbBoolean, Værdi    'Tillad ændringer af værktøjslinier og menuer
End Function

Hvis du kan køre Delete koden, når standardmenuerne vises, er den enkle løsning vel at undersøge hvilken af de 6 ChangeProperty sætninger, der er problemet. Altså: slet dem en ad gangen indtil Delete virker. Derefter må du jo vurdere, om du kan leve med at den Property tillades.

Jag skall testa som du føreslagit. Før tillfællet har jag løst problemet med att anvænda en borttagningsfråga.

Fint  ;o)