Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Access 2003 Laufzeitfehler 438 Objekt wird nicht gefunden
zurück: mehrere Dateien einlesen, verarbeiten und ausgeben weiter: Textfeld mit SQL Abfrage, wie? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Rückfrage Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Arno Lesmeister
Gast


Verfasst am:
15. Mai 2007, 10:28
Rufname:

Access 2003 Laufzeitfehler 438 Objekt wird nicht gefunden - Access 2003 Laufzeitfehler 438 Objekt wird nicht gefunden

Nach oben
       Version: Office 2003

Hi NG,

habe folgendes Problem, das ich bei der Suchauswahl folgende Fehlermeldung unter Access 2003 SP2 erhalte. Laufzeitfehler 438 Objekt wird nicht gefunden.
Auf meinem Notebook Windows XP läuft die Anwendung nicht.

Zuhause im Büro und im Geschäft mit Office XP funktioniert es Problemlos.

Woran könnte es liegen?
Code:
Sub DatagridFüllen()
    Dim sql_string As String
    Dim temp_sql As String
    Dim index As Integer
   
    On Error Resume Next
    ' Besteht eine Verbindung ?
    If verbindung.State = adStateClosed Then
        Neue_Verbindung
    End If
    ' SQL Befehl
    ' Lese den selektierten Eintrag aus Combobox
    ' Zuweisen
    index = Me!cboAuswahl.ListIndex
    Select Case index
      Case 0
        ' t_Aktivität
        temp_sql = Me!txtSuchtext
        ' Darf nicht leer sein !
        If Len(temp_sql) = 0 Then
            Exit Sub
          Else
            ' JOIN Befehle über drei Tabellen:
            sql_string = "SELECT * " & _
                           "FROM (t_Aktivität AS A " & _
                                 "RIGHT JOIN t_Projekt AS P " & _
                                 "ON A.Projektnummer = P.Projektnummer) " & _
                                "LEFT JOIN t_Kennwerte AS K " & _
                                "ON A.Projektnummer = K.Projektnummer " & _
                          "WHERE A.Code = " & temp_sql
            mod_Suchtypen.Filter = AktCodeProKenn
            mod_Suchtypen.Suchtext = temp_sql
        End If
      Case 1
        temp_sql = Me!txtSuchtext
        If Len(temp_sql) = 0 Then
            Exit Sub
          Else
            ' Alle Treffer aus Aktivitätsbeschreibung
            sql_string = "SELECT * " & _
                           "FROM t_Aktivitätscodebeschreibung " & _
                          "WHERE Code = " & temp_sql
            mod_Suchtypen.Filter = AktCodeBeschreibung
            mod_Suchtypen.Suchtext = temp_sql
        End If
      Case 2
        temp_sql = Me!txtSuchtext
        If Len(temp_sql) = 0 Then
            Exit Sub
          Else
            ' Suche nach Projeknamen und Zeige Einträge aus t_Projekt
            ' und t_Kennwerte an !
            sql_string = "SELECT * " & _
                           "FROM t_Projekt AS P " & _
                                "RIGHT JOIN t_Kennwerte AS K " & _
                                "ON P.Projektnummer = K.Projektnummer " & _
                          "WHERE P.Projektname = '" & temp_sql & "'"
            mod_Suchtypen.Filter = Projektname
            mod_Suchtypen.Suchtext = temp_sql
        End If
      Case 3
        temp_sql = Me.txtSuchtext
        If Len(temp_sql) = 0 Then
            Exit Sub
          Else
            ' Auftragsnummer (Ausgabe t_Projekt und t_Kennwerte
            sql_string = "SELECT * " & _
                           "FROM t_Projekt AS P " & _
                                "RIGHT JOIN t_Kennwerte " & _
                                "ON P.Projektnummer = K.Projektnummer " & _
                          "WHERE P.Auftragsnummer = " & temp_sql
            mod_Suchtypen.Filter = Auftragsnummer
            mod_Suchtypen.Suchtext = temp_sql
            End If
      Case Is = 4
        temp_sql = Me.txtSuchtext
        If Len(temp_sql) = 0 Then
            Exit Sub
          Else
            ' Angebotsnummer (Ausgabe t_Projekt und t_Kennwerte)
            sql_string = "SELECT * " & _
                               "FROM t_Projekt AS P " & _
                                    "RIGHT JOIN t_Kennwerte " & _
                                    "ON P.Projektnummer = K.Projektnummer " & _
                              "WHERE P.Angebotsnummer = " & temp_sql
            mod_Suchtypen.Filter = Angebotsnummer
            mod_Suchtypen.Suchtext = temp_sql
        End If
      Case Is = 5
        temp_sql = Me.txtSuchtext
        If Len(temp_sql) = 0 Then
            Exit Sub
          Else
            ' Kunde (Ausgabe t_Projekt und t_Kennwerte)
            sql_string = "SELECT * " & _
                               "FROM t_Projekt AS P " & _
                                    "RIGHT JOIN t_Kennwerte " & _
                                    "ON P.Projektnummer = K.Projektnummer " & _
                              "WHERE P.Kunde = '" & temp_sql & "'"
            mod_Suchtypen.Filter = Kunde
            mod_Suchtypen.Suchtext = temp_sql
        End If
        ' Unwahrscheinlich ;)
        Case Else
        Exit Sub
    End Select
    With rs
        ' Wenn offen, dass schließen !
        If .State = adStateOpen Then
            Set DataGrid1.DataSource = Nothing
            .Close
        End If
        .CursorType = adOpenKeyset
        .LockType = adLockPessimistic
        ' Öffne !
        .Open sql_string, verbindung
        ' Einträge vorhänden ?
        If .RecordCount = 0 Then
            MsgBox "Nichts gefunden"
            .Close
            ' Dann schließen !
            Exit Sub
        End If
        .MoveFirst
        With DataGrid1
            Set .DataSource = rs
            rs.MoveFirst
        End With
    End With
