496 Aufrufe
Gefragt in Datenbanken von saschawittke Mitglied (117 Punkte)

Liebe Helfer,

eine Access 2010 DB verursacht seit letzter Woche folgenden Fehler:

kann mir jemand helfen?

Das hier ist der VBA Auszug:

Option Compare Database


Private Sub EMailButton_Click()
    Dim Applikation As New Outlook.Application
    Dim mail As Outlook.MailItem
    Set mail = Applikation.CreateItem(olMailItem)
    mail.To = Me![anmelder_email]
    mail.Subject = "Mein Treue-Pass"
    mail.HTMLBody = "<span style=""font-size:10pt; font-family:'Verdana'"">" & Me![mailtext]
    mail.Attachments.Add "Q:\Zentralspeicher\Verwaltung\Praemienkatalog.pdf", pdf, 1, "Pfullingen"
    mail.Attachments.Add "Q:\Zentralspeicher\Verwaltung\Teilnahmebedingungen.pdf", pdf, 1, "Pfullingen"
    mail.SentOnBehalfOfName = "pfullingen1@tui-reisecenter.de"
    mail.Display
    Me![punkte_erledigt] = -1
    Me![weiter].SetFocus
    
End Sub
Private Sub Form_Open(Cancel As Integer)
[DoCmd].[Maximize]


End Sub

Private Sub Kombinationsfeld66_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld66] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Kombinationsfeld102_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld102] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Befehl149_Click()
On Error GoTo Err_Befehl149_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "reise"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl149_Click:
    Exit Sub

Err_Befehl149_Click:
    MsgBox Err.Description
    Resume Exit_Befehl149_Click
    
End Sub
Private Sub Kombinationsfeld163_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld163] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Kombinationsfeld165_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld165] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Kombinationsfeld167_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld167] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Me![EMailButton].SetFocus
End Sub

Ich hab nichts bewusst an dem Formular geändert, so dass ich nicht nachvollziehen kann woher der Fehler kommt und mit VBA kann ich mich leider nicht aus, so dass mir auch hier mein eigener Kopf keine Hilfe bietet ;-)

Lieben Dank im Voraus

Sascha

5 Antworten

0 Punkte
Beantwortet von m-o Profi (15.8k Punkte)
Hallo Sascha,

wenn ein VBA-Fehler auftaucht, dann wird ja die betreffende Zeile gelb markiert. Welche Zeile wird denn beim Auftauchen der Fehlermeldung markiert (Botton Debuggen drücken, wenn die Fehlermeldung auftaucht).

Gruß

M.O.
0 Punkte
Beantwortet von saschawittke Mitglied (117 Punkte)
Hallo M.O.

vielen Dank für das schnelle Feedback, doch leider erscheint das Debuggen-Popup nicht, da hätte ich sonst tatsächlich auch noch minimalst Kenntnisse gehabt um das zu beheben :-)

Ich habe ein Formular in welchem Buttons angelegt sind und bis auf zwei Stück funktionieren alle.

Die beiden fehlerhaften bringen dann die Fehlermeldung wie im Ursprungspost abgebildet.

Komischerweise aber nur manchmal und nicht immer!

Grüße
0 Punkte
Beantwortet von m-o Profi (15.8k Punkte)
Hallo Sascha,

welche Bottons mit welchen Makros funktionieren denn nur manchmal?

Gruß

M.O.
0 Punkte
Beantwortet von saschawittke Mitglied (117 Punkte)

Hi M.O.

dieses Makro steht hinter dem Button:

und die Ereignisprozedur "Beim Öffnen" in diesem zu öffnenden Formular ist oben gepostet.

VG

0 Punkte
Beantwortet von m-o Profi (15.8k Punkte)

Hallo Sascha,

in Access bin ich leider nicht so fit. Aber der Code scheint ja in Ordnung zu sein und der Fehler taucht nicht immer auf. Daher habe ich mal etwas gesucht. Schau mal, ob dir dieser Link hier weiterhilft:

http://www.office-loesung.de/ftopic177993_0_0_asc.php

Und hier noch etwas in Englisch:

https://answers.microsoft.com/en-us/office/forum/office_xp-access/return-without-gosub/68487187-626c-48b7-a27a-7bf615b18482?db=5

Gruß

M.O.

...