أمير ادم

شكرا لك اخي الكريم وجعلها لك في ميزان حسناتك بالفعل هذا هو المطلوب 🌹

Foksh اخي واستاذي Foksh المحترم اولا شكرا لك على مرورك الكريم وسرعة الاستجابه هذا بالفعل هوا المطلوب ولكن قابلني مشكله بسيطه جدا وهي من المفترض اذا كان لدي موظف اسمه( صابر عبداللطيف عبد الرحمن عبد العزيز) وهو موظف لدينا ومن ثم تعيين ابنه وهو ( نسمه صابر عبداللطيف عبد الرحمن عبد العزيز) من المفترض ان ياتي لي بالكنيه (اب) واسمه(صابر عبداللطيف عبد الرحمن عبد العزيز) ولكن بياتي لي بالاسم بالفعل ولكن الكنيه لم تظبط معي مثل هذه الصورة من المفترض ان ياتي لي بالكنيه ابنه مثلا هل من الممكن ان يكون مثل بيانات الجدول هذا شكرا لك اخي الكريم

السلام عليكم ورحمة الله وبركاتة كل عام ومنتدانا الجميل وكل مشرفيه واعضائه بكل خير وجعل الله شهركم الكريم مبارك عليكم وعلى الامه العربيه والاسلاميه بكل خير الساده المحترمين لدي جدول يحتوي على بيانات الموظفين اريد ان يخبرني عند ادخال اسم الموظف رباعيا او ثلاثيا ياتي ليه بكنيته اذا كان اب او اخ او اخت ومن ثم ياتي لي باسمه حاولت ان اعدل في كود استخرج المحافظة والنوع والديانه من الرقم القومي ولكن بات بالفشل اريد مساعدتي في هذا الامر مرفق الكود الذي تمت المحاوله عليه وباتت بالفشل ههههههههه Option Explicit ' بسم الله الرحمن الرحيم ' ******************** '============================================== Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== MyProvinces = Array("01/ "35/اخت", "32/اب", "31/اخ") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(NameEmployee)) = 0 Then GoTo 1 End If If Not IsNumeric(NameEmployee) Or Len(NameEmployee) <> 14 Then Kh_Date_Sex_Province = "" GoTo 1 End If If MyTest = 1 Then d = Mid(NameEmployee, 6, 2) m = Mid(NameEmployee, 4, 2) y = Mid(NameEmployee, 2, 2) ty = Left(NameEmployee, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "اخ" Else yy = "ابن" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function وهذا هو الكود الاصلي Option Explicit ' بسم الله الرحمن الرحيم ' ******************** ' دالـــــــــــــــة ' Kh_Date_Sex_Province ' ( استخراج تاريخ الميلاد او النوع (ذكر - انثى ' او المحافظة من الرقم القومي '============================================== ' MyTest ' اذا كانت = 1 تقوم باستخراج تاريخ الميلاد ' اذا كانت = 2 تقوم باستخراج النوع ' اذا كانت = 3 تقوم باستخراج المحافظة '---------------------------------------------- ' MyProvinces في متغير الجدول ' بنفس الطريقة الرقم اولا ثم "/" ثم اسم المحافظة ' : مثال على ذلك ' "01/القاهرة" '============================================== Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Kh_Date_Sex_Province = "" GoTo 1 End If If MyTest = 1 Then d = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ذكر" Else yy = "أنثى" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function مرفق قاعدة البيانات للعمل عليه شكرا لكم مقدما emp.rar

شكرا لك اخي الكريم ابوخليل على مجهودك الكبير ولك مني كل الاحترام والتقدير الله يعطيك الف عافيه 🌹🌹🌹🌹🌹🌹🌹🌹🌹🌹🌹

مشكور اخي الكريم على اهتمامك ولكن هل لي ان استخدم دالة DLookup في مربع نص كود_المنتج التشغيلي: يعني عند كتابة كود المنتج التشغيلي يتم الاستدعاء ام من عدمه لن ولم اوفي شكري لك غير ان يجزاك الله كل الخير على ماتفعله 🌹

اخي الكريم نجحت الفكره مائه بالمائه بعد حذف المعيار الذي لا يظهر وقد انشاءات مربع )نعم \ لا) في النموذج الرئيسي وهذا يعتبر توحيد للمنتجات التي تم تصنيعها او المتبقيه يمكنك الاطلاع عليها من خلال الضغط او النقر مرتين على كود المنتج سوف يظهر نموذج مبني على الاستعلام الاضافه منك اخي الكريم هل من الممكن عند النقر على كود المنتج واختيار منه المنتج ياتي لي بالبيانات عوضا عن الكومبو بوكس وارفقت لك قاعدة البيانات للاضافه TransBom2.rar

انا معك اتوكل على في اي تعديل ياقائد

استاذي ومعلمي القدير ابوخليل بالفعل هذا ما اوريده بالفعل الله يجزاك خير ولكن قابلني شي انثاء التجربه وهو بعد الاستدعاء تظهر البيانات بالفعل امامي ولكن عند غلق النموذج وفتحه مره اخرى تظهر البيانات في الجدول ولا تظهر في الشاشه

اتوكل ع الله انا معك وفي انتظارك واسف على الاطاله واشغالك بطلبي ربي ييسرلك امرك شكرا لك🌹

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

تم بالفعل ربط رقم الحركة بكود المنتج Odb_ItmcodeAll واليك قاعدة البيانات مره ثانيه TransBom.rar

اخي سوف يتم زياده رقم 01 و02 و03 بجانب كود المنتج حيث اذا تكرر المنتج يتكرر الكود معه كما هو في الصوره مع رقم الحركة

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

اسم مربع النص الذي سوف ادخل به كود المنتج المراد استدعاء بيانته هوه Odb_Product_Codeb في الجدول الرئيسي مثل

نعم استاذي الكريم نعم يمكن تكرراه حسب الوان الخيوط ووزنها ومن الممكن ان يتكرر كود المنتج الى مالا نهايه مع اختلاف تركيبته وهذا ماريده شكرا لك اخي الكريم على اهتمامك للموضوع