ایجاد فیلد AutoNumber

[M.T.P]

با سلام
دوستان من کد ایجاد Table رو دارم


Create Table Users

کد ساخت فیلد از نوع AutoNumber کدومه؟
Integer که مینوسیم فیلد رو از نوع Number میسازه.

[amirzazadeh]

با سلام
دوستان من کد ایجاد Table رو دارم


Create Table Users

کد ساخت فیلد از نوع AutoNumber کدومه؟
Integer که مینوسیم فیلد رو از نوع Number میسازه.
بايد از عبارت AUTOINCREMENT به جاي integer استفاده كنيد.
.................................
موفق باشيد

[Hossis]

با سلام
من فیلدی از نوع بولین با اسفتاده از همین کوئری ساختم ولی فرمت اون رو نمی دونم چجوری باید مشخص کنم(برای تعیین نوع ،‌می نویسم "yesno" اما این که به صورت True/False باشه یا On/Of یا بدون فرمت، نمی‌دونم باید چی نوشت؟؟

[RESMAILY]

به نام خدا
با سلام. بايد از ثابت زير استفاده شود.
vbBoolean

[Hossis]

به نام خدا
با سلام. بايد از ثابت زير استفاده شود.
vbBoolean
کاش صورت کاملش رو می نوشتید
من امتحان کردم درست نبود

[amirzazadeh]

با سلام
من فیلدی از نوع بولین با اسفتاده از همین کوئری ساختم ولی فرمت اون رو نمی دونم چجوری باید مشخص کنم(برای تعیین نوع ،‌می نویسم "yesno" اما این که به صورت True/False باشه یا On/Of یا بدون فرمت، نمی‌دونم باید چی نوشت؟؟

سلام
اين كد رو روي يك باتون امتحان كنيد:

Private Sub cmdTable_Click()
DoCmd.RunSQL "CREATE TABLE Contractors(" & _
"FullName TEXT, " & _
"AvailableOnWeekend BIT, " & _
"OwnsACar LOGICAL, " & _
"CanShareOwnCar YESNO);"
End Sub

[RESMAILY]

به نام خدا
با سلام و تشكر از اميرزازاده. كد زير را هم امتحان كنيد.
Public Sub SETTBL(Optional strTable As String)
If strTable = "" Then strTable = "Temp"
Set dbs = CurrentDb
Set tbl = dbs.CreateTableDef(strTable)
Set fld1 = tbl.CreateField("ID", dbInteger)
tbl.Fields.Append fld1
Set fld2 = tbl.CreateField("sDate", dbText, 10)
tbl.Fields.Append fld2
Set fld3 = tbl.CreateField("Radif", dbLong)
fld3.Attributes = dbAutoIncrField
tbl.Fields.Append fld3
Set fld4 = tbl.CreateField("Code", dbBoolean)
tbl.Fields.Append fld4
Set idx = tbl.CreateIndex("RadifX")
idx.Primary = True
tbl.Indexes.Append idx
Set fldX = idx.CreateField("Radif")
idx.Fields.Append fldX
dbs.TableDefs.Append tbl
Set tbl = Nothing
Set dbs = Nothing
End Sub