Access Frontend mit MariaDB - Speicherkonflikt

Option Compare Database
Option Explicit

' ********************************************************************************  
' ** Konstanten  
' ********************************************************************************  
Const strRoot = "\\192.168.99.2\kunden\"  
Const InitCtSchreibschutz = 30      'Zeit, wie lange Schreibschutz aufgehoben wird  


' ********************************************************************************  
' ** Globale Variablen  
' ********************************************************************************  
Public blnErweiterteAnsicht As Boolean
Public ctLeseDatensaetze As Integer
Public ctSchreibschutz As Integer





' ********************************************************************************  
' ** Ereignisse Formular  
' ********************************************************************************  
Private Sub Form_Load()
    txt_filter_beliebig = ""  
    filter_beliebig
    SetzeSchreibschutz
    LeseDatensaetzeMax
End Sub


Private Sub SetzeSchreibschutz()
    status_gesperrt.BackColor = RGB(255, 0, 0)
    btn_sperre.BackStyle = 0
    status_gesperrt.Caption = 0

    btn_Datensatz_speichern.Enabled = False
    btn_datensatz_verwerfen.Enabled = False
    btn_Datensatz_hinzufuegen.Enabled = False
    
    If Me.Dirty = True Then
        If MsgBox("Der Datensatz wurde noch nicht gespeichert. Speichern?", vbOKCancel, "Speichern") = vbOK Then  
            DoCmd.RunCommand acCmdSaveRecord
            MyDebug ("Datensatz " & txt_bhkw_projekt_nr & " wurde gespeichert")  
        Else
            Me.Undo
            MyDebug ("Datensatz " & txt_bhkw_projekt_nr & " wurde verworfen")  
        End If
    End If
    
    Dim ctl As Control
    For Each ctl In Me.Section(0).Controls
    If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) Then
        ctl.Locked = True
    End If
    Next ctl
End Sub


Private Sub LoescheSchreibschutz()
    status_gesperrt.BackColor = RGB(0, 255, 0)
     btn_sperre.BackStyle = 1

    btn_Datensatz_hinzufuegen.Enabled = True
      
    Dim ctl As Control
    For Each ctl In Me.Section(0).Controls
    If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) Then
        ctl.Locked = False
    End If
    Next ctl
End Sub



' Navibuttons  
Private Sub btn_datensatz_verwerfen_Click()
MyDebug ("btn_datensatz_verwerfen_Click")  
    
   Me.Undo
   
   btn_datensatz_verwerfen.Enabled = False
   btn_Datensatz_speichern.Enabled = False
End Sub

Private Sub btn_Datensatz_speichern_Click()
  MyDebug ("btn_Datensatz_speichern_Click")  
'On Error Resume Next  
    Me.Dirty = False
   ' DoCmd.RunCommand acCmdSaveRecord  

    btn_Datensatz_speichern.Enabled = False
    btn_datensatz_verwerfen.Enabled = False
End Sub

Private Sub btn_Datensatz_hinzufuegen_Click()
  MyDebug ("btn_Datensatz_hinzufuegen_Click")  

    DoCmd.GoToRecord , , acNewRec
End Sub