طير البحر

10 hours ago, Foksh said:

أعتقد ان تناسق مكونات التقرير عند التحكم بتكبير وتصغير الإطار يعود الى عرض وضع الطباعة ، بينما في وضع عرض التقرير لا يتم إعادة تحجيم للمكونات كما في عرض الطباعة .

أما فيما يخص العنوان ، فأعتقد انك تقدر تراجع هذا الموضوع 😉 لأخونا @طير البحر 🤪 والإستفادة منه .

الاخ @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 ومازلت احاول وسانظر فى موضوع 

10 hours ago, Zooro1 said:

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

انني لم اعمل primary key للجداول،  بالفعل عملتها وراحت المشكلة،  ياريت تجرب

وطبعا اخوتي لهم الفضل بعد ربنا.

موجود فى كل الجداول

الاخ @Moosak جاري تنفيذ الخطوات وسابلغكم بالنتائج

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

وجزاك الله خيرا 

2 hours ago, ابوخليل said:

لا كوارث ولا اي شيء اذا اخذت بالاحتياط

ولكن التقصير منك

خذ مني كيف اسير في عملي

1- احذف اي شيء لا فائدة منه اول بأول .. مثل استعلامات الفحص والتجربة .. والجداول التي الغيت العمل بها .. وينطبق هذا على النماذج والتقارير

وكما ذكرت لك اول بأول

2- بعد كل عمل مهم اخذ مني وقتا وجهدا اقوم باخذ نسخة احتياطية تكون في مجلد بعيدا واعطيها رقما متسلسلا .. للرجوع اليها عند الضرورة

تصور عند نهاية المشروع ان مجلد النسخ الاحتياطية يحتوي على العشرات لا تعجب اذا قلت ان الرقم قد يصل الى 100 ... وغالبا النسخة الأخيرة هي المهمة

3- احيانا اشعر ان قاعدة البيانات انهكت واصابها الاجهاد .. هنا اصدر كل ما تحتويه الى قاعدة بيانات جديدةمع

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

ومصادر البيانات

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

دعواتكم وتجاربكم 

12 minutes ago, ابوخليل said:

اول علاج

افتح قاعدة بيانات جديدة ثم اجلب اليها جميع الموجود في القاعدة القديمة

اذا صلح الحال وإلا فيجب تتبع الخلل

عادة لا يظهر الخلل عند استخدامك  سطر القفز على الأخطاء في المحرر

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

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

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

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

4 hours ago, Moosak said:

ما شاء الله تبارك الله 🙂 شكرا لك يا @طير البحر على الهدية الرائعة والجهد المبذول 👍🏻😊

موضوع متميز ويستحق التثبيت 😉👌🏻

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

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

On 4/10/2024 at 2:16 PM, Foksh said:

اقرأ هذا الموضوع قد يفيدك ويعجبك 🥰

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

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

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

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

6 hours ago, محمد احمد لطفى said:

تفضل من المنتدى

نتيجة ابو جودى.rar 101.45 kB · 4 downloads

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

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

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

On 3/30/2024 at 10:56 PM, kkhalifa1960 said:

يعمل عندي بشكل جيد ولا يوجد مشاكل  أوفيس 2010 32 بت

                                                                              

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

8 hours ago, kkhalifa1960 said:

جزاك الله كل الخير والى الأمام والتقدم دائماً .

ولي لمسة بسيطة كي ينتفع بها الكل وهي تحريك النموذج بكتابة القيم بــ (Left,Top) بالسنتيمتر .

waadcenterform-1.rar 367.64 kB · 0 downloads

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