ترقيم بشرط الجنس

**عبدالعزيز محمد** · مايو 21, 2020

السلام عليكم : في الفورم الموجود بالمرفق أريد ترقيم تلقائي – للموظف- بشرط يكون الترقيم حسب الجنس فيكون ترقيم الذكور يبدأ: 001-01 وترقيم الاناث يبدأ كالتالي:001-02 ويكون الترقيم عند الخروج من الحقل الجنس ويستمر الترقيم

ملاحظة: يوجد بالمرفق جدول TabUnitsTeachers فيه شكل الترقيم حيث يكون الترقيم كالتالي:

الكود	الجنس
01-001	ذكر
01-002	ذكر
02-001	أنثى
02-002	أنثى
02-003	أنثى

Aziz.rarFetching info...

**عفرنس** · مايو 21, 2020

في 21‏/5‏/2020 at 21:09, عبدالعزيز محمد said:

السلام عليكم : في الفورم الموجود بالمرفق أريد ترقيم تلقائي – للموظف- بشرط يكون الترقيم حسب الجنس فيكون ترقيم الذكور يبدأ: 001-01 وترقيم الاناث يبدأ كالتالي:001-02 ويكون الترقيم عند الخروج من الحقل الجنس ويستمر الترقيم

ملاحظة: يوجد بالمرفق جدول TabUnitsTeachers فيه شكل الترقيم حيث يكون الترقيم كالتالي:

الكود

الجنس

01-001

ذكر

01-002

ذكر

02-001

أنثى

02-002

أنثى

02-003

أنثى

Aziz.rar 95.38 kB · 0 تنزيلات

Expand

أخي الفاضل . هل ريد الربط في هذا النموذج ؟؟

**عبدالعزيز محمد** · مايو 21, 2020

نعم يكون ما طلبته في هذا النمودج

**ابو تراب** · مايو 21, 2020

هلا اخي

هذه محاولة

Aziz.accdbFetching info...

**عفرنس** · مايو 21, 2020

في 21‏/5‏/2020 at 22:22, ابو تراب said:

هلا اخي

هذه محاولة

Aziz.accdb 1.78 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 تنزيلات

Expand

@ابو تراب يا زين محاولاتك ..

ياليت تقول لنا أين حصل التغيير .. لي ساعة أبحث وأعدل وأبدل ولا وصلت لنتيجة ..

**عبدالعزيز محمد** · مايو 21, 2020

يجب ان يكون الترقيم مسلسل يمعنى كلما ثم اضافة موظف يزداد الترفيم رقم حسب الجنس

**ابو تراب** · مايو 21, 2020

في 21‏/5‏/2020 at 22:40, فايز.. said:

@ابو تراب يا زين محاولاتك ..

ياليت تقول لنا أين حصل التغيير .. لي ساعة أبحث وأعدل وأبدل ولا وصلت لنتيجة ..

Expand

حياك الله اخي @فايز..

تغيير في حقل الجنس

Private Sub GENRE_AfterUpdate()

If Not IsNull(Me.GENRE) Then

    Dim lastID As Integer
    Dim lastCode As String
    
    
    
    lastID = Nz(DMax("Units_AutoID", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "'"), 0)
    lastCode = Nz(DLookup("CODE", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "' AND Units_AutoID=" & lastID), vbNullString)
    
    If lastCode = vbNullString Then
        lastCode = Switch(Me.GENRE.Value = "ÐßÑ", "01-000", Me.GENRE.Value = "ÃäËì", "02-000")
    End If
    
        Me.ID_TEACHER.Value = Left(lastCode, 3) & Format(Val(Right(lastCode, 3)) + 1, "000")
Else
    Me.ID_TEACHER.Value = vbNullString
End If

End Sub

وتغيير بعد الحفط

