Office: (Office 2016) Accde läuft nicht , Accdb ok

wuffwuff2003 · 30. September 2019

Hallo zusammen,
Ich verzweifele bei einem Problem, ich habe eine Datenbank die jetzt zu einer Accde geändert wird, damit sie auf Pc's mit Runtime läuft. Aber ich kriege dann immer die Fehlermeldung:
Sie haben als Einstellung der Ereigniseigenschaft den Ausdruck Beim öffnen eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Kein aktueller Datensatz.

Was könnte ich noch ptüfen: Die Datenbank wurde repariert, überall im VBA Option Explicit eingefügt, VBA kompliliert alles Fehler sind raus, aber die Fehlermeldung kommt immer noch.

Vielen Dank
Mfg

:)

ReginaR · 2. Oktober 2019

Hi, ist die datenbank in Backend und Frontend aufgeteilt? Besteht evtl. keine Verbindung zum Backend?
Was genau passiert beim Öffne des ersten Formulars? Welche Codes laufen ab?

ebs17 · 2. Oktober 2019

Dieser Ausdruck hat einen Fehler verursacht: Kein aktueller Datensatz.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ob denn die Meldung in der aktuellen Situation einen realen Hintergrund hat?
Codes und Daten sollten kooperieren.

Daneben sollte eine vernünftige Anwendung, spätestens wenn sie unter Runtime läuft, eine eigene Fehlerbehandlung haben, um sich nicht von irgendwelchen Meldungen bis hin zu Programmabstürzen überraschen zu lassen.

wuffwuff2003 · 2. Oktober 2019

Hallo
Ja die Datenbank ist aufgeteilt, Verbindung zum backend müsste bestehen da die Accdb ja läuft und am Code nichts geändert wurde beim Erstellen der Accde, hier der Code des 1. Formulars was bei Autoexec aufgerufen wird:
Code:

Option Compare Database
Option Explicit
Private Sub cmb_agent_AfterUpdate()

Me.agent = Me.cmb_agent.Column(1) & " - " & Me.cmb_agent.Column(2)
Me.agent.Visible = True
Me.bzf_bonjour.Visible = True
Me.bzfmot.Visible = True
Me.mot.Visible = True
Me.Linie1.Visible = True

Me.mot.SetFocus
Me.cmb_agent.Visible = False

End Sub

Private Sub Form_Open(cancel As Integer)

Dim Val1 As String
Dim Val2 As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim db As DAO.Database
Dim strDaten As String
Dim i As Integer

Set db = CurrentDb

Me.Log = Environ("Username")

' ----------------- LOG ACCESS -----------------

If Not (Me.Log) = "laueand19" Then

DoCmd.NavigateTo "acNavigationCategoryObjectType", "acNavigationGroupTables"
DoCmd.SelectObject acTable, vbNullString, True
DoCmd.RunCommand acCmdWindowHide
DoCmd.ShowToolbar "Ribbon", acToolbarNo
CurrentDb.Properties("ShowDocumentTabs") = False
EnableShift False
Else

CurrentDb.Properties("ShowDocumentTabs") = True

End If

'-------------------------------------------------

Val1 = ""
Val2 = ""

DoCmd.SetWarnings False

strSQL1 = "Update tbl_agent_act set Nomcomplet = '" & Val1 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL1
strSQL2 = "Update tbl_agent_act set Matricule = '" & Val2 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL2

DoCmd.SetWarnings True

End Sub

Sub EnableShift(blnFlag As Boolean)
On Error GoTo Error_EnableShift
Dim db As DAO.Database
Dim prp As DAO.Property

Set db = CurrentDb
' Property mit ?bergebenem Parameter belegen
db.Properties!AllowBypassKey = blnFlag

Exit_EnableShift:
Set prp = Nothing
Exit Sub
Error_EnableShift:
' Property erzeugen, falls noch nicht vorhanden
If Err = 3270 Then
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, blnFlag)
db.Properties.Append prp
Resume Next
Else
MsgBox "Ausnahme Nr. " & str(Err.Number) & " " & Err.Description
Resume Exit_EnableShift
End If
End Sub

Private Sub mot_AfterUpdate()

Dim Val1 As String
Dim Val2 As String
Dim Val3 As String
Dim Val4 As String
Dim Val5 As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim strSQL4 As String
Dim strSQL5 As String
Dim db As DAO.Database

Set db = CurrentDb

