طير البحر

الاخ @Foksh اشكرك للاشارة لموضوعي الخاص بتوسيط النماذج وانا @طير البحر وكنت اود ان اقدم لكم هدية جديدة واستخدمها فى عملي لكن التقارير التعامل معها صعب شوية وخاصة فى وضع معاينة قبل الطباعة ------------------ الاخ @kkhalifa1960 اشكرك على المعلومة القيمة فقد بحثت عنها كثيرا ---------------- الاخ @jjafferr الحقيقة استخدام هذا الامر لم يغير شئ وعدت للطريقة النى استخدمتها والمناسبة للشاشات التى نستخدمها كحيلة بديله وجرب وضع الامر فى التقرير نفسه عند الفتح ولم يقبله DoCmd.OpenReport "casetypechart", acViewPreview 'DoCmd.MoveSize 3000, 1500, 18000, 10500 DoCmd.RunCommand acCmdZoom100 اشكركم جميعا ويستمر البحث وقد راسلت مايكروسوفت

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

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

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

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

الاخوة @Moosak @kkhalifa1960 @ابوخليل وجدت انه يعتمد على جدول اخر مفقود وراجعت العلاقات فلا شئ فانشأت الجدول المفقود وراجعت العلاقات فلم اجد بينهم علاقه حد يقدر يفهمني يعني ايه معتمد على جدول اخر

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

بعد مجهود من تغيير الاسماء ثم الحذف اكتشفت ان المشكله فى الجداول اظهرت جميع العلاقت وقت بحذفها ثم قمت بتغيير اسماء الجداول وكل مره اغلق فيها القاعدة فلم يتغير شئ فى النهاية وصلت للجدول الذي يسبب المشكله فرغته من البيانات وانشأت به سجلين فارغين فلم يتأثر شئ والامور تمام حذف جميع علاقاته والامور تمام اخذت نسخه من ملف القاعده واسقطته فى محرر نصوص فظهر لى اسم الجدول فى مكان ما اكتشفت انه استعلام مهمل فحذفته ولم يعد هناك اى شئ مرتبط بالجدول فلما حذفته ايضا ظهرت الرساله primary key ومازلت احاول وسانظر فى موضوع موجود فى كل الجداول الاخ @Moosak جاري تنفيذ الخطوات وسابلغكم بالنتائج

فكرة كويسه ساعمل عليها باذناا لله اشكرك اخي @kkhalifa1960 وجزاك الله خيرا

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

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

اخواني قمت بحذف بعض الجداول المهملة والمكررة باسماء اخرى التى نصنعها اثناء العمل فبدأـ تظهر هذه الرسالة فقط عند اغلاق قاعدة البيانات فهل من نصيحه “The search key was not found in any record.”

Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" ممكن تشرحلى القطعه دي من الكود

شرف لي مشاركتكم الجميله وتقديركم

ارسل مثال وسنقوم بعمل التعديل عليه

فعلا موضوع ممتاز

فى ظل امكاناتي المتواضعه وللحاجه وبعد مراجعة العديد من الحلول المتوفره على الويب التى لم اجد بها ضالتي اقدم لكم مربع التلوين هذا colorpicker حيث يقوم بتلوين خلفية النموذج بشرط تسميتها detail بالانجليزيه ورأس النموذج بشرط تسميته header وتذييل النموذج بشرط تسميته footer وكذلك مربعات التنسيق والتجميل rectangle بشرط ان يتم تسميتها box1 , box2 وهكذا وضعت وظائف التلوين فى حدث عند النقر المزدوج فى كل منها طبعا يمكن استخدام اسماء عناصر عربيه لكنها ستحتاج تعديل فى الجدول والكود ولا افضل ذلك المربعات الونيه يمكن تلوين حتى box9 اى تسع مربعات النموذج يحتوي اكثر من 400 لون معد سلفا منها 160 لون عشوائي تتغير بضغطة زر الى اخرى كل لون تختاره يمكنك التعديل عليه بتغيير قيم الالوان الاحمر والاخضر والازرق يوجد جزء خاص لضبط الخطوة فى + او - بقيم من 1 حتى 25 كما يوجد جزء خاص بتحديد سلوك تلوين الفورم فى المره القادمه التى سيفتح فيها وامامك 3 خيارات اما استخدام خياراتك الاخيرة للالوان واما استخدام الوان الجدول الافتراضيه وهى الوان رماديه يمكن تغييرها من الجدول فقط واما استعادة الوان الفورم عندما تم تصميمه ويتم التحكم فى كل جزء على حده اعلم انه بدائي لكنه يؤدي الغرض بفاعليه ونرحب بالافكار الجديده الكود متاح للجميع استخدامه شخصيا او تجاريا بشرط عدم ازاله شعار مؤسسة وعد الخيريه او كود الصوره اتمنى تزويدي بتعليقاتكم البرمجيه لتحسي الكود وتطويره لتعيين الصور كخلفيات يمكن التحميل من هنا mycolorpiker.zip

