Hallo,
hab ein "kleines" Problem. Beim Ausführen einer Funktion in Access 2013 (Vollversion) stürzt mein Frontend immer ab. Es ist immer an der gleichen Stelle. Das seltsame daran ist aber, dass mein Kollege mit Access 2010 Viewer (onlyRead) nicht das gleiche Problem hat und die Funktion läuft glatt durch.
Wir haben schon mit Reparieren und Neuinstallieren probiert. Leider ohne Erfolg...
Ereignisanzeige spuckt folgendes aus:
Protokollname: Application
Quelle: Application Error
Datum: 01.03.2016 10:14:21
Ereignis-ID: 1000
Aufgabenkategorie:(100)
Ebene: Fehler
Schlüsselwörter:Klassisch
Benutzer: Nicht zutreffend
Computer: XXXXX
Beschreibung:
Name der fehlerhaften Anwendung: MSACCESS.EXE, Version: 15.0.4420.1017, Zeitstempel: 0x50673361
Name des fehlerhaften Moduls: acedao.dll, Version: 15.0.4420.1017, Zeitstempel: 0x5067345f
Ausnahmecode: 0xc0000005
Fehleroffset: 0x00037c6a
ID des fehlerhaften Prozesses: 0xfe0
Startzeit der fehlerhaften Anwendung: 0x01d1739ab1984e21
Pfad der fehlerhaften Anwendung: C:\Program Files (x86)\Microsoft Office\Office15\MSACCESS.EXE
Pfad des fehlerhaften Moduls: C:\Program Files (x86)\Microsoft Office\Office15\acedao.dll
Berichtskennung: fba2dd5f-df8d-11e5-a9b8-9cb654f0ba0d
Ereignis-XML:
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">
<System>
<Provider Name="Application Error" />
<EventID Qualifiers="0">1000</EventID>
<Level>2</Level>
<Task>100</Task>
<Keywords>0x80000000000000</Keywords>
<TimeCreated SystemTime="2016-03-01T09:14:21.000000000Z" />
<EventRecordID>31471</EventRecordID>
<Channel>Application</Channel>
<Computer>XXXXXXX</Computer>
<Security />
</System>
<EventData>
<Data>MSACCESS.EXE</Data>
<Data>15.0.4420.1017</Data>
<Data>50673361</Data>
<Data>acedao.dll</Data>
<Data>15.0.4420.1017</Data>
<Data>5067345f</Data>
<Data>c0000005</Data>
<Data>00037c6a</Data>
<Data>fe0</Data>
<Data>01d1739ab1984e21</Data>
<Data>C:\Program Files (x86)\Microsoft Office\Office15\MSACCESS.EXE</Data>
<Data>C:\Program Files (x86)\Microsoft Office\Office15\acedao.dll</Data>
<Data>fba2dd5f-df8d-11e5-a9b8-9cb654f0ba0d</Data>
</EventData>
</Event>
Hallo,
ZitatBeim Ausführen einer Funktion [...]
zeig doch bitte mal den VBA-Code der den Absturz verursacht, mit Hinweis auf die konkrete Code-Zeile. Oder beschreibe welche Aktion den Absturz auslöst.
Der Code 0C5 weist auf einen Adressierungsfehler hin. Welche Bit-Version von Office setzt du ein und auf welchem Betriebssystem läuft das?
:) Danke für die Antwort:
Ereignis beim Ausführen:
Private Sub btnMesseNr_Click()
On Error GoTo ErrHandler
Dim intYear As Integer
Dim iMsg As Integer
'**Generierung der PositionsNr für Messen**
'-------------------------------------------
'Prüfung ob die Nummer vergeben ist
If IsNull(Me!txtMesseNr) Then
Me!cboMesseMonat.Enabled = True
Me!cboMesseJahr.Enabled = True
'Pürfung ob MesseJahr und Laufmonat vergeben sind
If IsNull(Me!cboMesseMonat) Or IsNull(Me!cboMesseJahr) Or Me!cboMesseMonat = 0 Then
'Falls Monat und Jahr nicht vergeben sind
MsgBox "Bitte Monat und / oder Jahr eingeben."
Exit Sub
Else
'Prüfen ob eine Nummer vergeben werden soll
iMsg = MsgBox("Möchten Sie wirklich für diese Messe eine PositionsNr. zuordnen?", vbQuestion + vbYesNo, "Achtung:")
If iMsg = vbNo Then
Exit Sub
Else
'Generierung der Nummer
intYear = Right(Me!cboMesseJahr, 2)
Me!txtMesseNr = UniCounterMesse(2, "tblMessen", "MesseNr", Me!cboMesseMonat, intYear, True, True, ".", ".")
Me!cboMesseMonat.Enabled = False
Me!cboMesseJahr.Enabled = False
Me.Recordset.FindFirst "MesseID = " & Me!txtMesseID
End If
End If
Else
'Wenn PositionsNr schon vergeben ist, soll der Vorgang abgebrochen werden
MsgBox "Eine Positionsnummer wurde schon zugeordnet. Wenn Sie eine neue Positionsnnummer zuordnen möchten, wenden Sie sich bitte an den Administrator.", vbInformation + vbOKOnly, "PositionsNr schon vergeben"
Exit Sub
End If
ExitHere:
Exit Sub
ErrHandler:
Dim strErrString As String
strErrString = "Error Information..." & vbCrLf
strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
strErrString = strErrString & "Description: " & Err.Description
MsgBox strErrString, vbCritical + vbOKOnly, "Function: WeekCounter"
Resume ExitHere
End Sub
Er gibt gar keine Fehlermeldung. Sondern schreibt sofort "Access reagiert nicht, Neustarten oder Abbrechen".
Er gibt also in dem Sinne keinen Fehler im Code aus oder Fehlermeldung.
Ich und Kollege benutzen Windows Professional 7, Service Pack 1, 64Bit.
Er benutzt Access Runtime 2010 (und es funkt)
Ich benutze Access 2013 Vollversion
Danke + Grüße
Code bitte stets in Code-Tags "verpacken", ist leichter les- und kopierbar.
Du setzt nicht zufällig die 64-Bit Version von Access ein? (wonach ich oben bereits gefragt hatte)
Wenn das die Prozedur ist, die den Absturz in A2013 verursacht, so setze einen Haltepunkt und teste den Code im Unterbrechungsmodus Zeile für Zeile (mit F8), um zu sehen, wo es passiert.
Ich glaub jemand anderes hat mir hier irgendwann geschrieben, dass gerade Ausklammerung in CODE mehr platz einnimmt. Aber geht klar...
Hab ich vergessen zu schreiben: 32Bit.
Was meinst du mit "Ausklammerung in CODE"? Vielleicht findest du ja den Beitrag noch, evtl. handelt es sich da um ein Missverständnis, ich habe das zumindest noch nie gehört, vielmehr wird immer wieder "ermahnt", doch bitte die Code-Tags zu verwenden.
Und wie sieht's mit dem Test aus, gibt es schon neue Erkenntnisse?
Hallo,
also ich spiele noch jede Menge Updates rein und hoffe der Fehler wird dadurch behoben. Habe aber tatsächlich jetzt nach deir vorgeschlagenen Methode F8 alle Zeilen durchgegangen...und bei End Sub stürzt er ab. Also geht er alle Funktionen / Prozeduren reibungslos durch und gleich nach End Sub stürzt es ab. ???
Danke + Grüße
Hi,
was macht denn die Funktion "UniCounterMesse"? Ist der Code fehlerfrei kompiliert?