Zitat:

Aber wie mache ich das, wenn ich über eine entsprechende SQL Abfrage ein Recorset erzeuge, wird diese im Normalfall in einer Tabelle ausgegeben. Und dann könnte man z.B. über die For Next Schleife jeden dieser Datensätze durchlaufen und diesen mit der Updateanweisung aktualisieren. Wäre dies auch nur mit der SQL Abfrage möglich ohne den Umweg über ein Grid? Mit dem Recorcount müsste das doch gehen, jeden der durch die SQL Abfrage eingeschlossenen Datensätze zu aktualisieren?! Oder?

While Not RS.EOF
 
    Artikelpreis = CDbl(RS.Fields("VkPreis"))
    ' Jetzt deine Berechnung oder z.B. unterscheiden
    ' nach Warengruppe usw. usw. je nachdem
    ' was sich ändern soll
 
    RS.Fields("VkPreis") = Artikelpreis 'der geänderte
    RS.Update
 
    RS.MoveNext
Wend

Zitat:

Sag mal, noch was anderes. Gibt es zufällig eine Möglichkeit auch über zwei verschiedene Datenbanken - die DBs stammen aus zwei verschiedenen Programmen, beides Access - ohne die entsprechenden Tabellen in seine eigene DB zu importieren, diese in einer SQL Abfrage zuvereinen? Also nach dem Motto DB1.Connect - mit einer Art Join - DB2.Connect und dann die SQL Abfrage über diese beiden Datenbanken auszuführen?!

SQL2 = "Select deineFelder from entsprechender Tabelle Where deine Bedingung" & _
  "aus DB1"
 
' Dann gibt es zwei Möglichkeiten
 
If RS2.EOF Then
    ' Artikel gibt es in DB2 nicht
    RS2.AddNew
    ' Dann die Daten aus RS1 von erster DB
    ' rein schreiben, bei Bedarf wieder mit
    ' Berechnungen vorher
    RS2.Update
Else
    ' Artikel gibt es schon
    ' Jetzt kannst du einzelne Felder auslesen
    ' vergleichen oder was auch immer
 
    RS2.Update    
End If