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

رقم تلقائي بتنسيق خاص

بدأه libyan_ame في 1 فبراير 2012 · 7 رد · 937 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

التحية للجميع

هل يمكن عمل ترقيم تلقائي بنمط خاص كـ:

SOC/01/2012

SOC/02/2012

......

......

وهكذا؟

لكم كل الشكر

من طلب العلا

سهر الليالي

#2

تفضل اخي الكريم

الملف بناء على طلبك ترقيم تلقائي خاص

post-15367-030217400 1328127690_thumb.gi

post-15367-081631000 1328127707_thumb.gi

za-AutoNumberSP.rar

بالتوفيق

المرفقات
TR1.gifTR2.gif
#3
zahrah كتب:

تفضل اخي الكريم

الملف بناء على طلبك ترقيم تلقائي خاص

post-15367-030217400 1328127690_thumb.gi

post-15367-081631000 1328127707_thumb.gi

za-AutoNumberSP.rar

بالتوفيق

شكرا لك اختي الفاضلة

وبارك الله فيك

هل تفضلتي وشرحت لي كيف تم هذا الإجراء؟

مع كل الود

تحياتي

تم تعديل هذه المشاركة بواسطة libyan_ame في 2 فبراير 2012 في 08:48

من طلب العلا

سهر الليالي

#4

اخي الفاضل

يوجد في الجدول حقل بإسم ID ونوعه ( نص ) لأنك تريد الترقيم مختلط حروف وارقام ولهذا جعلناه نوع الحقل نصي

سنجد في النموذج في حدث قبل الإدراج التالية التالية المسئوله عن الترقيم لهذا الحقل

Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = "SOC" & "/" & Format(DCount("[ID]", "Table") + 1, "00") & "/" & Year(Date)
End Sub

بالتوفيق

#5
zahrah كتب:

اخي الفاضل

يوجد في الجدول حقل بإسم ID ونوعه ( نص ) لأنك تريد الترقيم مختلط حروف وارقام ولهذا جعلناه نوع الحقل نصي

سنجد في النموذج في حدث قبل الإدراج التالية التالية المسئوله عن الترقيم لهذا الحقل

Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = "SOC" & "/" & Format(DCount("[ID]", "Table") + 1, "00") & "/" & Year(Date)
End Sub

بالتوفيق

بارك الله فيك وأحسن إليك

تحياتي

من طلب العلا

سهر الليالي

#6
zahrah كتب:

اخي الفاضل

يوجد في الجدول حقل بإسم ID ونوعه ( نص ) لأنك تريد الترقيم مختلط حروف وارقام ولهذا جعلناه نوع الحقل نصي

سنجد في النموذج في حدث قبل الإدراج التالية التالية المسئوله عن الترقيم لهذا الحقل

Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = "SOC" & "/" & Format(DCount("[ID]", "Table") + 1, "00") & "/" & Year(Date)
End Sub

بالتوفيق

الأخت الفاضلة زهرة

لدى نص وأريد أن أقتطع منه حروفا من أوله

مثال:

الكلمة هى : "المستضعفين"

أريد عمل دالة تقوم بحذف "ال" من الكلمة

النتيجة المتوقعة : "مستضعفين"

بارك الله فيكم وشكرا مقدما

جنابو

#7
Ganabo61 كتب:

الأخت الفاضلة زهرة

لدى نص وأريد أن أقتطع منه حروفا من أوله

مثال:

الكلمة هى : "المستضعفين"

أريد عمل دالة تقوم بحذف "ال" من الكلمة

النتيجة المتوقعة : "مستضعفين"

بارك الله فيكم وشكرا مقدما

جنابو

اخي الفاضل

راجع المشاركة الخاصة بك ( فقد تم وضع الحل )

/index.php?showtopic=258380

بالتوفيق

1
#8

شكرااا

الاخت الفاضلة زهرة

اريد التعديل على نفس المثال ليكون الترقيم يظهر فى مربع النص عند فتح النموذج

ويتم الترقيم من خلال زر امر

تم تعديل هذه المشاركة بواسطة sayedaaa في 11 مارس 2012 في 15:17

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