اذهب الي المحتوي
أوفيسنا

Mohamed Khaled Galal

02 الأعضاء
  • Posts

    79
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

14 Good

عن العضو Mohamed Khaled Galal

  • تاريخ الميلاد 28 نوف, 1993

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    IT Administrator
  • البلد
    مصر

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. انتهت مشكلتي في النموذج التقليدي ولاكن انا اريد ان اطبق هذا الكود بداخل نموذج به Child كما في الصوره مرفق لك اخي قاعده البيانات https://www.mediafire.com/file/7q9qj29k8xsbin1/QRSystemManagerFinal.accdb/file وهذا هو الكود النهائي ولكن اريد ان اضيف عليه الChild لان مربع نص التحقق بداخله وليس في النموذج الرئيسي Dim fieldValue As String fieldValue = Me.BundleCode.Value If Not IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] =" & Me.BundleCode.Value)) Then Else MsgBox "هذا البندل غير مسجل في جدول رقم 1" Me.Undo End If اعتذر لك اخي الكريم على تعبك معي
  2. تسلم جدا اخي الكود يعمل جيدا انا اعتذر لك اريد انا يطبق هذا الكود على الفورم وبداخله Child وهو الذي يحتوي على خليه التحقق BundleCode
  3. تمام اخي هكذا الكود يعمل ولكن عندي النزول لكتابه كود جديد تظهر لي هذه الرساله
  4. اخواني الكرام مازالت المشكله متواجده مرفق لكم مثال على مشروعي هذه المشكله التي تظهر عند كتابه الكود ثم التنقل الي الخليه التاليه له اكتشفت انا هذه المشكله تظهر عند تحويل الخليه من Short Text الي Number ولكن يجب ان تكون هذه الخليه Number وليس Text QRSystemManagerFinal.accdb
  5. اخواني الكرام مازالت المشكله متواجده مرفق لكم مثال على مشروعي هذه المشكله التي تظهر عند كتابه الكود ثم التنقل الي الخليه التاليه له QRSystemManagerFinal.accdb
  6. السلام عليكم اخواني الكرام لدي هذا الكود وهو يقوم بالتحقق من البيانات يوجد فورم به Child ودالخ مربع نص اذا قومت بكتابه كود المنتج يقوم بالتحقق اذا كان مدرج في جدول رقم 1 اما لا اذا كان مدرج يقوم بادراجه في مربع رقم2 اذا لم يكون مدرج تظهر رساله بان هذا المنتج غير مسجل في الجدول رقم 1 جدول رقم 1 اسمه (BundleDataINCutting). جدول رقم 2 اسمه (BundleDataOut). هذا هو الكود Private Sub BundleCode_AfterUpdate() Dim fieldValue As String fieldValue = Me.BundleCode.Value If (IsNull(DLookup("[BundleCode]", "BundleDataINCutting", "[BundleCode] ='" & Me.BundleCode.Value & "'"))) Then MsgBox "هذا البندل غير مسجل في جدول رقم 1" Else DoCmd.RunSQL "INSERT INTO BundleDataOut (BundleCode) VALUES ('" & fieldValue & "')" End If End Sub
  7. السلام عليكم اخواني الكرام كل عام وانتم بخير وعام سعيد عليكم يارب كنت اريد مساعده في نسخ حقل من جدول الي جدول اخر كما في الصوره التاليه وهو رقم الاذن ولكن كل معرف له رقم الاذن الخاص به: في الصوره الثانيه اريد عند كتابه رقم سريال البندل يتم استدعاء رقم الاذن الخاص به من الجدول الذي يسمي BundleDataOut خلاصه الموضوع: اريد نسخ رقم الأذن من جدول LinesIN الي حقل رقم الأذن في جدول BundleDataOut ليتم استدعائه الي حقل رقم الأذن عند كتابه سريال البندل في جدول ProductionControl ولكل سريال بندل رقم الأذن الخاص به. ومرفق لكم قاعده البيانات https://www.mediafire.com/file/i6onmna1iy9678e/QRSystemManagerFinal.rar/file
  8. هذا هو المطلوب انا عاجز عن الشكر فعلا فليس لدي من كلام اقوله شكرا جدا جدا لك اخي العزيز
  9. من الممكن ان نلغي مربع المراحل في النموذج الرئيسي لنفعل الفكرخ الثانيه وهي النموذج على جه اليمين لاني اريد كل مرحله بجانبها مربع اختيار وللعلم البيانات الموجوده بالاسفل قمت بوضعها يدويا
  10. اشكركم اخواني الكرام علي تعبكم معي مشروعي باختصار المربعات التي بالاعلي يتم كتابه بيانات فيهم ثم اختيار المراحل من القائمه علي اليمين عاي حسب الاختيار ويتم اضافه في الجدول الي في الاسفل بعد الضغط عاي زر اضافه اذا قمت باختياز ثلاث اختيازات يتم تكرارهم ثلاث مرات والمتغير فقط هو خانه المرحله يتم اضافه البيانات الي في المربعات ثلاث مرات او اثنان علي حسب اختياز المراحل من القائمه علي اليمين بالنسبه لStage_subform قومت بوضعه لمعرفه الفكره التي اريدها فقط لاني اريد وضع مربع قابل للزياده يوجده به مراحل وكل مرحله بجانبها مربع اختيار
  11. السلام عليكم اخواني الكرام لدي نموذج به بيانات ويوجد على الجانب الايمن للنموذج جدول به بعض البيانات اريد عندما اقوم بالتعليم على احد البيانات او مجموعه منهم يقوم بالاضاففي الSubform مرفق قاعده البيانات Sample.rar
×
×
  • اضف...

Important Information