alsihran

صحيح استاذ حسين وهو يعمل على الوجه المطلوب فقط المشكله هي في حدث Refrech عند التركيز على الحقل لاشعار النموذج بالتغيرات لعمل تصفية في حقل الورديه قبل الاختيار هناك بطأ شديد واهتزاز للنموذج بالكامل ولذلك انا اسأل هل هناك بديل لهذا الامر ام ان التصميم من الاساس خطأ ففكرت ADO.DB لعله يكون افضل

صحيح استاذ حسين طلبي كان لسبب محاولة معالجة موضوع أخر عن طريق هذه الطريقة الموضوع الاخر على هذا الرابط هنا ولم اجد له حل حتى الان ففكرت بطريقة التعامل مع النموذج كما يتم التعامل معه في الفجول بيسك vb.net من حيث خاصية الاتصال المنفصل والتي تتمثل باحضار بيانات الجدول والتعديل عليها ومن ثم اعادة ارسالها للجدول مرة أخرى الطريقة التي وضعتها انت استاذي الكريم من اعادة مصدر بيانات النموذج الى جدول محدد اعادتني للمربع الاول لذى ان كان يمكن تنفيذ هذا الطلب ارجو المساعده شكر لك وتقبل تحياتي

الله يعطيك العافية استاذ / حسين انظر الان للمرفق بعد ما قمت بإزالة مصدر البيانات للنموذج الفرعي لا يتم الا احضار سجل واحد فقط وانا اريده ان يحضر جميع السجلات بدون تحديد مصدر للسجل في النموذج الفرعي وعندما اقوم باضافة سجل او تعديله يتم التعديل على المصدر الذي تم احضار البييانات منه اعذرني ازعجتك معي لاني على ما يبدو لم اوصل فكرتي وما اريده بشكل واضح Desktop1.rar

اذا ارجعته نفس الشي لا يتم احضار اي سجل الى النموذج

لم يعمل الكود استاذي واذا قمت بازالة On Error Resume Next تظهر رسالة الخطأ التالية

طبقت الكود ونجح في الاتصال لكن المشكلة انه لايجلب سوى السجل الاول فقط Set conn = CreateObject("ADODB.Connection") conn.Provider = "Microsoft.ACE.OLEDB.12.0" ' ÇÕÏÇÑ ÞÇÚÏÉ ÇáÈíÇäÇÊ conn.Open "Data Source = C:\Users\H\Desktop\FRm_Refresh.accdb" Set rs = CreateObject("ADODB.recordset") Dim MyData As String MyData = "tblchfit" rs.Open "Select * from " & MyData, conn For Each x In rs.Fields Me!ImagesNewTb![Image Path] = rs.Fields("Edate") Next

فشلت في تطبيق الكود لو أمكنك استاذي التطبيق على المثال الذي وضعته

أشكرك استاذ حسين على ردك واجابتك الذي اريده احضار البيانات الى نموذج ليس له مصدر بيانات عن طريق ADO.Recordset وليس DAO.Recordset مع امكانية التعديل على السجلات أو الاضافة وارسالها للجدول مرة أخرى شاكر ومقدر لك

السلام عليكم ابحث عن مثال لادراج سجلات جدول في نموذج مستمر عن طريق ADODB.Recordset مع امكانية اضافة وتحديث وحذف سجلات بحثت كثيرا لكن لم اجد الا امثله للاضافة والتعديل في نموذج مفرد ان شاء الله يكون الطلب واضح

رفع

هل البناء أو التصميم خطأ بحيث يصعب معه تنفيذ أمر التصفية لمربع الكمبوبوكس قبل الاختيار من القائمة سأشرح ماهو البناء المصمم لعل احد الأساتذة او الاخوة تكون له فكر افضل المرفق عبارة عن جدول دوام لموظفين لأربع وردايات جدول Emp هو جدول بيانات الموظفين جدول tblchfit عبارة عن جدول الورديات حقل Edate يعبر عن تاريخ اليوم حقل F1 للورديه الأولى حقل F2 للورديه الثانية حقل F3 للورديه الثالثه F4 للورديه الرابعه CRsms للعطلة الأسبوعية الان مثلا عند اختار اسم موظف في الوردية الأولى يجب ان لا يظهر أسمه في بقية الورديات في نفس اليوم (أي السجل الحالي ) لعمل ذلك قمت بعمل استعلامات توحيد F1 F2 F3 F4 F5 بحيث كل استعلام يخص حقل من حقول الورديات ويتم الاستعلام عن طريقه لفرز الاسماء بحيث عند التركيز على الوردية الأولى يظهر قائمة الموظفين من جدول بيانات الموظفين ويستثني من ذلك من تم اختيار اسمه في احد الورديات الامور الى هنا كلها تمشي بشكل جيد المشكلة عند اختيار اسم في احد الورديات والانتقال الى ورديه اخرى يبقى اسمه يظهر لأن مربع الكمبوبوكس لم يستشعر التحديث الذي حدث على النموذج ولاشعار النموذج بالتغيرات التي حدثت اضطررت الى وضع الامر Refresh في حدث عند التركيز على مربع الكمبو بوكس ويتم تنفيذ الامر بنجاح لكن يحدث بطأ واهتزاز لجميع سجلاات النموذج بعد تنفيذ الامر فهل هناك طريقة اخرى او تصميم اخر تمكنني من تنفيذ المطلوب

رفع

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

up

هذا الحل لم يغب عن ذهني ولكنه لايؤدي المطلوب شكرا لك

رفع

يعطيك العافية ليس هو المطلوب فهناك فرق بين تنفيذ الامر بعد التحديث وعند التركيز على الحقل

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

السلام عليكم بالمرفق نموذج frm بداخله نموذج فرعي النموذج الفرعي يحتوي على حقل Ids EDate F1 F2 F3 F4 عند اختيار اي عنصر من عناصر القائمة في الحقول F1 F2 F3 F4 لايظهر في الحقل الأخر مثلا عند اختيار اسم في الحقل F1 فلا يظهر في القائمة المنسدلة للحقل F2 , F3 , F4 ونفس الشي لبقية الحقول عند اختيار اسم لايظهر في القوائم المنسدلة للحقول الأخرى الأمر ما شي تمام المشكلة وضعت حدث عند التركيز على الحقل F1 F2 F3 F4 Private Sub F1_GotFocus() Me.Refresh End Sub Private Sub F2_GotFocus() Me.Refresh End Sub Private Sub F3_GotFocus() Me.Refresh End Sub Private Sub F4_GotFocus() Me.Refresh End Sub وذلك من أجل إنعاش النموذج وتصفية القائمة قبل الإختيار لكن ذلك يحدث بطأ واهتزاز في النموذج فهل من حل بديل للأمر Me.Refresh لتلافي البطأ واهتزاز النموذج FRm_Refresh.rar

هذا هو المطلوب شكرا لك استاذ husamwahab

السلام عليكم المطلوب في النموذج تمميز لون الخلفية للسجل بالكامل من خلال التنسيق الشرطي عندما يكون التاريخ للسجل يساوي يوم عطلة اسبوعية جمعه أو سبت التنسيق الشرطي.accdb

👍 رحم الله والديك🤲

لو ممكن طلب أخير استاذي الكريم لو افترضنا ان تاريخ البداية مثلا هو 15/10/2020 وتاريخ النهاية هو 18/11/2020 ماهو التعديل المطلوب على الكود لاضافة الايام بين هذين التاريخين

نعم هو المطلوب أشكرك وجزاك الله كل خير

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