title image


Smiley Re: Autowertfeld mit VBA zuruecksetzen
Hallo,

anbei eine Möglichkeit

Function autowert_zurueck()

Dim x As Long



x = Nz(DMax("Autowertspalte", "meineTab"),0) + 1

CurrentDb.Execute "ALTER table [meineTab]" & _

"ALTER column [Autowertspalte] COUNTER(" & x & ",1)"

End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: