title image


Smiley Na, bau dir halt eine entsprechende Schleife...


Dim DB as DAO.Tabledef, fld as DAO.Field

Set DB = Currentdb()

For each tbl in DB.Tabledefs

For each fld in tbl.Fields

If Fld.Type = acMemo or Fld.Type = acText then

DB.Execute "UPDATE [" & Tbl.Name & "] SET [" & Fld.Name & "] = NULL" & _

" WHERE [" & Fld.Name & "] = ''"

End if

Next Fld

Next Tbl







Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: