title image


Smiley so:


for each fld in rst.fields

if fld.Name "" then

dieseFelder = dieseFelder + ", " & fld.Name

End If

Next



alleFelder = Mid(dieseFelder, 3)







alleFelder ist dann meine Variable:







strsql = "INSERT INTO meineTabelle (" & alleFelder & ") SELECT " & alleFelder & " FROM meineTabelle2"



currentdb.execute strsql





(ich hab jetzt alle dims und onerrorgotos usw. weggelassen, weil Übersicht und vom Bildschirm abgetippelt ...)



Die Absatzmarke befindet sich genau da, wo debug.print ans Ende des Direktfensters stößt ...



maike




ich hab immer access 2000 und windows xp.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: