أمير ادم

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

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 في الجدول الرئيسي مثل

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

نعم

استاذي الكريم ابوخليل شكرا لك على مرورك الكريم ولكني لا ارا اي عوجاء مثل ماوصفت🤣 الامور واضحه وضوح الشمس ومع ذلك سوف اشرح لك المطلوب وجملة ولماذا؟؟؟؟ للا ستاذ الكريم عمر ضاحى من هنا يتم الادخال البيانات الاساسيه اولا : لدي جدولين بينهم علاقه رائس باطراف او ماتسمونها رائس بكثير ادخل به كود المنتج في الجدول الرئيسي ومن ثم ادخل بالفرعي محتويات المنتج ومن هنا اصبح المنتج له موصفات وتركيبات خاصه به. من هنا يتم استدعاء البيانات عن طريق كود المنتج ثانيا: يوجد جدولين اخرين نفس الامر بينهم علاقه وهذا الجدول يعتمد على عدة عمليات في مجالي عملي والمطلوب مساعدتي اذا سمحتم في اتمنا من الله ان اكون قد شرحت ماريد توصيله لكم بالصوره وفي انتظاركم بمساعدتي تم ارفاق الملف مره ثانية TransBom.rar تم شرح لماذا؟؟؟؟؟؟؟

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

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

اخي واستاذي الكريم Foksh تم تحميل الملف ولم ارا فيه اي تعديلات فضلا وليس امرا ايضاح ماتقصده 🌹

On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Odb_Production_Operations_Schedule ( Odb_Product_Codeb, Odb_Product_Namec, Odb_Product_Unetd, Odb_Product_Qtye ) " & vbCrLf & _ "SELECT Odb_Descrptionxy_Prim.Odb_ItemCode, Odb_Descrptionxy_Prim.Odb_ItemName, Odb_Descrptionxy_Prim.Odb_Unet, Odb_Descrptionxy_Prim.Odb_Qty " & vbCrLf & _ "FROM Odb_Descrptionxy_Prim " & vbCrLf & _ "WHERE (((Odb_Extch_Ex.Odb_RawCode)=[Forms]![Form]![Odb_ItemCode])) AND (((Odb_Extch_Ex.Odb_NameRaw)AND (((Odb_Extch_Ex.Odb_Unet)AND (((Odb_Extch_Ex.Odb_Praic)AND (((Odb_Extch_Ex.Odb_Qty) Not In (SELECT [Odb_Production_Operations_Schedule].[Odb_Product_Codeb] " & vbCrLf & _ "FROM [Odb_Production_Operations_Exch]; " & vbCrLf & _ ")));" DoCmd.SetWarnings True DoCmd.Requery حولت تفعيل هذا الكود ولم يفلح معي هل الكود هذا فيه خطاء ارجو المساعده

عذرا اخي Foksh لا افهم ماتقصده ممكن ان توضح لي ماتقصده من تحميل الملف الله يجزاك خير

🌹

ماتره صحيح انا معك استاذي الكريم

عمر ضاحى استاذي الكريم شكرا لك على مرورك الكريم يوجد لدي جدولين بينهم علاقه رائس بكثير ولهم نموذجين رئيسي وفرعي مثل هذه الصوره وهنا يتم ربط المنتج بالاصناف التابعه له كما هوا موضوح بالصوره والثاني مثل هذه الصوره كل ماريده هوا عند كتابة كود المنتج في الشاشه الثانيه (صورة رقم 2) ياتي لي بكافه بياناته من الشاشه الاولى (صورة رقم 1) هوا مثل استعلام الحاق او نقل بيانات بين جدولين ولكن الحاق او استدعاء من خلال كود المنتج........ ولكن تعبت ولم اصل لشي ولكن تكرار البيانات مافي غير رقم الحركة وتاريخ الحركة بالرئيسي والفرعي شكرا لك عل حسن تعاونك 🌹