Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fehler 3027 nach Komprimieren
zurück: Fehlerhafte Darstellung von Gif's weiter: Tabelle in mySQL DB erstellen (Acc2k & Acc2k7) 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
Tazz85
Gast


Verfasst am:
13. Nov 2008, 20:13
Rufname:

Fehler 3027 nach Komprimieren - Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo in die Runde,

ich Wende mich mit folgendem Problem an euch: Ich musste heut auf Arbeit eine Datenbank komprimieren. Diese dient als Backend (also alle Daten sind dort gespeichert). Seit der Komprimierung bekomme ich jedoch ständig den Fehler 3027. Keine Ahnung warum. Anbei ist mal der Code der Funktion. Den Punkt wo der Fehler auftaucht habe ich einfach mal Fett markiert. Dazu muss ich vllt. noch sagen das ich die Funktion nicht programmiert habe sondern mein Vorgänger.
Code:
'Erzeugt einen neuen Einkaufsauftrag
'Liefert bei Erfolg Nummer des EKA
Function fktCreateEKANeu(NeueEKANr, LieferNr)
    Dim dbDatenBank  As DAO.Database
    Dim dtEKA        As DAO.Recordset
    Dim dtBM         As DAO.Recordset
    Dim dtBMNeu      As DAO.Recordset
    Dim dtEKAInfo    As DAO.Recordset
    Dim dtLieferer   As DAO.Recordset
   
    Set dbDatenBank = CurrentDb
    Set dtEKA = dbDatenBank.OpenRecordset("EKA", DB_OPEN_DYNASET)
    fktCreateEKANeu = 0
    ' Prüfen ob EKANummer bereits vergeben
    dtEKA.FindFirst "EKANr = '" & NeueEKANr & "'"
    If dtEKA.NoMatch = False Then
        MsgBox "EKA-Nr existiert bereits"
        dtEKA.Close
        Exit Function
    End If
    'Alle BM-Eintragungen zu diesem Lieferanten filtern
    Set dtBM = dbDatenBank.OpenRecordset("ABedarf", DB_OPEN_DYNASET)
    'Set dtBM = dbDatenBank.OpenRecordset("ABedarf", dbOpenDynamic, 0, _
    '                                     dbOptimistic)
    dtBM.Filter = "[EKA]=No AND [LieferantenNr]= '" & LieferNr & "'"
    dtBM.Sort = "[TeileNr]"
    Set dtBMNeu = dtBM.OpenRecordset(DB_OPEN_DYNASET)
    Set dtEKAInfo = dbDatenBank.OpenRecordset("EKAInfo", DB_OPEN_DYNASET)
    Set dtLieferer = dbDatenBank.OpenRecordset("Lieferer", DB_OPEN_DYNASET)
    'Neue Datensätze in EKA übertragen
    If dtBMNeu.BOF = False Then
        dtBMNeu.MoveFirst
    End If
    If dtEKA.BOF = False Then
        dtEKA.MoveFirst
    End If
    Pos = 1
    dtEKAInfo.AddNew
    dtEKAInfo!EKANr = NeueEKANr
    dtEKAInfo!LieferantenNr = LieferNr
    If IsNull(dtBMNeu![AuftragsNr]) = False Then
        dtEKAInfo![lfdEKANr] = fktNextlfdEKANr(dtBMNeu![AuftragsNr])
        dtEKAInfo![EKAAuftrag] = dtBMNeu![AuftragsNr]
    End If
    Do Until dtBMNeu.EOF
        dtEKA.AddNew
        'dtBMNeu.Edit
        dtEKA![BMIdent] = dtBMNeu![ID]
        dtEKA![Teilenr] = dtBMNeu![Teilenr]
        dtEKA![EKANr] = NeueEKANr
        dtEKA![Position] = Pos
        dtEKA![AuftragsNr] = dtBMNeu![AuftragsNr]
        dtEKA![Benennung] = dtBMNeu![Benennung]
        dtEKA![Menge] = dtBMNeu![Menge]
        dtEKA![Mengeneinheit] = dtBMNeu![Mengeneinheit]
        dtEKA![LieferterminGew] = dtBMNeu![LieferterminGew]
        dtLieferer.FindFirst "TeileNummer= '" & dtBMNeu![Teilenr] & "'"
        If dtLieferer.NoMatch = False Then
            dtEKA![Einzelkosten] = dtLieferer![ZukaufKosten]
            dtEKA![RabattKosten] = dtLieferer![RabattierteKosten]
        End If
        dtBMNeu.Edit '<== HIER ###############################################
        dtBMNeu![EKA] = True
        dtBMNeu![EKANr] = NeueEKANr
        dtEKA.Update
        dtBMNeu.Update
        dtBMNeu.MoveNext
        Pos = Pos + 1
    Loop
    dtEKA.Close
    dtEKAInfo.Update
    dtEKAInfo.Close
    dtLieferer.Close
    dtBM.Close
    dtBMNeu.Close
    fktCreateEKANeu = NeueEKANr
End Function
{Markierung ersetzt by Willi Wipp}
Ich hoffe mir kann jemand helfen. Wüsste aber nicht wo der Fehler liegen könnte.

MfG
Stefan
KlausMz
Moderator Access


Verfasst am:
13. Nov 2008, 20:19
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,
bitte zitiere die Fehlermeldung vollständig und zeige die Zeile wo der Fehler auftritt. Fettschrift ist nicht zu erkennen.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Tazz85
Gast


Verfasst am:
13. Nov 2008, 20:31
Rufname:

AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,

Sorry hatte vergesen Fehler-Mitteilung mit Hinzuschreiben:
Zitat:
Laufzeitfehler 3027: Aktualisieren nicht möglich. Datenbank oder Objekt ist schreibgeschützt
Das mit dem nicht Fett ist jetzt n bissl Schlecht. Liegt in der 16. Zeile von Unten ([ b ]dtBMNeu.Edit[/ b ]) . Dachte eigentlich das man im Code auch Fett geht.
KlausMz
Moderator Access


