Sæt tabel-felt standardværdi fra VBA

http://www.eksperten.dk/spm/222770

Jeg vil gerne have det lavet fra det modul som importerer/ændrer tabellen, men lader det sig ikke gøre, er din henvisning et alternativ.

Jeg mener det kan lade sig gøre. Prøv at søge i spørgmålene.

http://www.eksperten.dk/spm/65053

Har jeg gjort, men det er ikke helt nemt at stykke noget kode sammen som klarer mit ønske

Sub standartvaerdi()
  Dim db As dao.Database
  Set db = CurrentDb
 
  Dim tbl As TableDef
  Set tbl = db.TableDefs("tabel1")
 
  tbl.Fields("YesNoField").DefaultValue = True
End Sub

Eksempel vist i DAO.

Når du ændrer tabel strukturer, har du mere styr over hvad du gør vha. DAO eller ADO.

Niels

Bingo.

Tak for det