I am building an Access database from scratch using VB code. Can anybody
tell me how to create a field with an Inputmask?
Thanks.

Willy Haesen

Hi Willy,
My first question is "Why?". It's easier to just build plain text fields in
Access interface and apply all text formatting in the lost focus event or
keypress event of your VB textboxes and combos. This controls the
input/result.  feed the result to the plain text field in the Access db.
When you call it up, it has the formatting and your program doesn't have a
lot of useless overhead.
If you don't have Access, you can create a run once program in VB to create
the database and tables and then 'talk' to it from the final program.

Make sense?

hope it helps.
don

Try the function below:

Function AddUpdateMask(strDataBase as String, strTable As String, strField
As String, strMask As String)
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Dim prp As Property

Set db = OpenDatabase(strDataBase)
Set tdf = db.TableDefs(strTable)
Set fld = tdf.Fields(strField)

On Error Resume Next
fld.Properties("InputMask") = strMask
If Err.Number <> 0 Then
    Set prp = fld.CreateProperty("InputMask", dbText, strMask)
    fld.Properties.Append prp
End If
End Function

Junior

Willy HAESEN escreveu na mensagem