Access DB WTF (Dringend)

[d00mfreak]

Moin

Ich hab hier grad ne kleine Leidensgeschichte mit einer selbsterstellten Access DB.

Erst mit Access 07 gebaut, um danach festzustellen, dass die Konvertierungsfunktion Access' für ältere Versionen fürn Ar*** ist. Danach hab ich sie mit Access 03 neu erstellt, und war der Meinung, sie würde nun funktionieren... bis mich heute ein Kollege angesprochen hat, dass das auf seinem Rechner sei das nicht der Fall sei.

Tjo, nun hab ich ne DB, die auf allen Rechnern bis auf Einen läuft. Ausgestattet sind sie alle mit Access 03. Und bei dem eben genannte Ausreisser bekomme ich bei der Betätigung eines jeden Bedienelements jedesmal folgende Fehlermeldung:
Sie haben als Einstellung der Ereigniseigenschaft "xy" eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Objekt oder Klasse unterstützt diese Ergebnismenge nicht.

Hier der VBA Code, ich wäre dankbar, könnte mal jemand reinschaun:

Zum Verständnis:
-Befehl12: Button "Suchen" anhand der in comboboxValues und comboboxFields eingestellten Werte
-Befehl14: Button Suche zurücksetzen
-Befehl250: Button neuer Datensatz
-Befehl252: Button Datensatz speichern
-comboboxFields: beinhaltet alle Felder aus Tabelle1
-comboboxValues: beinhaltet alle Werte des in comboboxField gewählten Feldes
-text237: Textbox für die inkrementelle Suche in allen Datensätzen
-Liste261: ListBox zum Anzeigen und Auswählen von Datensätzen

Option Compare Database

Private Sub Befehl12_Click()
    Dim SQLstr As String
    If Not IsNull(Me.comboboxFields) And Not IsNull(Me.comboboxValues) Then
        SQLstr = "SELECT [Tabelle1].[ID], [Tabelle1].[Projektnummer], [Tabelle1].[Bauvorhaben], [Tabelle1].[Projektleiter EMP] FROM Tabelle1 where [Tabelle1].[" & Me.comboboxFields & "]"
        
        If (Me.comboboxValues = "Ja") Then
            SQLstr = SQLstr & " = -1"
        ElseIf (Me.comboboxValues = "Nein") Then
            SQLstr = SQLstr & " = 0"
        Else
            SQLstr = SQLstr & " = '" & Me.comboboxValues & "';"
        End If
        
        Liste261.RowSource = SQLstr
    Else
        MsgBox "Bitte wählen sie etwas aus"
    End If
End Sub

Private Sub Befehl14_Click()
    Liste261.RowSource = "SELECT [Tabelle1].[ID], [Tabelle1].[Projektnummer], [Tabelle1].[Bauvorhaben], [Tabelle1].[Projektleiter EMP] FROM Tabelle1;"
End Sub


Private Sub Befehl250_Click()
On Error GoTo Err_Befehl250_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Befehl250_Click:
    Exit Sub

Err_Befehl250_Click:
    MsgBox Err.Description
    Resume Exit_Befehl250_Click
    
End Sub

Private Sub Befehl252_Click()
On Error GoTo Err_Befehl252_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Befehl252_Click:
    Exit Sub

Err_Befehl252_Click:
    MsgBox Err.Description
    Resume Exit_Befehl252_Click
    
End Sub

Private Sub comboboxFields_AfterUpdate()
    Dim SQLstr As String
    If Not IsNull(Me.comboboxFields) Then
        SQLstr = "SELECT DISTINCT [Tabelle1].[" & Me.comboboxFields & "] FROM Tabelle1;"
        Me.comboboxValues.RowSource = SQLstr
        
    End If
        
End Sub

Private Sub Text237_Change()
    Dim SQLstr As String
    
    If Not (Me.Text237.Text = "") Then
        SQLstr = "SELECT [Tabelle1].[ID], [Tabelle1].[Projektnummer], [Tabelle1].[Bauvorhaben], [Tabelle1].[Projektleiter EMP] FROM Tabelle1 WHERE [Tabelle1].[Bauvorhaben] Like '*" & Me.Text237.Text & "*'"
        Liste261.RowSource = SQLstr
    Else
        Liste261.RowSource = "SELECT [Tabelle1].[ID], [Tabelle1].[Projektnummer], [Tabelle1].[Bauvorhaben], [Tabelle1].[Projektleiter EMP] FROM Tabelle1;"
    End If
End Sub
Private Sub Liste261_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Str(Nz(Me![Liste261], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ich wäre für jede Hilfe dankbar.
MfG