طير البحر

اخ @Foksh هل يمكن ان تزودني بمعلومات عن صيغه accde والمزايا والعيوب

عانيت كثيرا فى ايجاد حلول لتوسيط النموذج بوسط الشاشه حتى الذكاء الصناعي اربكني وبعد تجربه العديد من الاكواد والامثله انتبهت اخيرا لان اكسس يقيس الابعاد بالتويبس وويندوز يعتمد البكسل والبكسل حوالي 15 تويبس وهنا تم حل المشكله اليكم مثال بسيط جدا وبموديول واحد لاغير اتمنى ان ينفع احد اخواني ولا يفوتني شكر الجميع فمنكم نتعلم المثال مرفق waadcenterform.accdb

اعلم انه عند الانتقال من 32 الى 64 يلزم بعض التعديلات فى الكود وسؤالي هو هل الكود المنشأ فى بيئه 64 بت سيعمل فى 32 بلا تعديلات ام يلزم التعديل ايضا

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

فى Hide Navigation Pane حصلت على الخطأ التالي

المثال يعمل عندي جيدا ولكن عند نقل الفورم لقاعده اخرى فكل شئ يعمل ماعدا تعطيل وتفعيل الشفت يعطي خطأ 13 عند Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) فما الاسباب المحتمله

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

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

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

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

رائع اخي لكن هل ترجع قيم الى المتغير ؟ وهل من مثال ام نفس حالة الرسائل العادية؟

جزء من الفورم من الناحية اليمنى اختفى رغم وجود فراغ فى الشاشة وادى لظهور سكرول بار افقي

الاخ @سامي الحداد للاسف لم يؤدي الكود الوظيفة المرجوة الاخ @Foksh الكود يحذف الحرف الاول من الفقرة الاولى اذا كانت فقرة وحيدة ويحذف الصور لقد مررت بكل هذه التجارب تقريبا او بتجارب مماثلة ولم اصل لنتيجة اشكر مجهودكم والباب مازال مفتوحا لنصل لهذا الكود ننتفع به وننفع غيرنا

اخي @Foksh ارجو ان استطعت المساعدة بمثال

الاخ @Foksh لقد جربت اكثر من 100 اقتراح من chat gpt لكنه مارس عليا الغباء الصناعي ههههه

اخواني استخدم هذا الكود لحذف الصفحات الفارغة برمجيا من ملف وورد وحصلت على نسخ عديدة من الكوت من chat gpt لكن الامر لم يفلح وكل مرة الكود يسلك سلوك مختلف هل ساعدتموني اريد ان احذف الصفحات الفارغة من ملف وورد برمجيا وهذا الكود Sub DeleteEmptyPages() Dim objWord As Object Dim objDoc As Object Dim i As Integer Set objWord = CreateObject("Word.Application") objWord.Visible = False ' Make Word invisible ' Open the document Set objDoc = objWord.Documents.Open(CurrentProject.Path & "\PDFs\" & Forms!SCANTOPDF!fileno.Value & ".docx") ' Delete empty pages For i = objDoc.content.ComputeStatistics(2) To 1 Step -1 If IsPageEmpty(objDoc, i) Then objDoc.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i objDoc.Bookmarks("\page").Range.Delete ' Delete the page Exit For ' Exit the loop to avoid issues with deleted page numbering End If Next i ' Save and close the document objDoc.Save objDoc.Close ' Quit Word objWord.Quit ' Release the objects Set objWord = Nothing Set objDoc = Nothing End Sub Function IsPageEmpty(doc As Object, pageNumber As Integer) As Boolean ' Check if the specified page is empty or contains only system-generated content Dim content As String Dim shape As Object Dim para As Object ' Get the content of the page content = doc.Range(doc.GoTo(What:=1, Which:=1, Count:=pageNumber).Start, doc.GoTo(What:=1, Which:=1, Count:=pageNumber).End).Text ' Check if the content is empty or only contains system-generated text (e.g., page breaks, section breaks, etc.) If Len(Trim(content)) > 50 Then ' If the content is not empty, check if it's only system-generated text For Each para In doc.Range(doc.GoTo(What:=1, Which:=1, Count:=pageNumber)).Paragraphs If para.Range.Information(wdActiveEndPageNumber) = pageNumber Then ' If the paragraph is on the specified page, check if it's system-generated If para.Range.Text Like "*(Page)*" Then ' If it's system-generated text, continue to the next paragraph ' You can add more conditions here to check for other system-generated text Else ' If it's actual content, the page is not empty IsPageEmpty = False Exit Function End If End If Next para End If ' If no actual content is found, the page is empty IsPageEmpty = True End Function

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

الاخ @سامي الحداد جزاك الله خيرا الحقيقة عمل رائع ولكن حتى يستقر فهمي المثال اخرج كل الصورحتى منهم صورة غيرظاهرة ويبدو انها مضمنة فى جدول الكائنات فهل لى ان اطمع فى تعديل بسيط على جزء الاستخراج فى الكود ليخرج صورة محددة بدلالة اسم الكائن وهل الامر يرجع لجملة الاستعلام هكذا Set Rs_p = Db.OpenRecordset("SELECT * FROM MsysResources WHERE [type]='img' AND [Name]='Image1';", dbOpenDynaset) وجزاكم الله خيرا وفيرا

الاخوة الافاضل لديا فى الفورم كائن صورة به صورة غير منضمة فى جدول ولا مسار هل يمكن استخلاصها وحفظها على الجهاز مرفق المثال saveimage.accdb

مهتم جدا

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

جزاكم الله خيرا ولكن هل يمكن تمرير قيمة المتغير عبر امر استدعاء الاستعلام وبالتالي لا تظهر الرسالة

يا اخوانا الامر ابسط من كده بكتير ياريت حد يساعد بفاعلية

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

up