عبدالعزيز محمد قام بنشر مايو 21, 2020 قام بنشر مايو 21, 2020 السلام عليكم : في الفورم الموجود بالمرفق أريد ترقيم تلقائي – للموظف- بشرط يكون الترقيم حسب الجنس فيكون ترقيم الذكور يبدأ: 001-01 وترقيم الاناث يبدأ كالتالي:001-02 ويكون الترقيم عند الخروج من الحقل الجنس ويستمر الترقيم ملاحظة: يوجد بالمرفق جدول TabUnitsTeachers فيه شكل الترقيم حيث يكون الترقيم كالتالي: الكود الجنس 01-001 ذكر 01-002 ذكر 02-001 أنثى 02-002 أنثى 02-003 أنثى Aziz.rar 1
عفرنس قام بنشر مايو 21, 2020 قام بنشر مايو 21, 2020 23 دقائق مضت, عبدالعزيز محمد said: السلام عليكم : في الفورم الموجود بالمرفق أريد ترقيم تلقائي – للموظف- بشرط يكون الترقيم حسب الجنس فيكون ترقيم الذكور يبدأ: 001-01 وترقيم الاناث يبدأ كالتالي:001-02 ويكون الترقيم عند الخروج من الحقل الجنس ويستمر الترقيم ملاحظة: يوجد بالمرفق جدول TabUnitsTeachers فيه شكل الترقيم حيث يكون الترقيم كالتالي: الكود الجنس 01-001 ذكر 01-002 ذكر 02-001 أنثى 02-002 أنثى 02-003 أنثى Aziz.rar 95.38 kB · 0 تنزيلات أخي الفاضل . هل ريد الربط في هذا النموذج ؟؟ 1
عفرنس قام بنشر مايو 21, 2020 قام بنشر مايو 21, 2020 16 دقائق مضت, ابو تراب said: هلا اخي هذه محاولة Aziz.accdb 1.78 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 تنزيلات @ابو تراب يا زين محاولاتك .. ياليت تقول لنا أين حصل التغيير .. لي ساعة أبحث وأعدل وأبدل ولا وصلت لنتيجة ..
عبدالعزيز محمد قام بنشر مايو 21, 2020 الكاتب قام بنشر مايو 21, 2020 يجب ان يكون الترقيم مسلسل يمعنى كلما ثم اضافة موظف يزداد الترفيم رقم حسب الجنس
ابو تراب قام بنشر مايو 21, 2020 قام بنشر مايو 21, 2020 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 3
أبوبسمله قام بنشر مايو 22, 2020 قام بنشر مايو 22, 2020 2 ساعات مضت, ابو تراب said: هلا اخي هذه محاولة Aziz.accdb 1.78 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 7 تنزيلات جزاك الله خيرا اخى @ابو تراب 2 1
عبدالعزيز محمد قام بنشر مايو 22, 2020 الكاتب قام بنشر مايو 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.rar تم تعديل مايو 22, 2020 بواسطه عبدالعزيز محمد
عبدالعزيز محمد قام بنشر مايو 22, 2020 الكاتب قام بنشر مايو 22, 2020 عيدكم مبارك وعساكم من عواده مازلت انتظر
Barna قام بنشر مايو 22, 2020 قام بنشر مايو 22, 2020 5 ساعات مضت, عبدالعزيز محمد said: عيدكم مبارك وعساكم من عواده مازلت انتظر مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل Aziz (2).rar 8
عفرنس قام بنشر مايو 22, 2020 قام بنشر مايو 22, 2020 منذ ساعه, Barna said: مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل Aziz (2).rar 98.85 kB · 4 تنزيلات تسلم يداك .. ما شاء الله تبارك الله .. الجميل في الموضوع : تفريغ الخانات بعد إضافة البيانات . وهذا ما لم يكن موجود قبل لمساتك الحلوة .. 1
أبوبسمله قام بنشر مايو 22, 2020 قام بنشر مايو 22, 2020 جزاك الله خيرا اخوانى واساتذتى محمد @Barna و @ابو تراب 💐 تقبل الله منكم صالح الاعمال 2
الحلبي قام بنشر مايو 23, 2020 قام بنشر مايو 23, 2020 ياريت احد الاخوان يضع لنا مرفق الاستاذ / @Barna بدون ضغط يعنى ملف اكسس عادى اكون شاكرا
عبدالعزيز محمد قام بنشر مايو 23, 2020 الكاتب قام بنشر مايو 23, 2020 تفضل الملف بدون ضغط يا أخ حلبي Aziz.accdb 1
عفرنس قام بنشر مايو 23, 2020 قام بنشر مايو 23, 2020 35 دقائق مضت, عبدالعزيز محمد said: تفضل الملف بدون ضغط يا أخ حلبي Aziz.accdb 928 kB · 0 تنزيلات إذا الإجابة كما تريد .. لا تنس الضغط على أفضل إجابة
عبدالعزيز محمد قام بنشر مايو 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.rar
عفرنس قام بنشر مايو 23, 2020 قام بنشر مايو 23, 2020 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 ومن ثم يتم التعديل في الكود المراد
عبدالعزيز محمد قام بنشر مايو 23, 2020 الكاتب قام بنشر مايو 23, 2020 السلام عليكم تمت اضافة 4 اصناف للتجربة ويمكن اضافة اكثر من 4 اصناف Aziz.rar
عبدالعزيز محمد قام بنشر مايو 23, 2020 الكاتب قام بنشر مايو 23, 2020 طالسلام عليكم وكل عام وانتم بخير ياريت لو يتم تضويع الكود التالي: SUDENT_ID = (DLookup("code", "Tabunits", "units = '" & CLASSE & "'") * 1000) + Right(Nz(DMax("sudent_id", "TabSudents", "classe = '" & CLASSE & "'"), 0) + 1, 3 الموجود بالمرفق وجعله في النموذج FormTeachers الموجود في مشاركتي لأسباب التالية: فهو خفيف وقصير ويسع كل ما يتم اضافته لجدول الاصناف حبذا لو يتم تعديله Aziz11.rar
husamwahab قام بنشر مايو 24, 2020 قام بنشر مايو 24, 2020 (معدل) كل عام وانتم بخير تفضل اخي العزيز ارجو ان يكون طلبك Root100.rar تم تعديل مايو 24, 2020 بواسطه husamwahab 3
Gamal.Saad قام بنشر مايو 24, 2020 قام بنشر مايو 24, 2020 برغم أن جميع الحلول السابقة ممتازة ومناسبة لكن أحببت المشاركة في اختصار الكود : في ٢٢/٥/٢٠٢٠ 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 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.