Verfasst am:
13. Nov 2008, 20:37
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,
dann liegt dem Recordset eine nicht aktuaisierbare Abfrage zu Grunde.
Das heist, Du kannst auch manuell keine Daten ändern.

Ist das eine Abfrage: (DB_OPEN_DYNASET), das ist mir nicht so klar.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Tazz85
Gast


Verfasst am:
13. Nov 2008, 20:47
Rufname:


AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Das dacht ich mir ja eigentlich auch, aber bis heut kurz vor 15:00 Uhr ging das noch einwandfrei. Daher versteh ich nicht was auf ein mal dran Falsch sein soll. Mir fällt auch nicht wirklich ein wie ich die Abfrage ändern sollte. irgendwie steh ich heut voll auf dem Schlauch.

MfG
Stefan
KlausMz
Moderator Access


Verfasst am:
13. Nov 2008, 20:50
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,
es leigt an der Abfrage, was ist das für eine Abfrage?
Gruppiert?
Mehrere Tabellen?
Beziehungen?

Zeige bitte den SQL Text.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Tazz85
Gast


Verfasst am:
13. Nov 2008, 20:56
Rufname:

AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,

also die dtBMneu beruht ja meiner betrachtung nach auf dem Ergebnis der Abfrage dtNMneu (-->ABedarf). Hierzu der SQL-Code ist:
Code:
SELECT B.ID, B.BMNr, B.Position, B.AuftragsNr, B.TeileNr, B.Benennung,
       L.Benennung2, B.Menge, B.Mengeneinheit, B.LieferantenNr, B.EKA,
       B.EKANr, B.LieferterminGew
FROM   (Bedarf AS B
        INNER JOIN BedarfKeinEKA AS
        ON B.ID = K.IndexBedarf)
       LEFT JOIN Lieferer AS L
       ON B.TeileNr = L.Teilenummer
WHERE  K.BedarfParken=True;

MfG
Stefan
KlausMz
Moderator Access


Verfasst am:
13. Nov 2008, 20:59
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,
ich glaube nicht, dass die Abfrage aktualisierbar ist. Bei INNER JOIN und LEFT JOIN kann ich mir das nicht vorstellen.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Tazz85
Gast


Verfasst am:
13. Nov 2008, 21:47
Rufname:

AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,

hättest du denn einen Vorschlag wie man das ganze so anpassen könnte das es wieder Funktioniert? Grundfrage ist ja immernoch was beim Komprimieren Falsch gelaufen ist das der Fehler auftaucht.

MfG
Stefan
KlausMz
Moderator Access


Verfasst am:
14. Nov 2008, 00:12
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Fehler 3027 nach Komprimieren - AW: Fehler 3027 nach Komprimieren

Nach oben
       Version: Office 2003

Hallo,
da hab ich nicht wirklich einen Vorschlag. Ist das wirklich schon mal gelaufen?
Zitat:
Ich musste heut auf Arbeit eine Datenbank komprimieren.
Warum musstest Du komprimieren, Routine?
Arbeiten auch andere an der DB, also im Entwurfsmodus?

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
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: Fehler 3761 1 Manni 108 1419 20. März 2008, 17:35
Master_Chief Fehler 3761
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler in Update: Fehler beim Kompilieren -> Methode n. g 1 Mindjogger 589 14. März 2008, 17:51
Mindjogger Fehler in Update: Fehler beim Kompilieren -> Methode n. g
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage Fehler Schlüsselverletzung 0 BreakerXX 717 25. Feb 2008, 15:31
BreakerXX Aktualisierungsabfrage Fehler Schlüsselverletzung
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler abfangen, wenn Datenbank nicht da 5 bentakle 1106 08. Feb 2008, 12:50
Da Oansa Fehler abfangen, wenn Datenbank nicht da
Keine neuen Beiträge Access Tabellen & Abfragen: mehrere Kriterien abfragen - Fehler wenn kein Wert vorgegebe 5 tommy22 812 07. Nov 2007, 23:50
JörgG mehrere Kriterien abfragen - Fehler wenn kein Wert vorgegebe
Keine neuen Beiträge Access Tabellen & Abfragen: DB-Frage liefert Fehler: Falsche Anzahl an Argumenten 3 susi_777 1812 01. Nov 2007, 00:20
Nouba DB-Frage liefert Fehler: Falsche Anzahl an Argumenten
Keine neuen Beiträge Access Tabellen & Abfragen: Access - Fehler bei Unterformular und SQL LEFT JOIN 1 kontextfrei 1526 01. Okt 2007, 18:03
kontextfrei Access - Fehler bei Unterformular und SQL LEFT JOIN
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler bei Division durch Null durch eine Null ersetzen 6 jsp 6257 25. Sep 2007, 15:50
jsp Fehler bei Division durch Null durch eine Null ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler Inklusionsverknüpfung 14 Joerg112 3885 02. Sep 2007, 08:37
Joerg112 Fehler Inklusionsverknüpfung
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenerstellungsabfrage Fehler! 5 ..::MaTzE::.. 598 19. Jun 2007, 15:07
Nouba Tabellenerstellungsabfrage Fehler!
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler bei Geburtstagsabfrage wenn kein Geburtsdatum erfasst 2 adamth 1014 11. Jun 2007, 22:18
adamth Fehler bei Geburtstagsabfrage wenn kein Geburtsdatum erfasst
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler in Löschabfrage!! 4 BorisDieKlinge 1623 12. Apr 2006, 13:17
BorisDieKlinge Fehler in Löschabfrage!!
 

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