قرار دادن یک عدد ثابت در یک فیلد مشخص

[isaac23]

سلام دوستان و اساتید گرامی

سال نو مبارک ان شا الله سال خوبی داشته باشید


من می خواستم یک جدول درست کنم و یک فیلد بنام شماره داشته باشه و زمانی که این فیلد درست میشه یک عدد ثابت داخل ذخیره بشه

مثلا من یک جدول شماره فاکتور دارم زمانی این جدول ساخته میشه عدد 1 داخل فیلد Fo ثبت بشه ...
ممنون از همگی
دستور ساخت جدول من این هستش

Dim dbs09 As Database

Set dbs09 = OpenDatabase(App.Path & "\" & "Anbar.mdb")

dbs09.Execute "CREATE TABLE GKala " & "(Namek Text);"

dbs09.Close

[isaac23]

بانک اطلاعاطش هم اکسس 2003 هستش

[vbnovin]

سلام خاب که چی ... دنبال چی هستی

[ahmad abdoli]

سلام دوستان و اساتید گرامی

سال نو مبارک ان شا الله سال خوبی داشته باشید


من می خواستم یک جدول درست کنم و یک فیلد بنام شماره داشته باشه و زمانی که این فیلد درست میشه یک عدد ثابت داخل ذخیره بشه

مثلا من یک جدول شماره فاکتور دارم زمانی این جدول ساخته میشه عدد 1 داخل فیلد Fo ثبت بشه ...
ممنون از همگی
دستور ساخت جدول من این هستش

Dim dbs09 As Database

Set dbs09 = OpenDatabase(App.Path & "\" & "Anbar.mdb")

dbs09.Execute "CREATE TABLE GKala " & "(Namek Text);"

dbs09.Close

منظورتونو متوجه نمی شم بیشتر توضیح بدبد می خوایید چی کار کنید.

[isaac23]

می خوام زمانی که جدول ساخته میشه داخل یکی از فیلد هاش مقدار ثابتی از قبل تعریف بشه

مثلا یه جدول برام بسازه که از قبل داخل این فیلد FOعدد 1 نوشته شده باشه.. همین دیگه ساده تر از این بلد نیستم توضیح بدم

[isaac23]

دوستان ممنون میشم راهنمایی کنید خیلی لازمش دارم

[isaac23]

دوستان من چیزی مثل این می خوام ولی نمی دونم چرا درست کار نمیکنه مشکلش رو بگید ممنون میشم ضروریه دوستان

Dim tds As Database

Dim td As DAO.TableDef

Set tds = OpenDatabase(App.Path & "\" & "foKala.mdb")

Set td = tds.TableDefs("shf")

td.Fields("Fakno").DefaultValue = ("1")

tds.Close