Office: (Office 2016) Ständiger ABsturz d. Anwendung

fraeser · 19. Mai 2020

Ja, genau :-)

Mokkie · 19. Mai 2020

Hallo,

VBA-Optionen einstellen, dass bei ALLEN Fehlern angehalten wird
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wo stell ich dass denn ein?
Ich kann's nicht finden...

Mokkie · 19. Mai 2020

Also, hier ist es nicht
Aus der OH

Ein nicht behandelter Laufzeitfehler tritt auf, und das Kontrollkästchen Bei allen Fehlern anhalten ist auf der Registerkarte Allgemein des Dialogfelds Optionen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mokkie · 19. Mai 2020

O.K., ich habs gefunden.

Mokkie · 19. Mai 2020

Hallo,

ich hatte das nun alles ausprobiert und eingebaut, hat nicht wirklich was geholfen.
Ich habe nun alles Objekte in eine neue Leere DB exportiert und wenn ich nun auf Debuggen gehe bekomme ich die Fehlermeldung

Das Verweise fehlen usw. Die wollte ich nun nachträglich setzen und mir ist aufgefallen, dass ich den Verweis:

Microsoft Form 2,0 Objekt Library
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

überhaupt nicht zur Verfügung habe.
Er wird in der alten DB aber unter Verweisen ganz normal angezeigt, nur raus nehmen kann ich ihn nicht. Und in die neue Accessanwednung kann ich ihn nicht auswählen.

Echt seltsam, kann das solche Fehler verursachen

Mokkie · 19. Mai 2020

Ach ja, hatte ich übersehen.
Danke für deine letzte Antwort, :-)

Mokkie · 19. Mai 2020

Hallo,

in der von mir erstellten neuen Anwendung finde ich nun im Quellcode folgendes

Code:

Option Compare Dao.Database
Option Explicit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das kann man so machen?
ich finde in der OH nichts dazu...

Maxel · 19. Mai 2020

Siehe DBWiki

Mokkie · 19. Mai 2020

Hi,

O.K...

Mokkie · 19. Mai 2020

da finde ich auch nur:

Option Compare Database
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private dbs As Database

' Funktion zum Neuverknüpfen des Backends
'
' strPath: Verzeichnis, in dem das/die Backend(s) liegt/liegen
' (Es darf nur EIN Verzeichnis sein, kann jedoch mehrere BE-Dateien enthalten)
' Rückgabe: True bei Erfolg der kompletten Neuverknüpfung

Function RelinkDb(strPath As String) As Boolean

Dim flag As Boolean
Dim bStat As Boolean
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber eben nicht

Option Compare Dao.Database
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

markusxy · 19. Mai 2020

Korrektur:
Du musst das dao entfernen

Es muss heißen:

Compare Database.
Wie sich da das DAO eingeschmuggelt hat, ist wohl ein Rätsel.

Es geht einfach darum wie der Textvergleich durchgeführt wird.

ebs17 · 20. Mai 2020

Die Option Compare Database-Anweisung kann nur in Microsoft Access verwendet werden. Mit ihr können Zeichenfolgenvergleiche basierend auf der Sortierreihenfolge durchgeführt werden, die durch die Gebiets-ID der Datenbank bestimmt wird, in der die Zeichenfolgenvergleiche durchgeführt werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das hat jetzt rein gar nichts mit DAO zu tun. Probleme einmischen ist eine ganz andere Strategie als Probleme beseitigen. Interessantes Vorgehen ...

Wenn ein Problem nicht ständig auftritt, würde ich primär nicht einen vorhandenen Laufzeitfehler erwarten, sondern temporäre Zustände wie Daten und Mengen, Situation auf Rechner, sonstige Programme in Verdacht nehmen und versuchen, diese zu bestimmen.
Den kleinen Unterschied zwischen "ständig" und "dann und wann" müsste man aber für sich inhaltlich auflösen können.

Hilfreich dabei ist es, wenn man den Fehler reproduzieren kann. Da könnte man gezielt arbeiten.
Aber etwas herumprobieren macht auch Spaß und vertreibt die Zeit.

Martin2411 · 27. Mai 2020

Hallo,

