هل يوجد كود لنقل بينات نموذج الى نموذج آخر

[طاهر الوليدي]

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

ايها الافاضل وعباقرة المنتدى اجيبوني 

بحل مشكلة تختصر اعمال كثيرة 

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

ولكن من اجل رفع تقرارير لكل عمود في نموذج كامل كل عمود على حده تم اضافة في نموذج تفاصيل رقم الموظف . ونوع الصرف .الذي يعتبر اسم العمود . والمبلغ .. المطلوب انتقالها آليا من نموذج كامل الى نموذج تفاصيل

خلصنا هنا .

يبقى التقارير عجزت عن اصلاحها كونها لن تنفذ الا اذا تم تنفيذ ماسبق

 

توضيح.rar

[ازهر عبد العزيز]

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

[طاهر الوليدي]

اخي العزيز شكرا على مروركم 

كل ما ريده هو ان يتنفذ بشكل المطلوب باي طريقة كانت . 

عدل في نموذج كما تريد وكيف ماتريد للوصول الى الحل

وما يهمني هو الوصول الى المطلوب بطريقة المطلوبه

ولك  الشكر

مرفق النموذج اعلاه

[ازهر عبد العزيز]

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

توضيح.accdb

[طاهر الوليدي]

22 ساعات مضت, ازهر عبد العزيز said:

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

توضيح.accdb 1.77 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 32 تنزيلات

اشكرك استاذ أزهر على تجاوبك 

واسأل الله  لكم جميعا الخير 

ليس مستحيل على اكسس ان تنقل بيانات من نموذج الى نموذج آخر  وما مثالي ليس بالمستحيل تنفيذه .

الموضوع يحتاج الى شخص له خلفية عميقه 

في الكسس . اتذكر الاستاذه الفاضله زهره العبدالله 

والاستاذ خليل ولاستاذ جعفر والاستاذ على طاهر

والانسي ومسقط وآخريين كثير وضعوا ومازالت بصماتهم ونماذجهم ومشاركاتهم في ذاكرتنا 

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

فقد اوقفوا علما يتوارثه جيلا بعد جيل

فجزاهم الله عني وعن كل واحد منا الف خير ورحمهم الله في الدنيا والآخرة. 

اما بخصوص المثال المعدل من قبلكم فانت غيرت وبدلت ولم تصل الى المقصود. لاني لم اوصل المقصود او انك لم تفهمني 

المطلوب استاذي الفاضل 

او المثال له نموذجين الاول اسميته 

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

وهناك حقول لغرض ادراج المبلغ لها تسميات 

عند صرفها للموظف يتم ادراج او دخال المبلغ في الحقل المخصص لنوعية الصرف .

مكافئة . مواصلات . مصاريف .

المبلغ نفسه له تفاصيل توضيحية تستكمل في نموذج ثاني اسمه تفاصيل .

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

مثال 

المبلغ. نوعها . رقم السند . البيان .             التاريخ

اعلاه اسماء الحقول

وتحت المدخلات فيها

٥٠٠٠  مواصلات  ٢٠.    لسفر الى المدينه      ١/٩/٢٠٢٠

معناه انك تحتاج لكل عمود تفاصيل للمبلغ 

فكرت بطريقه مختصره اردت تحقيقها 

هيا وهو المطلوب تنفيذه 

عند ادخال المبلغ في حقل افقي او عمودي يظهر نموذج جديد يكتب تفاصيل المبلغ 

عند ادخال ٥٠٠٠ في عمود المواصلات للموظف سمير 

يظهر مباشرتا نموذج مخصص لتفاصيل المبلغ 

تكون آلية انتقال بيانات من نموذج الخلاصه او نموذج الكامل الى نموذج تفاصيل بيانات ثلاثة حقول رقم سمير 88 نوع الصرف المواصلات

والمبلغ . هذه البيانات سبق ادخالها في نموذج كامل

يتم اضافة باقي التفاصيل 

رقم السند .تاريخه . البيان 

اذا تمت الطريقة السابقة تحقق تنفيذ تقارير 

لكل عمود في نموذج كامل 

يكون التقرير بهذا الشكل 

         خلاصة بند المواصلات 

المبلغ  . رقم السند . البيان . التاريخ.

٥٠٠٠.       ٢٠.        لسفرالى المدينه.      ١/٩/٢٠٢٠

 

اسماء الموقعين

المدير الاداري.         المدير المالي.      المدير العام

 

اتمنى اني اوصلت الفكره

وشكرا

[د.كاف يار]

اخي الكريم 

اليك طريقة بسيطة جدا

اولا  /   افتح نموذج فارغ و اضف اليه الحقول التي ترغب بها مع مراعاة تسمية الحقول بنفس المسمى في الجدول لتسهل عملية ترحيل البيانات للجدل

((( اذا المطلوب منك نموذج و حقول غير منضمة للجدول )))

ثانيا   / استدعاء قيمة من النموذج السابق اتبع الأتي 

ضع القيمة ادناه مع التعديل على اسم النموذج و اسم الحقل

=[Forms]![FormName]![TextBox]

ثالثا / اضف ازرار لترحيل البيانات للجدول و ضع الكود التالي مع التعديل المطلوب

Dim db As DAO.Database
Dim rs As DAO.Recordset
On Error GoTo errorhandle
    Set db = CurrentDb
    Set rs = db.OpenRecordset(" ضع اسم الجدول هنا")
       With rs
          .AddNew
          ![F1] = Me.[TextBox1]
          ![F2] = Me.[TextBox2]
          .Update

       End With
MsgBox "تم الحفظ بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد"
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

 

 

 

[طاهر الوليدي]

20 ساعات مضت, د.كاف يار said:

اخي الكريم 

اليك طريقة بسيطة جدا

اولا  /   افتح نموذج فارغ و اضف اليه الحقول التي ترغب بها مع مراعاة تسمية الحقول بنفس المسمى في الجدول لتسهل عملية ترحيل البيانات للجدل

((( اذا المطلوب منك نموذج و حقول غير منضمة للجدول )))

ثانيا   / استدعاء قيمة من النموذج السابق اتبع الأتي 

ضع القيمة ادناه مع التعديل على اسم النموذج و اسم الحقل

=[Forms]![FormName]![TextBox]

ثالثا / اضف ازرار لترحيل البيانات للجدول و ضع الكود التالي مع التعديل المطلوب

Dim db As DAO.Database
Dim rs As DAO.Recordset
On Error GoTo errorhandle
    Set db = CurrentDb
    Set rs = db.OpenRecordset(" ضع اسم الجدول هنا")
       With rs
          .AddNew
          ![F1] = Me.[TextBox1]
          ![F2] = Me.[TextBox2]
          .Update

       End With
MsgBox "تم الحفظ بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد"
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

 

 

 

شكرا بارك الله 

ممكن تطبيقه على المثال المرسل 

حيث جربت ولم انجح

[طاهر الوليدي]

لرفع