End Sub

Private Sub cmdSuche_Click()
    On Error Resume Next
    ' Überprüfe die Länge
    If Len(Me!txtSuchtext) > 0 Then
        Call DatagridFüllen
      Else
        Exit Sub
    End If
End Sub

Private Sub DataGrid1_DblClick()
    On Error Resume Next
    ' Öffne die nötigen Formulare
    Formular_Anzeigen
End Sub

Private Sub Form_Load()
    'Neue_Verbindung
    Call DatagridFüllen
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
    ' Verbindung schließen
    If verbindung.State = adStateOpen Then
        verbindung.Close
    End If
End Sub

Private Sub cmdmenü_Click()
    Dim stdocname As String
   
    'Menü schließen
    DoCmd.Close
    'Formularname definieren und öffnen, Suce wird dann geschlossen das
    'nur das Menüformular offen ist.
    stdocname = "f_Menü"
    DoCmd.OpenForm stdocname
End Sub

Sub Formular_Anzeigen()
    Dim frm As String
    Dim frm2 As String
    Dim sql As String
    Dim result As String
   
    ' SQL
    ' Projektnummer auslesen !
    On Error Resume Next
    If rs2.State = adStateOpen Then
        rs2.Close
    End If
    ' Fallunterscheidungen
    Select Case mod_Suchtypen.Filter
      Case 0
        ' Lese die Projektnummer aus !
        sql = "SELECT Projektnummer " & _
                "FROM t_Aktivität " & _
               "WHERE Code = " & mod_Suchtypen.Suchtext
        ' Neue Verbindung
        rs2.Open sql, verbindung
        ' Lese die Projektnummer aus
        result = rs2.Fields("Projektnummer")
        ' Anzeigen Kennwerte
        frm = "f_Kennwerte"
        DoCmd.OpenForm frm
        ' Filter nach Projektnummer
        'Form_f_Kennwerte.Filterform (result)
        Form_f_Kennwerte.Filterform pnummer, result
        ' Anzeigen Projekte
        frm2 = "t_Projekt"
        DoCmd.OpenForm frm2
        Form_t_Projekt.Filterform pnummer, result
        '#####################################################################
      Case Is = 1
        'sql = "SELECT Projektnummer " & _
        '        "FROM t_Aktivitätscodebeschreibung " & _
        '       "WHERE Code = " & mod_Suchtypen.Suchtext
        ' Nur aktuellen Eintrag anzeigen
        'rs2.Open sql, verbindung
        ' Anzeigen Kennwerte
        frm2 = "f_Aktivitätscodebeschreibung"
        DoCmd.OpenForm frm2
        Form_f_Aktivitätscodebeschreibung.Filterform mod_Suchtypen.Suchtext
        '#####################################################################
      Case 2
        ' Projektnummer auslesen
        sql = "SELECT Projektnummer " & _
                "FROM t_Projekt " & _
               "WHERE Projektname = '" & mod_Suchtypen.Suchtext & "'"
        rs2.Open sql, verbindung
        result = rs2.Fields("Projektnummer")
        ' Anzeigen Kennwerte
        frm = "f_Kennwerte"
        DoCmd.OpenForm frm
        ' Filter nach Projektnummer
        'Form_f_Kennwerte.Filterform (result)
        Form_f_Kennwerte.Filterform pnummer, result
        ' Anzeigen Projekte
        frm2 = "t_Projekt"
        DoCmd.OpenForm frm2
        Form_t_Projekt.Filterform PName, result
        frm = "t_Projekt"
        DoCmd.OpenForm frm
        'Form_t_Projekt.Filterform (result)
        '#####################################################################
      Case 3
        '  aus t_Projekt lesen
        sql = "SELECT Projektnummer " & _
                "FROM t_Projekt " & _
               "WHERE Auftragsnummer = " & mod_Suchtypen.Suchtext
        rs2.Open sql, verbindung
        result = rs2.Fields("Projektnummer")
        ' Anzeigen Kennwerte
        frm = "f_Kennwerte"
        DoCmd.OpenForm frm
        ' Filter nach Projektnummer
        'Form_f_Kennwerte.Filterform (result)
        Form_f_Kennwerte.Filterform pnummer, result
        ' Anzeigen Projekte
        frm2 = "t_Projekt"
        DoCmd.OpenForm frm2
        Form_t_Projekt.Filterform PAuftragsnummer, result
        '#####################################################################
      Case 4
        ' Projektnummer aus t_Projekt lesen
        sql = "SELECT Projektnummer " & _
                "FROM t_Projekt " & _
               "WHERE Angebotsnummer = " & mod_Suchtypen.Suchtext
        rs2.Open sql, verbindung
        result = rs2.Fields("Projektnummer")
        ' Anzeigen Kennwerte
        frm = "f_Kennwerte"
        DoCmd.OpenForm frm
        ' Filter nach Projektnummer
        'Form_f_Kennwerte.Filterform (result)
        Form_f_Kennwerte.Filterform pnummer, result
        ' Anzeigen Projekte
        frm2 = "t_Projekt"
        DoCmd.OpenForm frm2
        Form_t_Projekt.Filterform PAngebotsnummer, result
        '#####################################################################
      Case 5
        ' Projektnummer aus t_Projekt lesen
        sql = "SELECT Projektnummer " & _
                "FROM t_Projekt " & _
               "WHERE Kunde = '" & mod_Suchtypen.Suchtext & "'"
        rs2.Open sql, verbindung
        result = rs2.Fields("Projektnummer")
        ' Anzeigen Kennwerte
        frm = "f_Kennwerte"
        DoCmd.OpenForm frm
        ' Filter nach Projektnummer
        'Form_f_Kennwerte.Filterform (result)
        Form_f_Kennwerte.Filterform pnummer, result
        ' Anzeigen Projekte
        frm2 = "t_Projekt"
        DoCmd.OpenForm frm2
        Form_t_Projekt.Filterform PKunde, result
    End Select
End Sub
{Code formatiert by Willi Wipp}
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Mai 2007, 17:31
Rufname:
Wohnort: Berlin


AW: Access 2003 Laufzeitfehler 438 Objekt wird nicht gefunde - AW: Access 2003 Laufzeitfehler 438 Objekt wird nicht gefunde

Nach oben
       Version: Office 2003

Könntest Du bitte den Code als Code formatieren (Code markieren und oberhalb des Eingabefeldes auf "Code" klicken), dann ist es übersichtlicher.

Außerdem wäre es hilfreich, wenn Du uns mitteilen könntest, an welcher Stelle der Fehler auftritt.

Als erste Maßnahme könntest Du mal an dem Rechner, an dem es nicht funktioniert, unter Extras/Verweise nachsehen, ob alles richtig eingebunden ist.

_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: AC 2003 - Summe aus Spalte für späteres Pivot Chart 2 Binzn 396 27. Jul 2009, 07:51
Binzn AC 2003 - Summe aus Spalte für späteres Pivot Chart
Keine neuen Beiträge Access Tabellen & Abfragen: Performance Problem in Access 2003 Formular 1 Pivot-Laie 885 08. März 2009, 20:10
Martin1000 Performance Problem in Access 2003 Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügeabfrage erkennt nur eine Tabelle - Access 2003 0 BerndK 2421 24. Feb 2009, 21:05
BerndK Anfügeabfrage erkennt nur eine Tabelle - Access 2003
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 94 13 noreia 414 11. Dez 2008, 09:24
noreia Laufzeitfehler 94
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 3109, Datensatz nicht zu löschen 0 Mitch26 408 31. Okt 2008, 18:45
Mitch26 Laufzeitfehler 3109, Datensatz nicht zu löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler bei Übertrag in Listenfeld 1 Gast 511 01. Okt 2008, 22:20
MiLie Laufzeitfehler bei Übertrag in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2003 DB zu Access 2007 0 desertangle 1427 17. Apr 2008, 11:08
desertangle Access 2003 DB zu Access 2007
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2003 Frontend / Backend SQL Server 0 Micha_Mi 1120 04. Nov 2007, 19:43
Micha_Mi Access 2003 Frontend / Backend SQL Server
Keine neuen Beiträge Access Tabellen & Abfragen: Subquery Access 2003 2 schulle2 601 11. Okt 2007, 10:37
schulle2 Subquery Access 2003
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus mehreren Spalten einer Tabelle mit Access 2003 5 Akima 992 08. Okt 2007, 17:20
Akima Abfrage aus mehreren Spalten einer Tabelle mit Access 2003
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 2342 bei KreuzTabelle als SQL 5 elmagnifico 1899 18. Sep 2007, 14:07
Willi Wipp Laufzeitfehler 2342 bei KreuzTabelle als SQL
Keine neuen Beiträge Access Tabellen & Abfragen: Daten in access 2003 - Filtern leerer Felder 2 Amitl 1613 30. Mai 2007, 21:25
Amitl Daten in access 2003 - Filtern leerer Felder
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript