Foksh

لأ يا صديقي ، من قائمة File ثم Save As واختر التنسيق 2003 مثلا أو 2007 ان كان موجوداً الحمد لله رب العالمين 🤗

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

اخي سيف احفظ الملف بنسخة 2007 لانها لا تعمل على 2010 عندي.

جربت تعمل استيراد لمكونات النسخة 2007 الى ملف اكسيس جديد ؟ 🤔 مع الإنتباه للمكتبات!!

عندك أكتر من حل :- الأول انك تعمل طباعة وتحدد من خصائص الطابعة الورقة بالعرض. وطبعاً ده بسبب انه حجم النموذج أكبر من ورقة A4. التاني انك تعمل تقرير وتضبط مكوناته وتنسقه وتعمل ربط للحقول اللي في التقرير كل حقل بمساره في النموذج وبعدين تطبعه. التالت تعمل تقريرك برضه وتجعل مصدر سجلاته نفس مصدر سجلات النموذج ولكن تحدد له شرط مثلاً ID اللي في النموذج ( المفتاح الاساسي ). الرابع تعمل جدول مؤقت بعد ما تحفظ بيانات النموذج فيه باستعلام إضافة وبرضو تعمل تقرير مصدره الجدول المؤقت ده وتطبعه ، ولما تغلق التقرير تعمل استعلام حذف علشان يحذف السجل اللي في الجدول المؤقت ده..... الطرق كتيرة وانت اختار اللي يريحك 🤗

بدايةً سحب الصورة لا يحتاج للبرنامج المساعد . ولكن اذا رغبت بسحب سكانر PDF فقد تحتاجه . وهناك طريقة قد تعجبك ، تقوم بمسح الصورة وإدراجها في تقرير ثم تصدير التقرير بصيغة PDF 😊

ارفق ملفك أخي الكريم .

ومشاركة مع أساتذتي ، لتقريب الأرقام لأقرب عدد صحيح إذا كان الجزء الكسري = أو أكبر أو أصغر من 0.5 Function RoundFoksh(Number As Double) As Integer If Number - Int(Number) >= 0.5 Then RoundFoksh = Int(Number) + 1 Else RoundFoksh = Int(Number) End If End Function ولاستدعاء الدالة كالآتي :- RoundFoksh(5.4) ' ستكون القيمة 5 RoundFoksh(5.5) ' ستكون القيمة 6 RoundFoksh(9.44) ' ستكون القيمة 9 RoundFoksh(9.55) ' ستكون القيمة 10

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

أخي @شايب ، هذا الموضع دون تحريك النموذج ؟؟

قمت مؤخراً بتعديل هذا الملف ، لعله يفيدك من هنا خطوات الحصول على النتيجة الصحيحة :- قم بتثبيت البرنامج الأول ( 1st Setup ) ، ثم قم بتثبيت البرنامج الثاني ( 2nd Setup ) . الآن قم بفتح برنامج الآكسيس ( Scanner ) ، وجرب النتيجة وأخبرني بها

باعتقادي لتحقيق حلمك ، ستحتاج شريط الأدوات المخصص (Custom Ribbon) ولكن يمكن تحقيق ذلك بطريقة أخرى بسيطة ، مشاركةً مع ما تقدم به الأستاذ @kkhalifa1960 JO_Par.accdb

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

ضع هذا الكود في حدث عند النقر لأي زر داخل النموذج emp . DoCmd.PrintOut acPrintAll

أبدعت معلمنا الفاضل @ابوخليل 🤝 جميل جداً الكود ، صريح جداً ويفي بالغرض 🥰

حيلة جميلة ، أبدعت مهندسنا موسى عمل جميل أستاذ خليفة ، فكرة جميلة لا أريد إحباط المعنويات ، على العكس فالأفكار جميلة وقد جربت فكرة الأستاذ موسى سابقاً ، ولكن في مشروعي الجديد هناك العديد من صيغ الوقت في مكونات النموذج والـ VBA .

السلام عليكم أعضاء وأساتذة ومعلمي منتدانا الرائع حاولت كثيراً وبحثت كثيراً ( ويبدو أنني كنت أبحث على سطح كوكب زحل ) عن إجابة لسؤالي . على سبيل المثال لعرض الوقت في مربع نص ( بعد تحديد قيمة TimerInterval طبعاً ) ، أعتقد أن هناك 3 أشكال لتنسيق الوقت كما يلي :- Txt_Time = Format(Now(), "hh:mm:ss Am/Pm") لعرض الوقت بالتنسيق التالي 07:07:07 Pm = مساءً 07:07:07 Am = صباحاً Txt_Time = Format(Now(), "hh:mm Am/Pm") لعرض الوقت بالتنسيق التالي 07:07 Pm = مساءً 07:07 Am = صباحاً Txt_Time = Format(Now(), "hh:mm:ss") لعرض الوقت بالتنسيق التالي 19:07:07 = مساءً 07:07:07 = صباحاً المطلوب عرض الوقت بتنسيق 12 ساعة دون ظهور AM/PM . يعني بهذا التنسيق :- 07:07:07 = مساءً 07:07:07 = صباحاً فهل يمكن تحقيق ذلك ؟

