Office: DoCmd -> Laufzeitfehler 2486

ich habe bei einer Datenbank immer wieder mal das Problem das keine "DoCmd" Anweisungen ausgeführt werden können.
Es erscheint der Laufzeitfehler 2486.
Dieses hat dann auch zur Folge das sich Access nicht mehr beenden läßt bzw. sich immer sofort wieder selbst aufruft.

PC: PIII 500, 256MByte-Ram
Windows 2000 pro
Office 2000 premium SP3

:)

 

Handelt es sich bei deiner DB um eine konvertierte Version aus einer früheren Version (A97 oder älter)?? *confused.gif*

Druschba

 

Erstellt habe ich die Datenbank mit der selben Acces Version allerdings ohne einen Servicepack.
Nach dem die Probleme auftraten habe ich Servicepack 1a und dann 3 installiert.

 

hmmm.-..

ja, dann kann ich nur dazu raten die DB neu zu erstellen, d.h. eine leere neue DB zu erstellen und alle Tabellen, Forms etc zu importieren...schau dabei in die Verweise und lege besonderes Augenmerk auf die Reihenfolge...es gibt da 'Ober-Sticht-Unter', wie ich selbst leidvoll erfahren musste... *rolleyes.gif*

*Druschba*

 

Habe die Datenbank in eine neue leere Datenbank importiert, allerdings ohne dauerhaften Erfolg.
Der Fehler tritt nach wie vor auf.

Andreas

 

Welche DoCmd-Anweisungen sind das denn? Bitte poste mal ein paar Beispiele aus Deinem Code.

 

hallo,

welche mdac version benutzt du?

kontrolliere mal, auf welche deine db verweist und welche du benutzt

 

Wie kontrolliere ich die Mdac Version?

Code aus der Datenbank:

'Unterformular Maßnahmentermine

Option Compare Database


Private Sub Anzahl_Teilnehmer_DblClick(Cancel As Integer)
On Error GoTo Err_Anzahl_Teilnehmer_DblClick

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Maßnahmen-Teilnehmer"

stLinkCriteria = "[Maß_Term_Nr]=" & Me![Maß_Term_Nr]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Anzahl_Teilnehmer_DblClick:
Exit Sub

Err_Anzahl_Teilnehmer_DblClick:
MsgBox Err.Description
Resume Exit_Anzahl_Teilnehmer_DblClick
End Sub


Private Sub Block_Click()
DoCmd.OpenForm "Maßnahmen_Block_einfügen", , , , , , Me.Maß_Nr

End Sub

Private Sub DozAuswahl_DblClick(Cancel As Integer)
Call Tagesübersicht
End Sub

Private Sub Maßnahmen_Tag_DblClick(Cancel As Integer)
Call Tagesübersicht
End Sub


Private Sub Maßnahmen_Tag_GotFocus()
Me.Maßnahmen_Tag.StatusBarText = Format(Me.Maßnahmen_Tag, "dddd, d mmmm yyyy") & " " & Me.Ferien & " " & Feiertag(Me.Maßnahmen_Tag)
End Sub

Private Sub noch_frei_DblClick(Cancel As Integer)
On Error GoTo Err_noch_frei_DblClick

Dim Filter
Filter = "(Tagesauswertung_Maßnahmen.Maß_Tag=(#" & Month(Me.Maß_Tag) & "/" & Day(Me.Maß_Tag) & "/" & Year(Me.Maß_Tag) & "#))"

DoCmd.OpenForm "Tagesübersicht"

Forms!Tagesübersicht!Kalender.Value = Me.Maß_Tag
Forms!Tagesübersicht!Tagesauswertung_Uf.Form.Filter = Filter

Exit_noch_frei_DblClick:
Exit Sub

Err_noch_frei_DblClick:
MsgBox Err.Description
Resume Exit_noch_frei_DblClick
End Sub

Private Sub RaumAuswahl_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Private Sub RaumAuswahl_DblClick(Cancel As Integer)
Call Tagesübersicht
End Sub

Private Sub Text44_DblClick(Cancel As Integer)
Call Tagesübersicht
End Sub

Private Sub Spalte1_Click()
Call sortieren("Maß_Tag")
End Sub

Private Sub Spalte2_Click()
Call sortieren("Maß_Tag_Anf")
End Sub

Private Sub Spalte3_Click()
Call sortieren("Maß_Tag_End")
End Sub

Private Sub Spalte4_Click()
Call sortieren("Doz_Nr")
End Sub

Private Sub Spalte5_Click()
Call sortieren("Raum_Nr")
End Sub


Private Sub Duplizieren_Tag_Click()

On Error GoTo Err_Duplizieren_Tag_Click
Dim daten As String
Dim SQL_string As String
Dim Datum As Date

Anzahl = InputBox("Anzahl der Kopien", "Termin kopieren", 1)
Datum = InputBox("Erstes Datum TT.MM.JJJJ", "Termin kopieren", Me.Maß_Tag + 1)

While Anzahl >= 1
SQL_string = "('" & Me.Maß_Nr & "','" & Datum & "','" & Me.Maß_Tag_Anf & "','"
SQL_string = SQL_string & Me.Maß_Tag_End & "','" & Me.Raum_Nr & "','" & Me.Doz_Nr & "');"

DoCmd.RunSQL "INSERT INTO Maßnahmen_Termine " & _
"(Maß_Nr,Maß_Tag,Maß_Tag_Anf,Maß_Tag_End,Raum_Nr,Doz_Nr)" & _
"VALUES" & SQL_string

DoCmd.RunSQL "INSERT INTO Maßnahmen_Teilnehmer ( Maß_Term_Nr, Teil_Nr ) " & _
"SELECT Last(Maßnahmen_Termine.Maß_Term_Nr) AS [LetzterWert von Maß_Term_Nr], Maßnahmen_Teilnehmer.Teil_Nr " & _
"FROM Maßnahmen_Teilnehmer, Maßnahmen_Termine " & _
"GROUP BY Maßnahmen_Teilnehmer.Teil_Nr, Maßnahmen_Teilnehmer.Maß_Term_Nr " & _
"HAVING ((Maßnahmen_Teilnehmer.Maß_Term_Nr)=" & Me.Maß_Term_Nr & ")"
Anzahl = Anzahl - 1
Datum = Datum + 1
Wend

Call sortieren("Maß_Tag")

Exit_Duplizieren_Tag_Click:
Exit Sub

Err_Duplizieren_Tag_Click:
MsgBox Err.Description
Resume Exit_Duplizieren_Tag_Click

End Sub

Private Sub löschen_Click()
On Error GoTo Err_löschen_Click
Check = MsgBox("Den Termin am " & Me.Maß_Tag & " löschen?", vbYesNo, "Termin löschen")
If Check = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Exit_löschen_Click:
Exit Sub

Err_löschen_Click:
MsgBox Err.Description
Resume Exit_löschen_Click

End Sub


Private Sub sortieren(Spalte)
On Error GoTo Err_sortieren
Me.OrderBy = Spalte
Me.OrderByOn = True

Exit_sortieren:
Exit Sub

Err_sortieren:
MsgBox Err.Description
Resume Exit_sortieren

End Sub

Private Sub Tagesübersicht()
Dim Filter
Filter = "(Tagesauswertung_Maßnahmen.Maß_Tag=(#" & Month(Me.Maß_Tag) & "/" & Day(Me.Maß_Tag) & "/" & Year(Me.Maß_Tag) & "#))"
DoCmd.OpenForm "Tagesübersicht"
Forms!Tagesübersicht!Kalender.Value = Me.Maß_Tag
Forms!Tagesübersicht!Tagesauswertung_Uf.Form.Filter = Filter

End Sub

Private Sub Teilnehmer_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Maßnahmen-Teilnehmer"

stLinkCriteria = "[Maß_Term_Nr]=" & Me![Maß_Term_Nr]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

'#############################################################################
'Modul Funktionen

Option Compare Database

Public Function Feiertag( _
Optional ByVal Datum As Variant _
) As String
Dim TagMonat As Integer
If Not IsDate(Datum) Then Datum = Now
If IsMissing(Datum) Then Datum = Now
TagMonat = Day(Datum) * 100 + Month(Datum)
Select Case TagMonat 'im Format DDMM
Case 101: Feiertag = "Neujahr"
Case 601: Feiertag = "Dreikönigstag *"
Case 105: Feiertag = "Tag der Arbeit"
Case 1508: Feiertag = "Mariä Himmelfahrt *"
Case 310: Feiertag = "Tag der deutschen Einheit"
Case 111: Feiertag = "Allerheiligen"
Case 2412: Feiertag = "Heiligabend *"
Case 2512: Feiertag = "1. Weihnachtstag"
Case 2612: Feiertag = "2. Weihnachtstag"
Case 3112: Feiertag = "Silvester *"
Case Else: Feiertag = FeiertagV(Datum)
End Select
End Function

Public Function FeiertagV( _
Optional ByVal Datum As Variant _
) As String
Dim Tage As Integer

If IsMissing(Datum) Then Datum = Now
Tage = DateDiff("d", Ostersonntag(Year(Datum)), Datum)
Select Case Tage 'relativ zu Ostersonntag
Case -2: FeiertagV = "Karfreitag"
Case 0: FeiertagV = "Ostersonntag"
Case 1: FeiertagV = "Ostermontag"
Case 39: FeiertagV = "Christi Himmelfahrt"
Case 49: FeiertagV = "Pfingsonntag"
Case 50: FeiertagV = "Pfingstmontag"
Case 60: FeiertagV = "Fronleichnam"
End Select
End Function

Public Function Ostersonntag( _
Optional ByVal Jahr As Integer _
) As Variant
Dim d1 As Integer
Dim d2 As Integer
Dim d3 As Integer
Dim d4 As Integer

'Formel nach C.F.Gauss gilt 1583 - 8202:
If Jahr = 0 Then Jahr = Year(Now)
If Jahr < 1583 Or Jahr > 8202 Then _
Err.Raise 5 'Invalid argument'

'Berechnung der Korrekturwerte:
d1 = (8 * (Jahr \ 100) + 13) \ 25 - 2
d2 = (Jahr \ 100) - (Jahr \ 400) - 2
d1 = (15 + d2 - d1) Mod 30
d3 = 2 * (Jahr Mod 4) + 4 * (Jahr Mod 7)
d4 = (d1 + 19 * (Jahr Mod 19)) Mod 30
If d4 = 29 Then
d4 = 28
ElseIf d4 = 28 Then
If (Jahr Mod 19) > 10 Then d4 = 27
End If
d3 = (6 + d2 + d3 + 6 * d4) Mod 7

'Berechnung des Datums (ausgehend vom 22.3.):
Ostersonntag = DateSerial(Jahr, 3, 22 + d4 + d3)
End Function

 

*bawling
Ich habe jetzt Mdac 2.7 und Jet4.0 SP6 installiert.
Alles ohne erfolg.

Hilfe!

Andreas

 

Auf ein Neues: Bei welchen DoCmd-Anweisungen hapert es denn? Bitte nicht wieder den kompletten Code posten, sondern einige Beispiele benennen.

 

Wenn ich eine Zeit lang mit der Datenbank arbeite kommt es beim dem Versuch ein Formular zu öffnen zu dem Laufzeitfehler 2486.
Beim Debuggen ist dann die "DoCmd.OpenForm" Zeile makiert.
Wenn ich dann das Debuggen beende funktioniert überhaupt keine docmd Anweisung mehr, Formulare lassen sich nur noch über denn Versuch Access zu beenden schließen und Access startet sich immer wieder von selbst wenn man es beenden will.

Andreas

Hier der Teil des Codes der beim Debuggen makiert ist.


Private Sub Teilnehmer_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Maßnahmen-Teilnehmer"

stLinkCriteria = "[Maß_Term_Nr]=" & Me![Maß_Term_Nr]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

 

Mir fällt bisher nur die ungünstige Benennung auf: Sonderzeichen wie deutsche Umlaute, Leerzeichen, Minus etc. sollte man immer vermeiden. Vielleicht liegt es schon daran?

 

Hallo,

ich habe hier den Thread bzgl. Laufzeitfehler 2486 gefunden, aber nach dem letzten Beitrag (aus Juni 2003) nichts mehr weiter gefunden, gab es da eine Lösung?

Ich habe auch das Problem bei einem Formular mit 2 Unterformularen, bei denen die Änderungen mit Zeit und Username festgehalten werden, daß nach einigen Aufrufen die Fehlermeldung auftaucht und man die Anwendung dann nur über den Taskmanager beenden kann.

Danke f. Info

Gruß,
duduroff

 

Keine Ahnung. Aber für mich klingt dein Problem nach einem oder mehreren nicht geschlossenen Recordsets.

Schließ mal alle Recordsets im Code und zerstöre die Objekte:
Code:

Wenn Du nicht mit Recordsets arbeitest, dann vergiss das. Dann müssen wir wat anderes ausgrübeln...
*Smilie

Grüße,
Andreas

 

Hallo und danke schon mal f. den Tip. Es werden zwar Recordsets verwendet, werden aber alle gleich wieder auf "nothing" gesetzt.

Wie kann ich denn herausfinden, mit welchem Steuerelement Access gerade noch beschäftigt ist?

Die Änderungszeit und der User werden beim Dirty-Ereignis gesetzt, hatte es auch schon beim Form_BeforeUpdate versucht, aber irgendetwas scheint sich da zu überschneiden.

Danke & Gruß,
duduroff