Ændring af field property

Hejsa

I forbindelse med mit studie har jeg haft brug for at programmere mit fra oprettelse af nogle tabeller i Access.

Dette ser nogenlunde sådan ud (udsnit)

.....
..
Set tblNew = New ADOX.Table
With tblNew
    .Name = "transrec1"
    With .Columns
        .Append "Transmit Application", adVarWChar
        .Append "Receive Application", adVarWChar
.....
..

Det går også RIGTIG godt.

Derefter skal jeg så fylde data i tabellerne, det går sådan set også ok.

Det ser således ud:

Open Source:="SELECT * FROM transrec1", ActiveConnection:=saConn, _
          CursorType:=adOpenKeyset, LockType:=adLockOptimistic
    Dim i As Integer, Defn As Definition
    For i = 1 To saDefs.Count
        .AddNew
        Set Defn = saDefs(i)
        .Fields("Transmit Application").Value = Defn.GetProperty("Transmit Application")
        .Fields("Receive Application").Value = Defn.GetProperty("Receive Application")
        .Update

Mit problem er bare, at jeg skal have den til at acceptere at feltet Transmit Application i tabellen "Transrec1" som er af typen TEXT skal have sat den property som hedder Required = YES.

Pr default når jeg opretter den i VB sættes den til No.

Jeg har fundet objectet i DAO som hedder Required, og at den kan antage værdien (0) True or (-1) False.... eller omvendt.

Kan I give et bud på hvordan jeg får property "Required" sat til YES ved hjælp af VB

Mange hilsner fra

En af de få piger... Cathrine