Office: Komplizierte Anfüge Abfrage

Anne Berg · 11. Oktober 2006

Hallo,

du solltest es unbedingt vermeiden, das "Set DB..." in einer Schleife auszuführen. Das macht man einmal zu Beginn der Prozedur und am Ende sollte ein "Set DB = Nothing" die Objektvariable wieder freigeben.

Um sicherzustellen, dass die Import-Daten in der gewünschten Sortierung eingelesen werden, würde ich das mithilfe einer Abfrage machen, also:
Set rs = CurrentDb.OpenRecordset("Select * From Import Order By ...", dbOpenForwardOnly)

Dann würde ich stets eine Tabelle mit dem Parameter "dbOpenDynaset" öffnen...

Borsti27 · 11. Oktober 2006

Hi,

Dann würde ich stets eine Tabelle mit dem Parameter "dbOpenDynaset" öffnen...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das verstehe ich nicht? Kannst du das genauer erklären? Wenn ich "dbOpenDynaset" z.b. bei dem öffnen von Import nehme fügt er keinen datensatz mehr zusammen.

Auch das einfügen einer Abfrage für die sortierung bringt keine verbesserung.
Hast du vieleicht noch eine idee?

Code:

Private Sub Befehl6_Click()
Dim rs As DAO.Recordset
Dim strSQL As String
Dim count As String
Set DB = CurrentDb

Set rs = DB.OpenRecordset("SELECT Import.Feld8, Import.Feld2, Import.Feld4, Import.Feld6, Import.Feld7, Import.Feld9 FROM Import ORDER BY Import.Feld8, Import.Feld2, Import.Feld4, Import.Feld6", dbOpenForwardOnly)
count = 1

While Not rs.EOF

If count = rs!Feld6 Then

Dim Tabelle As Recordset
Set Tabelle = DB.OpenRecordset(rs!Feld6)

Tabelle.MoveLast

Datum = Format(rs!Feld8, "dd.mm.yyyy")
Zeit = Format(rs!Feld8, "hh:nn:ss")

If "/" & Tabelle!Datum & "/" = "/" & Datum & "/" And "/" & Tabelle!Zeit & "/" = "/" & Zeit & "/" And "/" & Tabelle!RNC & "/" = "/" & rs!Feld2 & "/" And "/" & Tabelle!CellID & "/" = "/" & rs!Feld4 & "/" Then

Tabelle.Edit
Tabelle(rs!Feld7) = rs!Feld9
Tabelle.Update
Else

strSQL = "INSERT INTO " & rs!Feld6
strSQL = strSQL & " (RNC, CellID, Datum, Zeit,[" & rs!Feld7 & "]) "
strSQL = strSQL & "Values (" & rs!Feld2 & ",'" & rs!Feld4 & "',"
strSQL = strSQL & Format(rs!Feld8, "\#yyyy\-mm\-dd\#") & ","
strSQL = strSQL & "#" & Format(rs!Feld8, "hh:nn:ss") & "#," & rs!Feld9 & ")"

DBEngine(0)(0).Execute strSQL, dbFailOnError

End If

'Loop
Tabelle.Close
Set Tabelle = Nothing

Else

strSQL = "INSERT INTO " & rs!Feld6
strSQL = strSQL & " (RNC, CellID, Datum, Zeit,[" & rs!Feld7 & "]) "
strSQL = strSQL & "Values (" & rs!Feld2 & ",'" & rs!Feld4 & "',"
strSQL = strSQL & Format(rs!Feld8, "\#yyyy\-mm\-dd\#") & ","
strSQL = strSQL & "#" & Format(rs!Feld8, "hh:nn:ss") & "#," & rs!Feld9 & ")"

DBEngine(0)(0).Execute strSQL, dbFailOnError

count = rs!Feld6

End If

rs.MoveNext

Wend

rs.Close: Set rs = Nothing
Set DB = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anne Berg · 11. Oktober 2006

Ich meinte das Öffnen von Tabelle:

Set Tabelle = DB.OpenRecordset(rs!Feld6, dbOpendynaset)

Borsti27 · 11. Oktober 2006

Supi, das scheint jetzt zu klappen!?

Kannst du mir das erklären werde aus der access hilfe nicht schlauer!

MFG

Anne Berg · 11. Oktober 2006

nein, da muss ich leider passen...

Borsti27 · 13. Oktober 2006

Danke dann sind meine Fragen in diesem Beitrag alle zu meiner zufriedenheit beantwortet worden.

Besten dank an euch!

Werde noch viele weitere Fragen haben! *tongue.gif*

Office: Komplizierte Anfüge Abfrage

Komplizierte Anfüge Abfrage

Komplizierte Anfüge Abfrage

Komplizierte Anfüge Abfrage

Komplizierte Anfüge Abfrage - Similar Threads - Komplizierte Anfüge Abfrage

Erbitte komplizierte Formel Wenn,dann oder wenn dies, dann

Berechung monatl. Kosten

Hilfe bei Formel-Vereinfachung/-Kürzung

Prüfen und Verketten von Zellen mit Formeln als Inhalt

Komplizierter Blattschutz

Tastenkombination für die Texthervorhebunsfarbe möglich? + 2. komplizierte Frage

Übergang bei einer Draufsicht eines 3D Diagrammes