Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Frontend und Backend: kann nicht auf die Tabellen zugreifen
zurück: Problem mit Abfrage, outer joins ? weiter: in Abfrage werden nur 255 Zeichen von Memo Feld angezeigt ?? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mhw
Einsteiger


Verfasst am:
22. Mai 2004, 11:32
Rufname:
Wohnort: Oldenburg

Frontend und Backend: kann nicht auf die Tabellen zugreifen - Frontend und Backend: kann nicht auf die Tabellen zugreifen

Nach oben
       

Hallo!
Für eine Antwort auf mein Problem wäre ich sehr dankbar!!!!!!!!!
Ich habe folgendes Problem:
Eine Access Datenbank (MDB) habe ich in eine Frontend und Backend Datenbank
aufgeteilt. Leider funktionieren jetzt einige Prozeduren nicht mehr, nachdem
die Tabellen nicht mehr direkt in der Datenbank sind, sondern eingebunden wurden.
Es erscheint folgende Fehlermeldung:
-------------------------------------------------------------------------------------------
Unzulässige Operation. (Fehler 3219)
Mögliche Ursachen:
Sie haben versucht, einen Wert in eine schreibgeschützte Eigenschaft zu schreiben.
Im Hilfethema zur Eigenschaft erfahren Sie, ob die Eigenschaft gelesen und geschrieben
werden kann.
Sie haben versucht, eine Methode oder Eigenschaft für einen Typ von Recordset-Objekt zu
verwenden, für den die Methode oder Eigenschaft nicht verwendet werden kann..
Unter Recordset-Objekt - Zusammenfassung erfahren Sie, welche Methoden und Eigenschaften
für einen bestimmten Typ von Recordset-Objekt zulässig sind.
Sie haben versucht, eine Eigenschaft an eine Properties-Auflistung eines Objekts anzufügen,
das keine benutzerdefinierten Eigenschaften unterstützt.
Sie haben versucht, die Update-Methode auf ein schreibgeschütztes Recordset-Objekt anzuwenden."
---------------------------------------------------------------------------------------------
Folgende Prozedur wird verwendet, um Daten von der Festplatte einzulesen und in eine
Tabelle zu schreiben:
Code:
Public Sub Inhalt_Speichern()
    Dim Anzahl As Long
    Dim Datensatz As Recordset
    Dim Maske As String
    Dim Aufnahmedatum
    Dim Datumeingabe
    DoCmd.Hourglass True
   
    '--------Dateimaske-------------------------
    Maske = Forms![frm_Laufwerkauswahl]![Dateimaske]
    '--------------------------------------------
    Set Datensatz = CurrentDb.OpenRecordset("tbl_Digitalfotodaten", dbOpenTable)
    Anzahl = 0
    For VerzeichnisElement = LBound(Verzeichnis) To VerzeichnisMax
        Datei = Dir$(Verzeichnis(VerzeichnisElement) & Maske)
         While Datei <> ""
            With Datensatz
                .AddNew
                ![tbl_Datentraeger_ID] = Forms![frm_Datenträgerdaten]![PS_Datentraeger].Value
                ![Dateipfad] = Verzeichnis(VerzeichnisElement)
                ![Dateiname] = Datei
                ![Dateigröße] = FileLen(Verzeichnis(VerzeichnisElement) & Datei)
                ![Dateiuhrzeit] = Format(FileDateTime((Verzeichnis(VerzeichnisElement) & Datei)), "hh:mm")
                ![Dateidatum] = Format(FileDateTime((Verzeichnis(VerzeichnisElement) & Datei)), "dd/mm/yyyy")
                If Forms![frm_Laufwerkauswahl].[KontrollkästchenNeu] = -1 Then
                    ![Neu] = -1
                  Else
                    ![Neu] = 0
                End If
                If Forms![frm_Laufwerkauswahl].[KontrollkästchenDigitalfoto] = -1 Then
                    ![Digitalfoto] = -1
                  Else
                    ![Digitalfoto] = 0
                End If
                If Forms![frm_Laufwerkauswahl].[KontrollkästchenFotoscan] = -1 Then
                    ![Fotoscan] = -1
                  Else
                    ![Fotoscan] = 0
                End If
                If Forms![frm_Laufwerkauswahl].[KontrollkästchenPCD] = -1 Then
                    ![PCD] = -1
                  Else
                    ![PCD] = 0
                End If
                If Forms![frm_Laufwerkauswahl].[KontrollkästchenPositivscan] = -1 Then
                    ![Positivscan] = -1
                  Else
                    ![Positivscan] = 0
                End If
                If Forms![frm_Laufwerkauswahl].[KontrollkästchenVideobild] = -1 Then
                    ![Videobild] = -1
                  Else
                    ![Videobild] = 0
                End If
                .Update
            End With
            Dummy = SysCmd(acSysCmdSetStatus, VerzeichnisElement & " Ordner von " & VerzeichnisMax _
                    & " durchsucht, " & Anzahl & " Dateien gefunden")
            Anzahl = Anzahl + 1
            Datei = Dir$()
        Wend
    Next
    Speicherinhalt_löschen
    DoCmd.Hourglass False
   
    Dummy = SysCmd(acSysCmdClearStatus)
    MsgBox "Insgesamt wurden " & Anzahl & " Dateien in " & VerzeichnisMax & " Ordnern eingelesen.", vbInformation, "MHW Digitalfoto"
    DatenträgerLabel
    Exit Sub

Was könnte hier falsch laufen? Ich kann sozusagen nicht mehr auf die eingebundenen
Tabellen zugreifen. Für eine Lösung wäre ich sehr dankbar.
Robsl
Unmögliches wollen, um Mögliches zu erreichen


Verfasst am:
25. Mai 2004, 12:25
Rufname:
Wohnort: München


Dynaset wäre nett - Dynaset wäre nett

Nach oben
       

Hallo Manfred,

die Lösung ist eigentlich gar nicht so kompliziert:

Schreib bei der Definition deines Recordsets statt
Code:
Set Datensatz = CurrentDb.OpenRecordset("tbl_Digitalfotodaten", dbOpenTable)
einfach
Code:
Set Datensatz = CurrentDb.OpenRecordset("Select * from tbl_Digitalfotodaten", dbOpenDynaset)
und schon funktioniert's.

Den Grund vermute ich in der Tatsache, dass "CurrentDB" verwendet wird. Versuch's alternativ mal mit der verknüpften Datenbank, dann könnt's auch mit dbOpenTable klappen.

_________________
Grüße, Robsl (Office 2003)
Einen guten Programmierer erkennt man am Datendrang
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: Datenabgleich gleicher Tabellen 5 Gast 1121 30. Jul 2004, 09:27
Willi Wipp Datenabgleich gleicher Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 gleiche Tabellen in 2 verschiedenen DB verknüpfen 2 mondi 1016 23. Jun 2004, 10:10
mondi 2 gleiche Tabellen in 2 verschiedenen DB verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Primärschlüssel in Tabellen mit Beziehungen erneuern 1 mhw 1524 07. Jun 2004, 18:31
faßnacht(IT); Primärschlüssel in Tabellen mit Beziehungen erneuern
Keine neuen Beiträge Access Tabellen & Abfragen: 2 tabellen verknüpfen und daten übergeben 5 mihca 2005 05. Jun 2004, 13:22
mihca 2 tabellen verknüpfen und daten übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: 2 tabellen vergleichen 4 Lordoo88 1556 03. Jun 2004, 16:43
Lordoo88 2 tabellen vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage -> findet Tabellen nicht (GELÖST) 14 DAU 5674 26. Mai 2004, 13:18
DAU Löschabfrage -> findet Tabellen nicht (GELÖST)
Keine neuen Beiträge Access Tabellen & Abfragen: Zwei Tabellen zusammenfügen und Nullwerte überschreiben 1 m.hataj 1304 13. Mai 2004, 18:10
faßnacht(IT); Zwei Tabellen zusammenfügen und Nullwerte überschreiben
Keine neuen Beiträge Access Tabellen & Abfragen: kriterium - datensatz nur in einer von zwei tabellen 3 budking82 1000 11. Mai 2004, 12:59
budking82 kriterium - datensatz nur in einer von zwei tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage erstelen, die zwei tabellen vergleicht 2 pucky 802 27. Apr 2004, 10:53
ProLogistik Abfrage erstelen, die zwei tabellen vergleicht
Keine neuen Beiträge Access Tabellen & Abfragen: Abgleich von 2 tabellen in access 2003 4 Fierce 1719 16. Apr 2004, 08:27
el_gomero Abgleich von 2 tabellen in access 2003
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage über mehrere Tabellen 6 Martin1977 976 02. Apr 2004, 15:43
Martin1977 Abfrage über mehrere Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: datensatz aus mehreren Tabellen im formular anzeigen 1 SixPack 1197 29. März 2004, 10:53
Willi Wipp datensatz aus mehreren Tabellen im formular anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum