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

Shamil,

See if the code in this MSKB article works:

http://support.microsoft.com/default.aspx?scid=kb;en-us;210405


  I can't find the old EE thread on this.


Jim Dettman
President,
Online Computer Services of WNY, Inc.
(315) 699-3443
jimdettman at earthlink.net

-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]On Behalf Of Shamil
Salakhetdinov
Sent: Friday, February 07, 2003 9:15 AM
To: AccessD
Subject: [AccessD] Acc97: Creating GUID Autonumber using VBA code...


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

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com