نجوم المشاركات

النموذج جيد ، ولكنه يشترط تكبير النموذج Maximize بحجم الشاشة لكي يعمل .. وأنا بحثت في مكتبتي فوجدت مثال قديم يقوم بتحجيم جميع العناصر حتى عند تغيير حجم النموذج 🙂 وطبعا للأسف لم أخزن اسم صاحب المثال .. ولكن هاكموه كما وجدته : ملاءمة عناصر النموذج حسب حجم النموذج ☺.mdb

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

تفضل استاذ @ابو هاله النبلسي المرفق . ووافني بالرد . DDNabulsi.rar

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

املأ الجداول بأكثر من موظف وأنا بسوي التقرير .

وعليكم السلام : الطريقة من خطوتين : الخطوة الأولى : أن ترسل نموذج من الملف لأنه لا يمكن التخمين على شيء غير موجود لا بد أن نعرف في أي عمود تتواجد الأسماء وهل تم إدخالها يدويا أم عن طريق قائمة منسدلة أم ... أم , والمبالغ في أي عمود ؟؟؟؟؟؟ كل هذه تساؤلات لا يمكن العمل معها الخطوة الثانية : إذا تم إزالة كل المشاكل سيتم بناء كود يحسب مطلوبك تقبل تحياتي , و مبارك عليك الشهر (رمضان1446هـ)

السلام عليكم شكرا جزيلا اخي الكريم على التوضيح بالفعل فهمت ما تم تغييره بالسطر من خلال شرحكم الوافي بارك الله بجهودكم يا اخي الكريم

وعليكم السلام اخي الكريم رمضان كريم عليكم وعلينا جميعا وكل عام وانتم بالف خير واعاده الله علينا جميعا بالبركة واليسر شكرا جزيلا اخي الفاضل وبارك الله بك هذا هو المطلوب

تمام 100%

انشاء الله غدا بعد الافطار .... حاضرين.⚘️

خلاصة القول عن ما تفضل به الأستاذ @أبوبسمله : الجزء المسؤول عن حجم QR Code غير موجود في الكود ، ولكن يمكن التحكم به بإضافة scale=X حيث X هو معامل التكبير المناسب لحاجتك . حيث scale=2 يزيد حجم QR Code ، ويمكنك تغيير الرقم حسب الحاجة .

الشاشة 27 .... تمام 👍

الشاشة 32 100% 1680x1050

الاخ احمد / انا عندى الشاشة مقاس 19 ظهر عندى النموذج مصبوط ملائم لحجم الشاشة نشكرك وجزاك الله خير ـ كما نشكر الاخ الاستاذ / صالح حمادى على هذه المعلومة كما اتمنى ان تطبق على جميع مقاسات الشاشات من غير اى خطأ جزاكم الله خيرا

في هذه الحالة ، سنقوم باستعمال مصفوفة بسيطة على سبيل المثال لتحديد الإستعلامات التي موجودة لديك ، كالتالي :- Sub ExportQueriesToExcel() Dim xlApp As Object Dim xlWorkbook As Object Dim xlWorksheet As Object Dim db As DAO.Database Dim rs As DAO.Recordset Dim queryNames As Variant Dim sheetIndex As Integer Dim filePath As String Dim colIndex As Integer Dim rowIndex As Integer queryNames = Array("Qallmsr2", "Qallshm2", "Qallshy2", "Qalltipr2") filePath = Application.CurrentProject.Path & "\تقرير_الاكسيل.xlsx" Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlWorkbook = xlApp.Workbooks.Add Set db = CurrentDb sheetIndex = 1 For Each queryName In queryNames Set rs = db.OpenRecordset(queryName, dbOpenSnapshot) If sheetIndex <= xlWorkbook.Sheets.Count Then Set xlWorksheet = xlWorkbook.Sheets(sheetIndex) Else Set xlWorksheet = xlWorkbook.Sheets.Add End If xlWorksheet.Name = queryName colIndex = 1 For Each fld In rs.Fields xlWorksheet.Cells(1, colIndex).Value = fld.Name xlWorksheet.Cells(1, colIndex).Font.Bold = True colIndex = colIndex + 1 Next fld rowIndex = 2 Do While Not rs.EOF colIndex = 1 For Each fld In rs.Fields xlWorksheet.Cells(rowIndex, colIndex).Value = fld.Value colIndex = colIndex + 1 Next fld rowIndex = rowIndex + 1 rs.MoveNext Loop rs.Close sheetIndex = sheetIndex + 1 Next queryName xlWorkbook.SaveAs filePath xlWorkbook.Close xlApp.Quit Set rs = Nothing Set db = Nothing Set xlWorksheet = Nothing Set xlWorkbook = Nothing Set xlApp = Nothing MsgBox "تم تصدير البيانات بنجاح", vbInformation + vbMsgBoxRight, "نجاح العملية" End Sub test.accdb

حسب طلب صاحب موضوع لديه 1000 سجل مراد تعديله و لكن اذا اراد تشغيل استعلام بين فترات على نفس جدول يمكن يستسني قيم معدلة مسبقا و تعديل الاستعلام الى: UPDATE TAEBOL_TEST SET TAEBOL_TEST.ITEM_PRES_FK = IIf([ITEM_PRES_FK]<1 And [ITEM_PRES_FK] Like "*.*",[ITEM_PRES_FK]*(1 & String(Len([ITEM_PRES_FK]) -InStr([ITEM_PRES_FK],"."),"0")),[ITEM_PRES_FK]), TAEBOL_TEST.NASBA_2 = IIf([NASBA_2] Like "*%*" Or Len(Nz([NASBA_2]))=0,[NASBA_2],[NASBA_2] & "%");