Access stürzt immer ab

[Nadeshiko]

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>

[MaggieMay]

Hallo,

Beim 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?

[Nadeshiko]

  Danke für die Antwort:

Ereignis beim Ausführen:

Code [Auswählen] Erweitern

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

[MaggieMay]

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.

[Nadeshiko]

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.

[MaggieMay]

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?

[Nadeshiko]

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

[MaggieMay]

Hi,

was macht denn die Funktion "UniCounterMesse"? Ist der Code fehlerfrei kompiliert?