فتح نموذج عند النقر المزدوج على الحقل

اخي الفاضل خالد

استخدم هذا الكود في حدث عند النقر المزدوج لمربع النص ReCode في النموذج fData وسيتم فتح النموذج الآخر على نفس البيانات فقط

Private Sub ReCode_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
stLinkCriteria = "[ReCode]=" & "'" & Me![ReCode] & "'"
DoCmd.OpenForm "subDetCourse", acNormal, , stLinkCriteria
End Sub

اما بالنسبة لعملية النسخ من الإكسيل الى الإستعلام فلن يتم ذلك لأن اي استعلام يحتاج اساسا الى جدول موجود مسبقا

لذا فإن اي استعلام لابد له من وجود جدول ليأخذ البيانات منه

حاول تقوم بعمل جدول في قاعدة البيانات به نفس اسماء الحقول الموجوده في ملف الأكسيل ثم استورد البيانات من ملف الإكسيل الى الجدول في قاعدة البيانات من خلال معالج الإستيراد .

وبعد ذلك قم بعمل استعلام مبني على الجدول الجديد الذي به بيانات مستوره من الأكسيل

بالتوفيق

zahrah كتب:

اخي الفاضل خالد

استخدم هذا الكود في حدث عند النقر المزدوج لمربع النص ReCode في النموذج fData وسيتم فتح النموذج الآخر على نفس البيانات فقط

Private Sub ReCode_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
stLinkCriteria = "[ReCode]=" & "'" & Me![ReCode] & "'"
DoCmd.OpenForm "subDetCourse", acNormal, , stLinkCriteria
End Sub

اما بالنسبة لعملية النسخ من الإكسيل الى الإستعلام فلن يتم ذلك لأن اي استعلام يحتاج اساسا الى جدول موجود مسبقا

لذا فإن اي استعلام لابد له من وجود جدول ليأخذ البيانات منه

حاول تقوم بعمل جدول في قاعدة البيانات به نفس اسماء الحقول الموجوده في ملف الأكسيل ثم استورد البيانات من ملف الإكسيل الى الجدول في قاعدة البيانات من خلال معالج الإستيراد .

وبعد ذلك قم بعمل استعلام مبني على الجدول الجديد الذي به بيانات مستوره من الأكسيل

بالتوفيق

لكي الف شكر وتقدير استاذتي وهذا ما اريده بالنسبة للسؤال الأول ولكن بالنسبة للسؤال الثاني اولاً البيانات تاتي من جهات مختلفة وطبعا بتنسيق مختلف ليست كما في الاكسس من تواريخ وغيرها والحقول التي ارغب في نسخ البيانات إليها موجودة في جدولين مختلفين والاهم لا اريدهم ان يروي كائنات قاعدة البيانات وذلك هل من طريقة وهل يمكن ان افتح الجدول او الجدولين باستخدام زر امر لاقوم بنسخ البيانات ولصقها

ولكي الف شكر وعذرا للإطالة في السؤال

اخي الفاضل خالد

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

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

وبعد ذلك نقوم بعمل استعلام لهذه الجداول .

خالد يحي الامام كتب:

لكي الف شكر وتقدير استاذتي وهذا ما اريده بالنسبة للسؤال الأول ولكن بالنسبة للسؤال الثاني اولاً البيانات تاتي من جهات مختلفة وطبعا بتنسيق مختلف ليست كما في الاكسس من تواريخ وغيرها والحقول التي ارغب في نسخ البيانات إليها موجودة في جدولين مختلفين والاهم لا اريدهم ان يروي كائنات قاعدة البيانات وذلك هل من طريقة وهل يمكن ان افتح الجدول او الجدولين باستخدام زر امر لاقوم بنسخ البيانات ولصقها

ولكي الف شكر وعذرا للإطالة في السؤال

لكي الشكر على الاهتمام مرفق لكي القاعدة والملف وتحت كل حقل كاتب ليك الجدولNewData.rarfile.rar

اخي الفاضل خالد

تفضل برنامجك بعد التعديل

مع ملاحظة ان تقوم بوضع ملف الأكسيل في نفس مجلد قاعدة البيانات ( هو موضوع مسبقا ولكن مستقبلا عليك ملاحظة ذلك لأن الكود مبرمج ان يكون ملف الكسيل في نفس مجلد قاعدة البيانات )

كل ما عليك الآن عند فتح قاعدة البيانات سيتم فتح نموذج الإستيرد frmImport لذلك قم بالضغط لمره واحده فقط على زر امر الإستيراد وسيقوم البرنامج بعمله من خلال الأكواد الموضوعه به

الآن تصفح الجدولين المطلوبين وستجد انه تم اضافة البيانات المطلوبه كل في مكانه الصحيح من ملف الأكسيل

KHALED.rar

بالتوفيق

لكي كل الشكر والتقدير والاحترام استاذتي الفاضله

نعم لقد تم بكل يسر ولكن واجهت مشكلة حيث عند فتح النموذج fData لتكملة البيانات الاحظ عند اضافة رقم السجل (Recode ) مثلاً 2010/0096 وعند النقر المزدوج عليه لفتح النموذج subDetCourse لتكملة بياناته الاحظ كل البيانات التي تم اضافتها إلى الجدول tDetCourse لنفس السجل الذي رقمه 2010/0096 وعند إضافة Recode مثلاً 2010/0097 الاحظ البيانات فارغة السابقة باعتبار اضيفت للسجل السابق في جدول tDetcourse بنفس الرقم 2010/0096

وختاما لكي الف شكر مرفق لكي القاعدة مع المف مرة اخريKHALED.rar