kanory

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

اجعلها حسب التاريخ والوقت ....

تفضل ................... Mahdi119.rar

وعليكم السلام اهلا بك .... حسب ما فهمت من سؤالك انك تريد ارسال كل محتويات المجلد عند ارسال الرسالة .... صحيح .... اذا كان ذلك هو مطلبك ... جرب هذه الشيفرة ...واعلمنا بالنتيجة بارك الله فيك ...... ملاحظة عدل فترات الانتظار حسب سرعة جهازك ... Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "mobile no" & "&text=" & "hello" Sleep 3000 Call SendKeys("~", True) Sleep 1000 SendKeys "+{TAB}" Call SendKeys("~", True) Sleep 1000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" Call SendKeys("~", True) Sleep 2000 SendKeys [CurrentProject].[Path] & "\PDF" Call SendKeys("{Enter}", True) Sleep 2000 SendKeys "+{TAB}" SendKeys "^a" Sleep 2000 Call SendKeys("{Enter}", True) Call SendKeys("{Enter}", True) Sleep 5000 Call SendKeys("{Enter}", True) Set IE = Nothing

الكود يعمل فقط على مربع النص الخاص بالتخصص انظر الصورة في الرد السابق لي ..... عموما تفضل ملفك بعد التعديل عليه ........ Database1601.accdb

طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي .... 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