Val1 = Me.cmb_agent.Column(1)
Val2 = Me.cmb_agent.Column(2)
Val3 = Me.motdepasse
Val4 = Me.Admin
Val5 = Me.gerance

DoCmd.SetWarnings False

strSQL1 = "Update tbl_agent_act set Nomcomplet = '" & Val1 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL1
strSQL2 = "Update tbl_agent_act set Matricule = '" & Val2 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL2
strSQL3 = "Update tbl_agent_act set Passworttext = '" & Val3 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL3
strSQL4 = "Update tbl_agent_act set Admin = '" & Val4 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL4
strSQL5 = "Update tbl_agent_act set gerance = '" & Val5 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL5

DoCmd.SetWarnings True

If Me.mot = Me.cmb_agent.Column(3) Then

DoCmd.OpenForm "frm_start"
DoCmd.Close acForm, "frm_pop_agent"
Else

MsgBox "Mot de passe incorrecte", vbOKOnly
Me.mot = ""
Me.mot.SetFocus
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke

wuffwuff2003 · 2. Oktober 2019

Ich habe überall Fehlerbehandlungen gesetzt daran soll es nicht liegen, unter der normalen Version läuft es ja, hier ist ein Problem wenn es sich um die Runtime Version handelt, bzw wenn ich die Datei starte auf einem Rechner ohne Access

Josef P. · 2. Oktober 2019

Hallo!

Ich habe überall Fehlerbehandlungen gesetzt ..
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im gezeigten Code sehe ich keine Fehlerbehandlung in der Sub Form_Open.

unter der normalen Version läuft es ja
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Runtime läuft aber auf einem anderen PC als die "normale" Version, oder?

Bezüglich Fehlersuche würde ich Zeilennummern in Form_Open einfügen und diese dann mit der Fehlermeldung ausgeben lassen, damit du die Codezeile findest, die zum Fehler führt.

[etwas OT]

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

strSQL1 = "Update tbl_agent_act set Nomcomplet = '" & Val1 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL1
strSQL2 = "Update tbl_agent_act set Matricule = '" & Val2 & "' where ID_agent_act = 1"
DoCmd.RunSQL strSQL2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du kannst in einer Updateanweisung auch zwei Datenfeld ändern.

Code:

strSql = "Update tbl_agent_act set Nomcomplet = '" & Val1 & "', Matricule = '" & Val2 & "' where ID_agent_act = 1"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

gpswanderer · 2. Oktober 2019

Hallo,
im gezeigten Code sind 4 Prozeduren von denen nur eine eine Fehlerbehandlung enthält.

drambeldier · 2. Oktober 2019

Moin,

ein Steuerelement hat den gleiichen Namen wie eine Sub / Function.

wuffwuff2003 · 2. Oktober 2019

Die On ERROR GOTO habe ich im Nachhinein rausgenommen, in der Hoffnung der Debugger springt an, und zeigt mir die Zeile wo es nicht klappt, stattdessen kommt nur eine Fehlermeldung allgemeiner Art, ohne dass der Debugger startet und mir die betreffende falsche Zeile zeigt.
Was meinst du denn mit Steuerelement gleicher Name wie Sub, ich hab wahrscheinlich Tomaten auf den Augen finde es nicht *redface.gif*
Danke für den Tipp aber mit der Update Funktion
Lg

drambeldier · 2. Oktober 2019

Moin,

>> Steuerelement gleicher Name wie Sub

streiche Steuerelement , setze Ereignisprozedur .

Mir ist vor etlicher Zeit mal passiert, dass ich einer Sub einen Namen verpasst habe, der bereits für eine Ereignisprozedur vergeben war, das erzeugte exakt diese Fehlermeldung. Blöderweise kriege ich es gerade nicht nachgestellt.

Office: (Office 2016) Accde läuft nicht , Accdb ok

Accde läuft nicht , Accdb ok

Accde läuft nicht , Accdb ok

Accde läuft nicht , Accdb ok

Accde läuft nicht , Accdb ok

Accde läuft nicht , Accdb ok - Similar Threads - Accde läuft Accdb

aus ACCDE -> ACCR Erstellen wie ?

Accde

ACCDE von Access 2016 mit Access 2010 öffnen

64 Bit accde mit 32 Bit Runtime öffnen

Feststellen ob accde oder accdb

accde läuft nicht unter Runtime

ACCDB läuft, ACCDE nicht...