I'm creating a table with adox, and having several columns set to boolean.
I do this in the creation-phase before I Append the column.
col.Type = adBoolean

However. If I open the table, the boolean-columns does not show as a check-box as I want them to... :(
They simply just show as a text-field as if it was any other type of field.

How do I change the view to checkbox rather than textfield???

Thanks
Thomas

Hi Thomas,

I have a hunch that this might be one of those obscure cases illustrating the point that DAO and Jet were made for each other, ADO/ADOX and Jet weren't. You can add the checkbox to your Boolean field display in DAO using the CreateProperty method of the Field object. The ADO Field object doesn't support a CreateProperty method. In DAO, iterate through your TableDef's Fields collection adding the CheckBox display control like this:

For Each fld In tdf.Fields
       If fld.Type = dbBoolean Then
           Set prp = fld.CreateProperty("DisplayControl", dbLong, 106)
           fld.Properties.Append prp
       End If
Next fld

HTH,

Bob

Bob Bedell

thanks for the POST, I was looking for this as well.

however, dbLong is wrong type for this to work.

here full code that is working:

Dim dbs As DAO.Database
  Dim tdf As DAO.TableDef
  Dim fld As DAO.Field
  Dim prp As DAO.Property

  Dim sDbPath$
  Dim sDbPassword$
  Dim sTableName$

  sDbPath$ = "c:\vAdoDb.mdb" 'this is coming from my complete OCX Library for Access 2000
  sDbPassword$ = ""
  sTableName$ = "tbl_Test"


  Set dbs = OpenDatabase(sDbPath$, False, False, "MS Access;PWD=" & sDbPassword$ & ";")
    Set tdf = dbs.TableDefs(sTableName$)
    For Each fld In tdf.Fields
      If fld.Type = dbBoolean Then
        Set prp = fld.CreateProperty("DisplayControl", dbInteger, 106)
        fld.Properties.Append prp

        Set prp = fld.CreateProperty("Format", dbText, "Yes/No")
        fld.Properties.Append prp
' more property you can mess with
' Set prp3 = fld.CreateProperty("ColumnWidth", dbInteger, -1)
' Set prp4 = fld.CreateProperty("ColumnOrder", dbInteger, 0)
' Set prp5 = fld.CreateProperty("ColumnHidden", dbBoolean, False)
      End If
    Next fld
  dbs.Close

  Set dbs = Nothing
  Set tdf = Nothing
  Set fld = Nothing
  Set prp = Nothing

Thanks to the post above and a bit of tinkering, I managed to get checkboxes into my ADO created Access database. However, I did have to alter things slightly to get it to work in Visual Basic 2005. This code runs after I've pulled in the data into the created Access MDB using ADO and then closed the connection.

I also added another 'For Each' statement to loop through each table in the database after going through each table's specific set of fields.

Here's the code:

        Dim dbs As dao.Database
        Dim tdf As dao.TableDef
        Dim fld As dao.Field
        Dim prp As dao.Property
        Dim dbe As New dao.DBEngine


        Dim sDbPath$
        Dim sDbPassword$

        sDbPath$ = "C:\YourDatabase.mdb" 'this is coming from my complete OCX Library for Access 2000
        sDbPassword$ = ""

        dbs = dbe.OpenDatabase(sDbPath$, False, False, "MS Access;PWD=" & sDbPassword$ & ";")
        For Each tdf In dbs.TableDefs
            For Each fld In tdf.Fields
                If fld.Type = dao.DataTypeEnum.dbBoolean Then
                    prp = fld.CreateProperty("DisplayControl", dao.DataTypeEnum.dbInteger, 106)
                    fld.Properties.Append(prp)

                    prp = fld.CreateProperty("Format", dao.DataTypeEnum.dbText, "Yes/No")
                    fld.Properties.Append(prp)
                    ' more property you can mess with
                    ' Set prp3 = fld.CreateProperty("ColumnWidth", dbInteger, -1)
                    ' Set prp4 = fld.CreateProperty("ColumnOrder", dbInteger, 0)
                    ' Set prp5 = fld.CreateProperty("ColumnHidden", dbBoolean, False)
                End If
            Next fld
        Next tdf
        dbs.Close()

        dbs = Nothing
        tdf = Nothing
        fld = Nothing
        prp = Nothing