Probleme mit Code me.allowedit = false funktioniert nicht

[Bernie110]

Hallo zusammen,

ich fürhre beim Click Button " Speichern " folgende Code aus.

Code [Auswählen] Erweitern

'Dim strMsg As String
 
   strMsg = "Möchten Sie eventuelle Änderungen speichern? "
  If MsgBox(strMsg, vbYesNo + vbQuestion, "Abbrechen:") <> vbNo Then Exit Sub
 
  On Error Resume Next
  DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdUndo
  DoCmd.SetWarnings True
 

Me.AllowEdits = False
RunCommand acCmdSaveRecord

Me.AllowEdits = False funktioniert soald in der MsgBox nein ausgewählt wird.

Aber leider nicht wenn ja ausgewählt wird.
An was liegts ? Danke für eure Antworten Gruss Bernie

[oma]

Hallo,

soll wirklich bei Ja oder Nein  AllowEdits=false gesetzt werden?

Code [Auswählen] Erweitern

Private Sub Speichern_Click()
strMsg = "Möchten Sie eventuelle Änderungen speichern? "
If MsgBox(strMsg, vbYesNo + vbQuestion, "Abbrechen:") = vbYes Then

    RunCommand acCmdSaveRecord
    Me.AllowEdits = False

Else
    DoCmd.RunCommand acCmdUndo
    Me.AllowEdits = False
End If
End Sub

[Bernie110]

Hallo Oma,

danke funzt.

Ja der Ds soll gesperrt werden.

jetzt hab ich nur noch eine kleine Frage.... wenn Me.AllowEdits = False...kann man dann trotzdem die bearbeitung eines feldes zulassen ?

ich hab in diesem Formular noch ein Suchfeld ( ungebunden ) ...das bei Me.AllowEdits = False auch gesperrt wurde.
Kann man es freischalten... habs schon mit   Me.Suchname.locked = false versucht...funzt aber net

[DF6GL]

Hallo,


temporär umschalten:


Sub Suchfeld_Enter()
Me.Allowedits=true
End Sub

Sub Suchfeld_Exit(Cancel As Integer)  'oder anderes geeigntes Ereignis
Me.Allowedits=false
End Sub

[Bernie110]

  wenns nur immer so einfach wäre.
Danke Franz !