ارجو من اخواني ارشادي كيف اكتب مسار للتاب كونترول لصفحة محدده فيه For Each btn In colorform!Tab0.Pages("color1") وكيف افتح فورم على تاب محدد وليكن page5 عيدكم مبارك

اشكركم الحل فى تحريك امر الذهاب للسجل الاول خار جملة if not جزيتم الجنه ' إعادة تعيين مؤشر السجلات للبدء من السجل الأول rs.MoveFirst خارج جملة If Not rs.EOF Then

Private Sub Command120_Click() ' Dim childForm As Form ' Dim rs As Recordset ' Dim i As Integer ' ' ' الحصول على مرجع إلى النموذج الفرعي ' Set childForm = Me.Child0.Form ' ' ' البدء بإنشاء المصفوفة بحجم واحد ' Dim arrFilenoValues() As Variant ' ReDim arrFilenoValues(0) ' ' ' الحصول على مرجع إلى مجموعة السجلات في النموذج الفرعي ' Set rs = childForm.RecordsetClone ' ' ' التأكد من أن هناك سجلات قبل البدء ' If Not rs.EOF Then ' ' التحرك إلى السجل الأول ' rs.MoveFirst ' ' ' جمع قيم حقل fileno لكل السجلات وتخزينها في المصفوفة ' Do Until rs.EOF ' ' إضافة قيمة حقل fileno إلى المصفوفة ' arrFilenoValues(i) = rs!fileno ' i = i + 1 ' ' ' التحرك إلى السجل التالي ' rs.MoveNext ' ' ' تحديث حجم المصفوفة للسماح بإضافة سجل جديد ' ReDim Preserve arrFilenoValues(i) ' Loop ' ' ' إغلاق سجلات النموذج الفرعي ' rs.Close ' ' ' فتح التقرير لعرض السجلات المعتمدة على القيم المحصل عليها ' If i > 0 Then ' DoCmd.OpenReport "postcardmany_wide", acViewPreview, , "[fileno] IN (" & Join(arrFilenoValues, ",") & ")" ' Else ' MsgBox "لا توجد سجلات لطباعتها في التقرير.", vbExclamation + vbOKOnly, "تنبيه" ' End If ' Else ' MsgBox "لا توجد سجلات لطباعتها في التقرير.", vbExclamation + vbOKOnly, "تنبيه" ' End If ' ' ' حذف المصفوفة للاستعداد لاستخدامها مرة أخرى ' Erase arrFilenoValues End Sub اخواني استخدم هذا الكود وهو يعمل بشكل جيد لكن المشكله انه يعمل لمره واحده وبعدها لا يمكن اعاده تعيين بيانات جديده فى المصفوفه الا اذا تم اغلاق النموذج وفتحه من جديد كيف لى حذف المصفوفه فى نهايه الكود او اى حل يسمح باعادة تعبئتها

اقدر مجهودك وهى رائعه ولكن هل لا يمكن تعديل النتيجه الافتراضيه فى اوفيس؟

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

عذرا كيف لي ان اظهر لوحة الكائنات حتى اصل للموديول فانا جديد بعالم اكسس

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

جميله ولي الشرف مروركم