[AccessD] Acc97: Creating GUID Autonumber using VBA code...

Shamil Salakhetdinov shamil at smsconsulting.spb.ru
Fri Feb 7 08:17:00 CST 2003


Hi All,

Is the subj described somewhere? Should I RTFM with more attention and
accuracy?
The following code doesn't produce desired result:

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

    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs("tblTest")
    Set fld = tdf.CreateField("fldTest", dbGUID, 16)
    fld.Properties("DefaultValue") = "GenGUID()"
    tdf.Fields.Append fld

dbAutoIncrField value for Attributes property can't be used at all producing
error 3001 - Invalid argument
Any solutions?

TIA,
Shamil

--
e-mail: shamil at smsconsulting.spb.ru
Web: http://www.smsconsulting.spb.ru/shamil_s




More information about the AccessD mailing list