MS Access 2000 campi DB

[rempox]

Buongiorno c'è qualcuna che mi può aiutare a creare un campo automatico su un DB Access. Non sono pratico di questo prodotto e fatta eccezione dei campi standard

ID = autonumber (univoco)
Nome = Text
Cognome =
Data = date

Vorrei inserire un Campo che automaticamente si componga unendo i 2 campi

Codice= "ID" + "Cognome"


Mi dareste una mano ?

Grazie

[Misterxxx]

Lo devi creare in una maschera o in una tabella?

[rempox]

in una tabella!

Grazie

[Misterxxx]

Libreria DAO 3.6

    Dim rfdbase As Database
    Dim rftabella As TableDef

    Set rfdbase = CurrentDb
    Set rftabella = rfdbase!Tabledefs!nometuatabella

    rftabella.Fields.Append .CreateField("nuovocampo", dbText)

    Dim rstTabella As Recordset
    Set rstTabella = CurrentDb.OpenRecordset("nometuatabella")
    

    Do while not rstTabella.eof
    rtsTabella.movefirst
    rtsTabella!nuovocampo= rtsTabella!ID & rtsTabella!Cognome
    rstTabella.movenext
    loop     

rtsTabella.close
rfdbase.close

Scritto al volo, va verificato.