هو ليس فعلاً السبب ، ولكن قمت باستخدام Maximize عند فتح التقرير ، جرب الدخول باليوزر وأخبرني الجمعية التعاونية.zip

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

هذا يعني 6 مشاركات كان فيها موقع النموذج غير سليم 100% من أصل 9 مشاركات. أشكر لكم سعة صدركم لي ومساهمتكم في الرد . وأرجو منكم بعد التعديل القادم والأخير افادتي بالنتيجة ذاتها 🥰

امممم ، وضحت الفكرة الآن. أعتقد انه عندك النموذج الرئيسي يفتح بوضعية Maximize !! وهذا هو السبب يا صديقي 🤔 على العموم سأحاول فتح الملف على أوفيس 2010 . وإن استطعت ان ترفق لي الملف بتنسيق اوفيس 2003 .

جرب وأخبرني Private Sub BtnImpotData_Click() If IsNull(listBoxWorksheets) Then MsgBox "لم تقم باختيار ورقة العمل من ملف الاكسل", vbCritical, "" Exit Sub Else Call GetWaiting("انتظر لحظة من فضلك .... يتم معالجة البيانات") Dim sheetRange As String Dim strTable As String Dim strPath As String Dim Check30 As Integer strTable = Me.cmb_TQ_Name.Value strPath = Me.txtPath sheetRange = listBoxWorksheets If Check30 = 1 Then DeleteTableSafe strTable Else DoEvents Dim objExc As Object ' late Dim objWbk As Object ' late Dim objWsh As Object ' late 'Set objExc = New Excel.Application ' early Set objExc = CreateObject("Excel.Application") ' late Set objWbk = objExc.workbooks.Open(Me.txtPath) For Each objWsh In objWbk.Worksheets 'Debug.Print objWsh.Name Next DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTable, strPath, True, sheetRange & "$" DoCmd.Close acForm, "frmWaiting" Set objWsh = Nothing objWbk.Close Set objWbk = Nothing objExc.Quit Set objExc = Nothing subFormData.SourceObject = "Table.elemnts 1" subFormData.Visible = True End If End If End Sub

أخي @sief122 لا أعلم ما هي المشكلة عندك ، ولكن شاهد هذا الفيديو 20240416_190811.zip

أشكرك أستاذ @kkhalifa1960 ، على مشاركة الموضوع ، ولكن ليس هدفي تغيير اي اعدادات في دقة الشاشة ، الفكرة باختصار محاولة لجعل النموذج يفتح بموضع محدد باختلاف الأنظمة والدقة ( دقة الشاشة ) على جهاز المستخدم .

جرب هذا التعديل أخي @ahmed draz ، في زر الإستيراد في نموذج الإستيراد . Private Sub BtnImpotData_Click() If IsNull(listBoxWorksheets) Then MsgBox "لم تقم باختيار ورقة العمل من ملف الاكسل", vbCritical, "" Exit Sub Else Call GetWaiting("انتظر لحظة من فضلك .... يتم معالجة البيانات") Dim sheetRange As String Dim strTable As String Dim strPath As String Dim Check30 As Integer strTable = Me.cmb_TQ_Name.Value strPath = Me.txtPath sheetRange = listBoxWorksheets Check30 = Me.Check30.Value If Check30 = 1 Then DeleteTableSafe strTable End If DoEvents Dim objExc As Object ' late Dim objWbk As Object ' late Dim objWsh As Object ' late 'Set objExc = New Excel.Application ' early Set objExc = CreateObject("Excel.Application") ' late Set objWbk = objExc.workbooks.Open(Me.txtPath) For Each objWsh In objWbk.Worksheets 'Debug.Print objWsh.Name Next DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTable, strPath, True, sheetRange & "$" DoCmd.Close acForm, "frmWaiting" Set objWsh = Nothing objWbk.Close Set objWbk = Nothing objExc.Quit Set objExc = Nothing subFormData.SourceObject = "Table.elemnts 1" subFormData.Visible = True End If End Sub وأخبرني بالنتيجة اداة لإستيراد جداول الإكسل و تصديرها.accdb هذا السؤال موجه لأخ @ahmed draz صاحب الموضوع والتطوير على أداة أستاذنا @ابو الآء