السـلام عليكم ورحمة الله وبركاته
أريد ان اعمل خانه (حقل) في الاكسس بحيث ان تأخذ الاسم الأخير من الطلب وبعدين تعطيه رقم
مثال
الاسم الأول : أحمد
الاسم ألأخير : خالد
الخانة التي اريد اضيفها هي : خ 1
وإذا تكرر سجل يبدأ بحرف الخاء سيأخذ الرقم التالي بحيث يصبح خ 2
شكراً
ارفق مثال للتعديل عليه
هنا المثال المرفق !
اليك اخى ما طلبت
تم التعديل بطريقتين
الاولى بكود فى النموذج فى حدث بعد التحديث للاسم الاخير
و الثانية و هى ما أفضله عن طريق الاستعلام
و تم الاستغناء عن حقل auto بالجدول
شاكراً مقدراً لك أخي الكريم
حاولت ان استخدم الطريقة التي بالنموذج ولكن إذا لم يكن الحرف الاول من العائله مسجل لا يعمل البرمجة و يعطي خطأ
شاكرأ مجدداً
نعم اخى
كلامك صحيح
اليك تعديل الكود
Dim Ln, Lx As String
Ln = Left(Me.Last_Name, 1)
Lx = Val(Right(Nz(DMax("auto", "table2", "auto like '" & Ln & "*'"), "000"), 3))
Me.Auto = Ln & Format(Lx + 1, "000")اشكرك أخي الكريم !
agma.10 كتب:اشكرك أخي الكريم !
لاحظت أنك تكتب الأسماء باللغة الانجليزية ، ماذا لو أن الاسماء باللغة العربية والانجليزية
ماذا ستفعل؟
ولو انها بالعربية وتريد كتابة الترقيم او الكود باللغة الانجليزية
فيجب عليك تحويل الحرف باللغة العربية للمقابل له باللغة الانجليزية ثم اعطاء الرقم
Toty_Retos
(المبرمج الصغير)
مجدداً اشكرك على التوضيح
قاعدة البيانات سوف يتم استخدامها باللغه الانجليزية
مبدع كعادتك أستاذ أبو يوسف.. زادك الله علماً.
لى أستفسار .. ما فائدة Format فى جملة الاستعلام.
تم تعديل هذه المشاركة بواسطة omar19-3 في 16 يوليو 2011 في 06:53
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين
omar19-3 كتب:مبدع كعادتك أستاذ أبو يوسف.. زادك الله علماً.
لى أستفسار .. ما فائدة Format فى جملة الاستعلام.
جزاك الله خيرا أخ عمر
وظيفة format
هى اظهار الارقام بالتنسيق مثل 002 و ليس 2
بارك الله فيك أستاذنا أبويوسف وأجزل لك.
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين