Tag zusammen, ich habe ein Problem mit einer kleinen Access-Datenbank die ich über Access Runtime öffne. Es treten dort nämlich Fehler auf, die in der Vollversion von Access nicht auftreten, leider finde ich nicht die Ursache dafür.
Erstmal einen Überblick der Datenbank. Die Datenbank verwaltet Kunden und Verträge zu den Kunden.
Es bestehen 2 Probleme. Das erste Problem tritt direkt beim Öffnen der DB in der Runtime auf, und das zweite während der Nutzung wenn ich einen neuen Vertrag anlegen will.
1. Problem: beim Öffnen der Datenbank (Doppelklick auf die accdb-Datei) gibt Access den Fehlercode „29070“ aus. Beim Klick auf „OK“ öffnen sich mein Formular „Kunden“ wie gewohnt und scheint erstmal zu funktionieren.
2. Problem: Beim Klicken auf den Button „Vertrag Erstellen“ im frmKunden tritt folgender Fehler auf: „Die Ausführung dieser Anwendung wurde wegen eines Laufzeitfehlers angehalten. Die Anwendung kann nicht weiter ausgeführt werden und wird beendet.“
Beim Klicken des Buttons, soll das frmVertraege geöffnet werden, um einen Vertrag für den Kunden anzulegen. Dabei wird die KdNr des Kunden mit an das frmVertraege übergeben.
Der Code hinter dem Button „Vertrag erstellen“ (frmKunden):
1 2 3 4 5 6 7 | Private Sub cmdVertragErstellen_Click()
On Error GoTo Err_cmdVertragErstellen_Click
DoCmd.OpenForm "Verträge" , , , , , , Me .KdNr.Value
Exit Sub
Err_cmdVertragErstellen_Click:
MsgBox "Es ist ein Fehler aufgetreten" & vbCr & "Fehlercode: " & Err.Number & vbCr & Err.Description
End Sub
|
Folgender Code wird beim Start des frmVertraege ausgeführt:
1 2 3 4 5 6 7 8 9 10 11 | Private Sub Form_Load()
Dim strAktuellerDatensatz As String
Dim strDatensatzGesamt As String
strAktuellerDatensatz = Me .CurrentRecord
strDatensatzGesamt = DCount( "VNr" , "Verträge" )
If Not IsNull( Me .OpenArgs) Then
Call cmdNeuenVertragAnlegen_Click
Me .KdNr = Me .OpenArgs
End If
End Sub
|
Wie gesagt, in der Vollversion von Access (2016) bzw. Office auf meinem PC funktioniert alles. Die Probleme tauchen bei meinem Test-PC auf wo die Access Runtime (2016) installiert ist.
Weiß jemand des Rätsels Lösung? Ich weiß nicht wie ich da weiter vorgehen soll.
Würde mich sehr um Unterstützung freuen!
|