kanory

طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي .... Dim ctl As Control, strText As Variant, strName As String Me.ScaleMode = 1 For Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox And ctl.name = "Text4" Then strName = ctl.name If Nz(ctl.Tag, "") = "" Then ctl.Tag = ctl.FontSize End If ctl.FontSize = ctl.Tag Me.FontSize = ctl.FontSize strText = ctl.Value If Len(strText) > 0 Then Do Until TextWidth(strText) < ctl.Width ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26) ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop End If End If Next ctl ثم انظر النتيجة ......................

ملفك بعد التعديل ..... db1 (4) (1).mdb

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

المثال المرفق غير الموجود في الصورة ... تأكد منه

طيب ... جرب كما في الصورة ....

طيب تفضل ... التعديلات ::::::: 1- اضفنا حق ch في الجدول 2- عملنا استعلام بالسجلات المختارة 3- ادرجنا زر وبه الامر التالي ::::: 4- جرب المرفق .. Dim DTPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\salim07- " & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "استعلام1", acFormatXLSX, DTPath, False MsgBox "لقد تم تصدير البيانات بنجاح" TEST 12.accdb

لا اعتقد هنا طريقة مباشرة .... ولكن يمكن بطرق ملتوية .... انتظرني حتى اصل لجهازي .... لكن أين مثالك .......................................................... تأكد من المثال ؟؟؟؟؟؟

وعليكم السلام ... اخي الكريم علامة الاختيار لديك واضح انها للسجل وليس الحقل ...

اولا اسف للتاخر في الرد لظروف السفر .... طيب طبق ما في الصورة ......

الفكرة ببساطة ..... هو فتح اي برنامج للفوتوشوب او البوربوينت مثلا واكتب ما تريد ثم اجعله مائلا بالدرجة التي تريد ثم احفظ كصورة ..... ثم ادرجها في برنامجك واجعلها في الخلفية أي خلف كل شيئ ... وفقط ... db1 (4).mdb

هل هذا ماتريد ؟؟؟؟؟؟؟ db1 (4).mdb

مطلوبك غير محدد وغير مفهوم ... ممكن توضيح اكثر او مثال مرفق مصغر للمطلوب

واياك ...... الحمد لله رب العالمين .....

تفضل <><><><><> all-by-yesno (1).accdb

انظر ....... Test (11).accdb

هذا طبيعي لأنك طالب احصائيتين المهنة حسب النوع

هل لاحظت الصورة فيها اجمالي المهنة + اجمالي النوع وثانيا انت تريد تقرير أم قائمة منسدلة ..... اختلف الموضوع الان

انت تريدها في استعلام ام قائمة منسدلة ..... لأن مثالك الاخير لايوحي بذلك ؟؟؟؟؟؟؟ هل تريدها في الاستعلام هكذا ؟؟؟؟؟؟

اذن كل ما عليك فعله البحث في المنتدى حتى تجد ذلك الكود المبسط ...

تفضل <><><><><><><><><> all-by-yesno.accdb

اول ما تشغل البرنامج مباشرة اضغط شيفت

نعم ممكن ولكن باستخدام تصميم التقرير برمجيا ...

ابحث في الموقع تجد العديد من الموضوعات مثل هذا <><><><><><>

تفضل <><><<><><>< Test (10).accdb