Private Sub Form_AfterUpdate()
    If Not IsNull(Me.GENRE) And Not IsNull(Me.ID_TEACHER) Then
        DoCmd.RunSQL "INSERT INTO TabUnitsTeachers (UNITS, Code) VALUES ('" & Me.GENRE.Value & "','" & Me.ID_TEACHER.Value & "')"
    End If
End Sub

**أبوبسمله** · مايو 22, 2020

في 21‏/5‏/2020 at 22:22, ابو تراب said:

هلا اخي

هذه محاولة

Aziz.accdb 1.78 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 7 تنزيلات

Expand

جزاك الله خيرا اخى @ابو تراب

**عبدالعزيز محمد** · مايو 22, 2020

اخواني الكود يعمل ولكنه في كل اضافة موظف تظهر رسالة تنبيه وقد وجدت كود يقوم بنفس العمل وهو مكتوب في سطر واحد فقط

في المرفق تمودج به حقل الصف فعند تحديثه يعمل الكود ولكني لم استطع الاستفادة منه في تمودج FormTeachers في سؤالي السابق فنأمل تحويله وتعديله ليغمل في نمودجFormTeachers بدلا من الكود السابق الطويل

الكود المطلوب تعديله الموجود في الفورم :FormSudents الموجود بالمرفق الجديد

SUDENT_ID = (DLookup("code", "Tabunits", "units = '" & CLASSE & "'") * 1000) + Right(Nz(DMax("sudent_id", "TabSudents", "classe = '" & CLASSE & "'"), 0) + 1, 3)

وجزاكم الله خيرا

وكل عام وانتم بخير

Aziz.rarFetching info...

تم تعديل مايو 22, 2020 بواسطه عبدالعزيز محمد

**عبدالعزيز محمد** · مايو 22, 2020

عيدكم مبارك

وعساكم من عواده

مازلت انتظر

**Barna** · مايو 22, 2020

في 22‏/5‏/2020 at 10:21, عبدالعزيز محمد said:

عيدكم مبارك

وعساكم من عواده

مازلت انتظر

Expand

مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل

Aziz (2).rarFetching info...

**عفرنس** · مايو 22, 2020

في 22‏/5‏/2020 at 15:54, Barna said:

مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل

Aziz (2).rar 98.85 kB · 4 تنزيلات

Expand

تسلم يداك .. ما شاء الله تبارك الله .. الجميل في الموضوع : تفريغ الخانات بعد إضافة البيانات . وهذا ما لم يكن موجود قبل لمساتك الحلوة ..

**أبوبسمله** · مايو 22, 2020

جزاك الله خيرا اخوانى واساتذتى محمد @Barna و @ابو تراب 💐

تقبل الله منكم صالح الاعمال

**الحلبي** · مايو 23, 2020

ياريت احد الاخوان يضع لنا مرفق الاستاذ / @Barna بدون ضغط يعنى ملف اكسس عادى

اكون شاكرا

**عبدالعزيز محمد** · مايو 23, 2020

تفضل الملف بدون ضغط يا أخ حلبي

Aziz.accdbFetching info...

**عفرنس** · مايو 23, 2020

في 23‏/5‏/2020 at 09:38, عبدالعزيز محمد said:

تفضل الملف بدون ضغط يا أخ حلبي

Aziz.accdb 928 kB · 0 تنزيلات

Expand

إذا الإجابة كما تريد .. لا تنس الضغط على أفضل إجابة

**الحلبي** · مايو 23, 2020

جزاك الله خيرا استاذ/ @عبد العزيز محمد

**عبدالعزيز محمد** · مايو 23, 2020

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

وكل عام وانتم بخير

بعد التجربة يعكل الكود

وقمت باضافة صتف جديد في الجدول TabUnitsTeachers لم يتغرف عليه الكود فحبذا لو يتم تعديل الكود ليعمل عند اضافة اكثر من صنفين كما في المرفق

في مرفق سابق في هذه المشاركة كود بسطر واحد فقط وبه عدة اصناف والكود كالتالي

SUDENT_ID = (DLookup("code", "Tabunits", "units = '" & CLASSE & "'") * 1000) + Right(Nz(DMax("sudent_id", "TabSudents", "classe = '" & CLASSE & "'"), 0) + 1, 3

Aziz.rarFetching info...

**عفرنس** · مايو 23, 2020

في 23‏/5‏/2020 at 16:53, عبدالعزيز محمد said:

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

وكل عام وانتم بخير

بعد التجربة يعكل الكود

وقمت باضافة صتف جديد في الجدول TabUnitsTeachers لم يتغرف عليه الكود فحبذا لو يتم تعديل الكود ليعمل عند اضافة اكثر من صنفين كما في المرفق

في مرفق سابق في هذه المشاركة كود بسطر واحد فقط وبه عدة اصناف والكود كالتالي

SUDENT_ID = (DLookup("code", "Tabunits", "units = '" & CLASSE & "'") * 1000) + Right(Nz(DMax("sudent_id", "TabSudents", "classe = '" & CLASSE & "'"), 0) + 1, 3

Aziz.rar 120.87 kB · 0 تنزيلات

Expand

من الأفضل أن ترفق ملفك بعد إضافة الصنف الجديد في جدول abUnitsTeachers ومن ثم يتم التعديل في الكود المراد

**عبدالعزيز محمد** · مايو 23, 2020

السلام عليكم

تمت اضافة 4 اصناف للتجربة ويمكن اضافة اكثر من 4 اصناف

Aziz.rarFetching info...

**عبدالعزيز محمد** · مايو 23, 2020

طالسلام عليكم وكل عام وانتم بخير

ياريت لو يتم تضويع الكود التالي:

SUDENT_ID = (DLookup("code", "Tabunits", "units = '" & CLASSE & "'") * 1000) + Right(Nz(DMax("sudent_id", "TabSudents", "classe = '" & CLASSE & "'"), 0) + 1, 3

الموجود بالمرفق

وجعله في النموذج FormTeachers الموجود في مشاركتي لأسباب التالية: فهو خفيف وقصير ويسع كل ما يتم اضافته لجدول الاصناف

حبذا لو يتم تعديله

Aziz11.rarFetching info...

**husamwahab** · مايو 24, 2020

كل عام وانتم بخير

تفضل اخي العزيز ارجو ان يكون طلبك

Root100.rarFetching info...

تم تعديل مايو 24, 2020 بواسطه husamwahab

**Gamal.Saad** · مايو 24, 2020

برغم أن جميع الحلول السابقة ممتازة ومناسبة لكن أحببت المشاركة في اختصار الكود :

في 22‏/5‏/2020 at 05:05, عبدالعزيز محمد said:

وقد وجدت كود يقوم بنفس العمل وهو مكتوب في سطر واحد فقط
SUDENT_ID = (DLookup("code", "Tabunits", "units = '" & CLASSE & "'") * 1000) + Right(Nz(DMax("sudent_id", "TabSudents", "classe = '" & CLASSE & "'"), 0) + 1, 3)

Expand

أوك . ما رأيك بهذا السطر :

Me.ID = GENRE & Format(Right(Nz(DMax("id", "TabTeachers", " Left([id],1) = " & GENRE & ""), 0) + 1, 3), "000")

Auto serial with creteria.accdbFetching info...

تسجيل الدخول

ترقيم بشرط الجنس

الردود الموصى بها

عبدالعزيز محمد

عفرنس

عبدالعزيز محمد

ابو تراب

عفرنس

عبدالعزيز محمد

ابو تراب

أبوبسمله

عبدالعزيز محمد

عبدالعزيز محمد

Barna

عفرنس

أبوبسمله

الحلبي

عبدالعزيز محمد

عفرنس

الحلبي

عبدالعزيز محمد

عفرنس

عبدالعزيز محمد

عبدالعزيز محمد

husamwahab

Gamal.Saad

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information