alsihran

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

لم يعمل الكود استاذي واذا قمت بازالة 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 ماهو التعديل المطلوب على الكود لاضافة الايام بين هذين التاريخين

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

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

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

السلام عليكم قاعدة بيانات تحتوي على نموذج frm نموذج رئيسي ونموذج frm_chft نموذج فرعي المطلوب وضع الاشهر في مربع التحرير والسرد وعند اختيار الشهر يتم اظهار تاريخ بداية الشهر ونهاية الشهر وعند الضغط على زرالامر اعمل السجلات يتم اضافة تواريخ الشهر الذي تم اختياره من اول يوم الى اخر يوم بالجدول 1/1/2020 2/1/2020 3/1/2020 الى اخر يوم بالشهر حاولت اعملها عن طريق دالة for أو loop لكن ما قدرت وشكرا مقدما Adddte.rar

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