كيفكم اخواني
هل يمكن الإنتقال بالسجل من النتائج على نموذج البحث المرفق (من الأخت زهرة) الى نموذج أخر
حيث أن إسم النموذج الأخر الموظفين
بإضافة زر او بالنقر على السجل مرتين أو أي طريقة اخرى لديكم اخواني
وهذا هو المرفق
[ تمت الإجابة ] هل يمكن الإنتقال بالسجل من نموذج البحث المرفق (من الأخت زهرة) الى نموذج أخر
اخي devoter
السلام عليكــم ورحمـة الله وبركاتــه
نعم يمكن ذلك بإضافة الكود ادناه بحدث عند النقر المزدوج لمربع القائمة
Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmEmployees" stLinkCriteria = "[ID]=" & Me![SearchList].Column(0) DoCmd.OpenForm stDocName, , , stLinkCriteria
اليك ملفك بعد التعديل
بالتوفيق
أخي الغالي يوسف
أشكرك على النجدة السريعة لاخينا ديفوتر وأشكرك لسرعة تجاوبك مع الأعضاء ... أدام الله عمرك وأعطاك الصحة اللهم آميييييييييييييين
[يمين]
إذا كـان تـرك الـدين يعــنــي تقــدمــاً
فـيا نفــس مـوتــي قبــل أن تتقـدمــي
[/يمين]
السلام عليكــم ورحمـة الله وبركاتــه
اقتباسأخي الغالي يوسفأشكرك على النجدة السريعة لاخينا ديفوتر وأشكرك لسرعة تجاوبك مع الأعضاء ... أدام الله عمرك وأعطاك الصحة اللهم آميييييييييييييين
بارك الله فيك اخي الغالي كمال النحال
وشكراً جزيلاً لك على مرورك ودعواتك الطيبة .. وأشهد الله بأنني احبك فيه.
اسأل الله ان يوفقك ويجمعني واياك بالفردوس الأعلى ... آمين .. آمين .. آمين.
مع فائق الاحترام والتقدير
أخي الغالي يوسف
شكرا على ردك
وهل ممكن اذا اخترت اي صف من نتيجة البحث اعدل على الجدول الثاني وفي نفس الوقت يعدل مباشرة على الشاشة السابقة (شاشة البحث)دون ان احتاج الى الغاء ماتم كتابتة في تيكست البحث على شاشة البحث السابقة
اخي يوسف
لا اعرف ماذا اقول لك
لقد حللت مشكلتي الصعبة بسهولة والحل أحسن من المطلوب
فعلا انك رائع وتسلم ايديك واثابك الله على ذلك
دمت لنا
بارك الله فيك اخي devoter وجزاك خير الجزاء
اخي الغالي gagaga
اذا كنت فهمت قصدك فيمكن عمل ذلك بإضافة الكود ادناه بحدث عند التنشيط لنموذج البحث
Me.SearchList.Requery
حيث SearchList هو اسم مربع القائمة بنموذج البحث
بالتوفيق للجميع
اخي العزيز يوسف
فعلا هذا ما اريد
جزاك الله الف خير
كما ارجو ان تلاحظ هناك فرق عند الرجوع بعد التعديل في الشاشة الثانية وتعود الى الشاشة الاولى حينما تبحث بالمرتبة تختلف عنها حينما تبحث باسم المدينة ارجو ان تجرب البحث بالطريقتين وتخبرني لماذا هناك فرق
هل ممكن بعد ان اجري التعديل في الشاشة ( frmEmployees )
يرجع للشاشة الاولى البحث وتظهر جميع البيانات صحيحة بعد التعديل كما هي اول مرة ويقف المؤشر على مكان ادخال القيمة المخصصة للبحث ويكون فارغ استعداداً للادخال ( اي يرجع كما كان اول مرة في التنفيذ )
اخي الكريم
ضع الكود ادناه بحدث عند التنشيط لنموذج البحث
Me.txtSearch2.Value = "" Me.SearchList.Requery Me.txtSearch.Value = "" Me.txtSearch.SetFocus
واليك الملف بعد التعديل
لا أعلم ماذا أقول واعجز عن التعبير بالشكر والعرفان
ولكن اقول افضل ما قيل
جزاك الله خير الجزاء
يا عيني عليك اخوي يوسف
لم اكن اعرف انني بحاجة الى تحديثك الأخير على المثال
لقد افادني كثيراً ........جعلها الله في ميزان حسناتك
