VBA til formattering af ja/nej felt - ændres til checkbox i tableview

Det var noget af et job.....

Sub changeFldFormat()
    Dim db As DAO.Database
    Dim tdf As TableDef
    Dim fld As Field
    Dim prp As Property
    Set db = CurrentDb
    Set tdf = db.TableDefs(\"tabNavn\")
    Set fld = tdf.Fields(\"fldNavn\")
    \' Hvis egenskaben \'format\' findes i forvejen
    On Error Resume Next
    \' opretter egenskaben format, hvis ikke den er oprettet
    Set prp = fld.CreateProperty(\"format\")
    \' angiv egenskaberne for \'format\'
    Set prp = fld.Properties(\"format\")
      prp.Type = 10
      prp.Value = \"yes/no\"
    \' gem ændringer i feltet
    fld.Properties.Append prp
    fld.Properties.Refresh

End Sub

Jeg er ikke helt klar over hvad du mener med checkboxe, men du kan selv finde værdierne for prp.type og value i vinduet fejlfinding.
Jeg sad og legede med dit problem, og ved at definere et fieldObjekt i kode der henviste til et ja/nej felt, kunne jeg se indstillingerne i vinduet fejlfinding....(+ en masse andre indstillinger)

Niels

Her er dine checkboxe !!!!

udskift et par linjer i ovnestående.

    Set prp = fld.CreateProperty(\"displaycontrol\")
    Set prp = fld.Properties(\"displaycontrol\")
      prp.Type = 3
      prp.Value = 106

det skulle giv dig checboxe.

Niels

Det lyder helt kanon, Nielse...
Ikke bare lyder det godt - det virker også! - og så fik jeg endda et godt råd til at tjekke VBA\'en bag ved de ting man ikke kan se, umiddelbart - stort!

Det er første gang jeg har en opgave, hvor jeg skal opbygge en database dynamisk, som samtidig skal følge bestemte designs... Det har givet en del hovedbrud.

Tak for hjælpen!

Jeg synes det er kanon at der stadig er nogen der anvender DAO istedet for ADO. Det var også et nyt \'hjørne\' for mig.

Niels