[access] veld via code aangemaakt niet zichtbaar

[Boss]

Hi,

Om op afstand een database bij een klant te updaten had ik wat code gemaakt om velden toe te voegen aan de database:

code:

Private Sub cmdTabellenAanpassen_Click()
On Error GoTo fout
Dim strDataBestand As String
Dim dbs As Database
Dim fldField As Field
Dim strTemp As String

    strDataBestand = "c:\database.mdb"

    Set dbs = OpenDatabase(strDataBestand)

    ' Veld xxx in tblYyy
    Set fldField = dbs.TableDefs("tblYyy").CreateField
    With fldField
      .Name = "xxx"
      .Type = dbBoolean
    End With
    dbs.TableDefs("tblYyy").Fields.Append fldField

fout:
    If Err.Number = 3191 Then
        ' Veld is al aangemaakt
      Resume Next
    Else
      MsgBox "Tabellen bijwerken mislukt!", vbOKOnly + vbCritical
      Exit Sub
    End If

End Sub

Dit werkt maar half. Het veld is niet zichtbaar in de tabelontwerp-weergave. Ook kan ik het niet kiezen in de lijst met velden als bijv. source van een textbox.
MAAR
Ik kan het veld wel gebruiken. Als ik er een textbox op baseer (dus gewoon naam invoeren, niet uit lijst keizen) kan ik er gewoon waardes invoeren.
Heel vreemd. Opzich maakt het niet uit, maar ik wil nog handmatig een aanpassing doen aan het veld en dat kan alleen als ik hem in de tabelontwerp-weergave kan zien.

Iemand enig idee?

[Phenomenon]

Niet gewoon last van een corrupte database

[Boss]

neuh, hij is net nieuw.
De database is wel de master van een replica-set. Dat kan er toch niets mee te maken hebben?

[Boss]

en ^

(ja sorry, maar het lukt nog steeds niet!)

[Falcon]

Hij is wel leuk .. zit me rot te denken...maar wat dit kan zijn?

geen oplossing tot dus ver

[Splatter]

Ik heb geen idee wat het kan zijn, maar je zou het eens met een SQL query kunnen proberen. Misschien werkt dat wel...

edit: Het aanmaken van een veld met een SQL query bedoel ik dus.

[3volution]

Ik doe zelf altijd een .tabledefs.refresh na een tabledefs.append.

Misschien dat dat beter werkt?