code beim Schließen einer DB ausführen aber sonst nie

[Carl]

Hallo,

ich habe eine Frage.

Ich benutze den unten stehenden Code um auf Knopfdruck abzufragen, ob in einer Tabelle tbl_instanzen ein Datensatz existiert und wenn ja, diesen zu löschen und dann die DB zu schließen. Damit wird eine zuvor auf nur eine Instanz begrenzte DB wieder für einen anderen Nutzer frei gegeben. Die Gründe für die Begrenzung auf nur eine zulässige Instanz sollen hier nicht besprochen werden. (Es wird beim schließen eine statistische Funktion ausgeführt, die nur geht, wenn ein vollständiger Datensatz zugefügt wurde und kein weiterer offen ist.)

Der Code ist unter einem "Schließen"-Button und funktioniert einwandfrei:

Code [Auswählen] Erweitern


    Me.RecordSource = "SELECT *" & " FROM abf_Instanzen"            'Datensatzherkunft im Formular einstellen auf Instanzen-Abfrage
    If DCount("*", "abf_Instanzen") > 0 Then                        'Prüfen, ob Datensätze in Instanzen-Abfrage vorhanden sind
        DoCmd.RunCommand acCmdRecordsGoToLast                       'Letzten Datensatz aufrufen
        DoCmd.SetWarnings False                                     'Warnmeldungen deaktivieren (sonst würde Pop-Up erscheinen)
        DoCmd.RunCommand acCmdDeleteRecord                          'Datensatz löschen
        DoCmd.SetWarnings True                                      'Warnmeldungen reaktivieren
        Me.RecordSource = Empty                                     'Datensatzherkunft im Formular leeren
    End If                                                          '(Wenn keine DS in Abfrage (Admin-Zugang? Bug?), direkt Schließ


Jetzt wird der Datensatz in der tbl_instanzen aber LEIDER NICHT gelöscht, wenn der User zum Schließen eine andere Methode als nur den Button verwendet.

Ich möchte daher ein öffentliches Modul, das immer beim Datenbankschließen ausgeführt wird, egal bei welcher Form des Schließens. Folgender Code funktioniert aber nicht. Was ist daran fehlerhaft?

Er soll
* immer beim Schließen der DB
* und niemals beim Schließen eines Formulars ausgeführt werden.

Code [Auswählen] Erweitern


Public Function Form_Unload(Cancel As Integer)
    Me.RecordSource = "SELECT *" & " FROM abf_Instanzen"            'Datensatzherkunft im Formular einstellen auf Instanzen-Abfrage
    If DCount("*", "abf_Instanzen") > 0 Then                        'Prüfen, ob Datensätze in Instanzen-Abfrage vorhanden sind
        DoCmd.RunCommand acCmdRecordsGoToLast                       'Letzten Datensatz aufrufen
        DoCmd.SetWarnings False                                     'Warnmeldungen deaktivieren (sonst würde Pop-Up erscheinen)
        DoCmd.RunCommand acCmdDeleteRecord                          'Datensatz löschen
        DoCmd.SetWarnings True                                      'Warnmeldungen reaktivieren
        Me.RecordSource = Empty                                     'Datensatzherkunft im Formular leeren
    End If                                                          '(Wenn keine DS in Abfrage (Admin-Zugang? Bug?), direkt Schließ
End Function


Carl

[ebs17]

Der Code ... funktioniert einwandfrei

Naja, die DoCmd-Orgie ließe sich durch eine einfache Löschabfrage ersetzen. Das wäre unaufwändiger und übersichtlicher.
Für das Schließen einer Anwendung gibt es kein nutzbares Ereignis. Daher wäre es eine Möglichkeit, mit Start der Anwendung ein verborgenes Formular (frmHidden) zu starten. Das kann schon mal nicht per Oberfläche geschlossen werden, und relevante Codes sollten das auch nicht tun.
Mit Schließen der Anwendung tritt das Unload dieses Formulars ein und würde somit zielgenau nutzbar sein.

[Carl]

hm ... also ein unsichtbares Formular. okay, ich versuche es.

Bei diesem Fall erscheint eine Fehlermeldung, wahrscheinlich weil das Hintergrund zuletzt geschlossen wird und die Abfrage zu dem Zeitpunkt nicht mehr da ist ... :-(

[Beaker s.a.]

Hallo Carl,

Code [Auswählen] Erweitern

Private Sub Form_Unload(Cancel As Integer)
'    Me.RecordSource = "SELECT *" & " FROM abf_Instanzen"
'eine DS-Herkunft braucht das Formular nicht
    If DCount("*", "tbl_Instanzen") > 0 Then 
        CurrentDb.Execute("DELETE FROM tbl_Instanzen"), dbFailOnError
    End If                     
End Sub

gruss ekkehard

[Carl]

Danke, Ekki, der Tag ist gerettet!

Ist bekannt, welche Probleme in der Anwendung eintreten können, wenn man mit diesem Design die Anzahl der Benutzer auf 1 begrenzt?

Ich kann mir vorstellen, dass einmal der Tabelleneintrag nicht gelöscht wird und dann die anderen ausgesperrt sind.

Oder dass jemand das frontend offen lässt, und die anderen dann nicht nachrücken können.

Grund für das Design ist, dass ich versuchen möchte, eine statistische Funktion einzubauen und die kann nicht mit mehr als einem Benutzer zur Zeit umgehen.

Carl

[ebs17]

@ekkehard:
Eine Löschabfrage hat kein Problem damit, wenn keine Datensätze da sind => DCount ist unnötiger Ballast.

Ich kann mir vorstellen, dass einmal der Tabelleneintrag nicht gelöscht wird

Ich nicht.

Ist bekannt, welche Probleme in der Anwendung eintreten können, wenn man mit diesem Design die Anzahl der Benutzer auf 1 begrenzt?

Ein Einnutzerbetrieb ist regelmäßig unproblematischer als ein Mehrnutzerbetrieb. Hast Du andere Erwartungen?
"Dieses Design" ist welches?

eine statistische Funktion einzubauen und die kann nicht mit mehr als einem Benutzer zur Zeit umgehen

Wenn Du das sagst ...
Wobei nicht auszuschließen ist, dass das nur an Deiner persönlichen Umsetzung liegt.

[Beaker s.a.]

Hallo Eberhard,
Danke, mal wieder zu schnell (ohne Nachdenken) geschrieben. 
gruss ekkehard

[Carl]

eine statistische Funktion einzubauen und die kann nicht mit mehr als einem Benutzer zur Zeit umgehen

Wenn Du das sagst ...
Wobei nicht auszuschließen ist, dass das nur an Deiner persönlichen Umsetzung liegt.

Natürlich liegt es an meiner Umsetzung, woran denn sonst. Ich bin auch fachfremd und habe 8 Stunden Patienten.

Carl