التحية للجميع
هل يمكن عمل ترقيم تلقائي بنمط خاص كـ:
SOC/01/2012
SOC/02/2012
......
......
وهكذا؟
لكم كل الشكر
التحية للجميع
هل يمكن عمل ترقيم تلقائي بنمط خاص كـ:
SOC/01/2012
SOC/02/2012
......
......
وهكذا؟
لكم كل الشكر
من طلب العلا
سهر الليالي
zahrah كتب:
شكرا لك اختي الفاضلة
وبارك الله فيك
هل تفضلتي وشرحت لي كيف تم هذا الإجراء؟
مع كل الود
تحياتي
تم تعديل هذه المشاركة بواسطة libyan_ame في 2 فبراير 2012 في 08:48
من طلب العلا
سهر الليالي
اخي الفاضل
يوجد في الجدول حقل بإسم ID ونوعه ( نص ) لأنك تريد الترقيم مختلط حروف وارقام ولهذا جعلناه نوع الحقل نصي
سنجد في النموذج في حدث قبل الإدراج التالية التالية المسئوله عن الترقيم لهذا الحقل
Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = "SOC" & "/" & Format(DCount("[ID]", "Table") + 1, "00") & "/" & Year(Date)
End Subبالتوفيق
zahrah كتب:اخي الفاضل
يوجد في الجدول حقل بإسم ID ونوعه ( نص ) لأنك تريد الترقيم مختلط حروف وارقام ولهذا جعلناه نوع الحقل نصي
سنجد في النموذج في حدث قبل الإدراج التالية التالية المسئوله عن الترقيم لهذا الحقل
Private Sub Form_BeforeInsert(Cancel As Integer) Me!ID = "SOC" & "/" & Format(DCount("[ID]", "Table") + 1, "00") & "/" & Year(Date) End Subبالتوفيق
بارك الله فيك وأحسن إليك
تحياتي
من طلب العلا
سهر الليالي
zahrah كتب:اخي الفاضل
يوجد في الجدول حقل بإسم ID ونوعه ( نص ) لأنك تريد الترقيم مختلط حروف وارقام ولهذا جعلناه نوع الحقل نصي
سنجد في النموذج في حدث قبل الإدراج التالية التالية المسئوله عن الترقيم لهذا الحقل
Private Sub Form_BeforeInsert(Cancel As Integer) Me!ID = "SOC" & "/" & Format(DCount("[ID]", "Table") + 1, "00") & "/" & Year(Date) End Subبالتوفيق
الأخت الفاضلة زهرة
لدى نص وأريد أن أقتطع منه حروفا من أوله
مثال:
الكلمة هى : "المستضعفين"
أريد عمل دالة تقوم بحذف "ال" من الكلمة
النتيجة المتوقعة : "مستضعفين"
بارك الله فيكم وشكرا مقدما
جنابو
Ganabo61 كتب:الأخت الفاضلة زهرة
لدى نص وأريد أن أقتطع منه حروفا من أوله
مثال:
الكلمة هى : "المستضعفين"
أريد عمل دالة تقوم بحذف "ال" من الكلمة
النتيجة المتوقعة : "مستضعفين"
بارك الله فيكم وشكرا مقدما
جنابو
اخي الفاضل
راجع المشاركة الخاصة بك ( فقد تم وضع الحل )
بالتوفيق
شكرااا
الاخت الفاضلة زهرة
اريد التعديل على نفس المثال ليكون الترقيم يظهر فى مربع النص عند فتح النموذج
ويتم الترقيم من خلال زر امر
تم تعديل هذه المشاركة بواسطة sayedaaa في 11 مارس 2012 في 15:17