title image


Smiley Fülle die Tabellen hintereinander...
...und zwar vor dem rs.movenext









Private Sub TB_Click()

Dim I As Long, rs As DAO.Recordset, RSN As DAO.Recordset, RSA As DAO.Recordset

  Set rs = CurrentDb.OpenRecordset("qryBon", dbOpenDynaset)

  Set RSN = CurrentDb.OpenRecordset("tblJournal", dbOpenDynaset)

  Set RSA = CurrentDb.OpenRecordset("tblJournalArchiv", dbOpenDynaset)

  Do While Not rs.EOF

    'Journal füllen

    RSN.AddNew

    RSN!ID = Me.ID

    RSN!Datum = Now

    RSN!ArtikelNr = rs!ArtikelNr

    RSN!Bezeichnung = rs!Bez

    RSN!Preis = rs!Betrag

    RSN.Update

    'JournalArchiv füllen

    RSA.AddNew

    RSA!ID = Me.ID

    RSA!Datum = Now

    RSA!ArtikelNr = rs!ArtikelNr

    RSA!Bezeichnung = rs!Bez

    RSA!Preis = rs!Betrag

    RSA.Update

    rs.MoveNext

  Loop

  Me!Betrag.Requery

  Me!Kasse.Requery

  rs.Close

  RSA.Close

  RSN.Close

  BonLoeschen_Click

  Me!Gegeben = Null

  Me!ufrmJournal.Requery

End Sub







Code eingefügt mit Syntaxhighlighter 4.0







Du mußt halt deine Anpassungen noch vornehmen, grundsätzlich klappt es so ohne Probleme.

Ich würde aber eher hingehen und die erste Tabelle füllen und anschließend ein db.execute "INSERT INTO usw... WHERE ID = ' & Me.ID

oder so ähnlich. Mußt du halt ein bisschen basteln.



Gruß aus Wuppertal

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: