Hallo zusammen,
ich fürhre beim Click Button " Speichern " folgende Code aus.
'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
Hallo,
soll wirklich bei Ja oder Nein AllowEdits=false gesetzt werden?
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
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
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
;D wenns nur immer so einfach wäre.
Danke Franz !