Ich habe meine Access Datenbank mit dem SQL Server verbunden. Ich habe ein Formular erstellt mit einer Combobox, das mir die Daten aus einer Tabelle filtert und in ein Listenfeld einliest. Kann mir jemand einen besseren (CLEAN CODE) empfehlen? Problem: Es stürzt willkürlich ab nachdem man mittels Combobox nach neuen Datensätzen für die Listbox filtert.

Code:

On Sub lst_Freig_Füllen() 'funktioniert
Error GoTo ErrorHandler

Dim rs As New ADODB.Recordset
Dim sql As String

sql = "SELECT view_freig.a as a, view_freig.b as b, view_freig.c as c,view_freig.d as d, view_freig.e as e, view_freig.f as f, view_freig.g as g, view_freig.h as h, view_freig.i as i, view_freig.j as j, view_freig.k as k, view_freig.m as m , view_freig.n as n"
sql = sql & " FROM view_freig WHERE view_freig.t = '" & Form_xxx.cbo_Freigliste.Value & "'"
sql = sql & " AND view_freig.u= '0"

Set conn = Connect.ConnectSQL()
rs.Open sql, conn, adOpenStatic

If rs.BOF And rs.EOF Then
MsgBox "RecordSet0 ist leer!"
Set Form_xxx.lst_Freigabe0.Recordset = rs
Else

Set Form_xxx.lst_Freigabe0.Recordset = rs

If Form_xxx.lst_Freigabe0.ListCount 0 Then
Form_xxx.txt_offenenFreigaben = Form_xxx.lst_Freigabe0.ListCount - 1
End If

End If

rs.Close '10. Recordset schließen

sql = "SELECT view_freig.a as a, view_freig.b as b, view_freig.c as c,view_freig.d as d, view_freig.e as e, view_freig.f as f, view_freig.g as g, view_freig.h as h, view_freig.i as i, view_freig.j as j, view_freig.k as k, view_freig.m as m , view_freig.n as n"
sql = sql & " FROM view_freig WHERE view_freig.t = '" & Form_xxx.cbo_Freigliste.Value & "'"
sql = sql & " AND view_freig.u= '1'"

rs.Open sql, conn, adOpenStatic

If rs.BOF And rs.EOF Then
MsgBox "RecordSet1 ist leer!"
Set Form_xxx.lst_Freigabe1.Recordset = rs
Else
Set Form_xxx.lst_Freigabe1.Recordset = rs

If Form_xxx.lst_Freigabe1.ListCount 0 Then
Form_xxx.txt_abgelehntFreigaben = Form_xxx.lst_Freigabe1.ListCount - 1
End If

rs.Close '10. Recordset schließen
End If
Call Felder_Leeren

ExitCode:
On Error Resume Next
Set rs = Nothing
Set conn = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Description, vbInformation
Resume ExitCode

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

knobbi38 · 27. Mai 2020

Hallo Martin,

ich habe jetzt nicht alles hier durchgelesen, aber die Verwendung der Default-Instanzen z.B. bei "Set Form_xxx.lst_Freigabe0.Recordset = rs" solltest du ganz schnell wieder vergessen, es sei denn, du weißt genau was du da tust.
Arbeite mit einer Variablen, welche die Form explizit referenziert oder gehe über die Forms-Auflistung, um ein bestimmtes geöffnetes Formular über seine Instanz anzusprechen, z.B.

Forms("").Controls("").Recordset ...

Gruß Ulrich

Office: (Office 2016) Ständiger ABsturz d. Anwendung

Ständiger ABsturz d. Anwendung

Ständiger ABsturz d. Anwendung

Ständiger ABsturz d. Anwendung

Ständiger ABsturz d. Anwendung

Ständiger ABsturz d. Anwendung

Ständiger ABsturz d. Anwendung - Similar Threads - Ständiger ABsturz Anwendung

Ständige Passwortabfrage und Kalendersyncronisations Fehler

outlook frägt ständig nach Kennwort

Word 365 friert ständig ein

Word hängt sich ständig auf

Ständiges Anzeigen anstehender Termine und Besprechungen

Ständiges Anzeigen anstehender Aufgaben

Liveübertragung von Bildschirm in Teams-Konferenz bricht ständig ab