اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

الكود

الجنس

01-001

ذكر

01-002

ذكر

02-001

أنثى

02-002

أنثى

02-003

أنثى

 

Aziz.rar

  • Like 1
رابط هذا التعليق
شارك

23 دقائق مضت, عبدالعزيز محمد said:

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

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

الكود

الجنس

01-001

ذكر

01-002

ذكر

02-001

أنثى

02-002

أنثى

02-003

أنثى

 

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

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

image.png.87ab9b0ad94c48e5aeb5f41e88269522.png

  • Like 1
رابط هذا التعليق
شارك

16 دقائق مضت, ابو تراب said:

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

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

رابط هذا التعليق
شارك

2 دقائق مضت, فايز.. said:

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

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

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

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

 

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

 

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

Aziz.rar

تم تعديل بواسطه عبدالعزيز محمد
رابط هذا التعليق
شارك

منذ ساعه, Barna said:

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

 

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

Aziz.rar

رابط هذا التعليق
شارك

30 دقائق مضت, عبدالعزيز محمد 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 تنزيلات

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

Aziz11.rar

رابط هذا التعليق
شارك

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

في ٢٢‏/٥‏/٢٠٢٠ at 07:05, عبدالعزيز محمد said:

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

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

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

 

Auto serial with creteria.accdb

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information