title image


Smiley Re: Poste doch mal exakt deinen Code....
hallo reinhard,

der code lautet



Private Sub TestAbfrage()

Dim db As DAO.Database, s As String

Set db = CurrentDb

s = "INSERT INTO [20 PPR-ÜST Daten] (KST, ÜST-SumDiff)" _

& " SELECT KST, ÜST-SumDiff" _

& " FROM [Überstunden Vorjahresvergleich] IN 'C:\LKT100\Überstunden.mdb'"

db.Execute s, dbFailOnError

MsgBox "Es wurden " & db.RecordsAffected & " Datensätze angefügt."

db.Close

Set db = Nothing

End Sub



danke dir sehr, gruß susanne



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: