الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أجعل الترقيم التلقائي يبدأ من رقم ( 500 )

مغلق
بدأه معاوية في 23 يوليو 2006 · 7 رد · 1,098 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

أريد أن أجعل الترقيم التلقائي يبدأ من رقم ( 500 ) في الجدول وفي النموذج

وضعت في التنسيق ( 50 ) فخرج لي الرقم يبدأ من ( 501 ) لكن المشكلة أنه بعد 99 سجل بدأ يرقم من ( 50101 )

كما حاولت وضع ( &&5 ) وبعد 99 سجل بدأ يرقم من ( 1501)

هناك حل لكنه متعب جداً وهو أن أدخل 500 سجل ثم أحذفها :wacko: لكنه غير مجدي طبعاً .

هل هناك من طريقة عملية ؟؟؟

#2

ارجو ان تستفيد من المرفق

AutoNo.rar

#3

أعتقد أن هذا الكود سيفي بالغرض

CREATE TABLE `Banner` (
  `ID` int(9) NOT NULL auto_increment,
  `image` varchar(200) NOT NULL default '',
  `Url` varchar(200) NOT NULL default '',
  `Activate` varchar(15) NOT NULL default '',
  `Times` int(9) NOT NULL default '0',
  `FORP` char(3) NOT NULL default '',
  `Type` varchar(4) NOT NULL default '',
  PRIMARY KEY  (`ID`)
) TYPE=MyISAM AUTO_INCREMENT=3;

هتا الحل في هذا السطر

اقتباس
TYPE=MyISAM AUTO_INCREMENT=3

CMS Sfhati , Website Generator


نظام إدارة المحتوى صفحتي ... جربه الآن 


 


small-logo.png

#4

شكراً لك أخي ( ابو كورد ) مثال جميل ورائع .

وكذلك شكراً لك أخي ( bastr3 )

ولكن أين أضع هذا الكود لو سمحت ؟

#5

رفع ....

#6

عذراً أخي bastr3 لم أفهم جيداً هل يمكن أن توضح أكثر ، وأين أضع هذا الكود ؟

أرجو أن ترد

#7

السلام عيكم

اخي هذا الكود خاص ب MYSQL

ولا يعمل على access or sqlserver

والله اعلم

على اية حال هذا المثالين يلبي احتياجك باذن الله

هذه الجمله ضعها في استعلام ونفذه سينشئ جدول وبه حقل يبدأ من 500

SQL

create table users (userid   autoincrement  (500,1)  primary key not null ,username text(50))

هذه الداله ارسل لها اسم الجدول واسم الحقل والرقم الذي تريد ان يبدأ به ومقدار الزياده

VBA Code

Sub AutoNumberStartFrom(tblName, fldName, Optional startFrom = 1, Optional Increment = 1)
	Dim oCat As Object
	Set oCat = CreateObject("ADOX.Catalog")
	oCat.ActiveConnection = CurrentProject.Connection
	Set oCol = oCat.Tables(tblName).Columns(fldName)
	oCol.Properties("seed") = startFrom
	oCol.Properties("increment") = startFrom
	Set oCat = Nothing
	Set oCol = Nothing
End Sub

تم تعديل هذه المشاركة بواسطة Mo7eb_Alrasool في 29 يوليو 2006 في 06:57

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#8

السادة الاعضاء

استوقفتي مشاركة قديمة بخصوص الترقيم التلقائي وبداية الترقيم من رقم معين وبعد التجربة اعتقد انها من اسهل الطرق لعملية الترقيم التلقائي ابتداء من رقم معين

مرفق المشاركة برجاء الضغط علي اللينك للمشاهدة

/index.php?showtopic=40718

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…