Foksh

ومشاركة مع أساتذتي ، لتقريب الأرقام لأقرب عدد صحيح إذا كان الجزء الكسري = أو أكبر أو أصغر من 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 صاحب الموضوع والتطوير على أداة أستاذنا @ابو الآء

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

اذا مشكلتك اتحلت كما ذكر الأستاذ @عبد اللطيف سلوم ، افتح المشاركه السابقة وراجع التقرير . الجمعية التعاونية.zip

بدايةً الموضوع ليس بالسهولة التي تتوقعها أخي @ahmed draz . بالإضافة إلى أن الفكرة قد تسبب تكرار للبيانات في الجداول داخل اكسيس . سأحاول غداً إن شاء الله المحاولة 😅

الملف اشتغل معايا على إصدار 2016 بشكل طبيعي 🧐 على العموم:- قمت بإنشاء استعلام جديد مبني على الاستعلام الموجود للبحث ، وجعلت الحقل Id الشرط فيه يكون الحقل Id في النموذج الفرعي لنموذج البحث. ثم انشىء تقريرك واجعل الاستعلام الجديد هو مصدر بيانات هذا التقرير. ثم في مربع نص Id في النموذج الفرعي لنموذج البحث انشىء حدث عند النقر بفتح التقرير فقط. جرب وأخبرني بالنتيجة 😊

ولا يهمك معلمي 🤗 💐

السلام عليكم أخواني وأساتذتي الكرام ، أقوم بعمل تجربة لمعرفة المعادلة الصحيحة لجعل النموذج يفتح في موضع معين . المطلوب من سيادتكم ارفاق لقطة شاشة فقط بالمكان الذي ذهب النموذج إليه . Test.accdb ولكم جزيل الشكر وبداية مني سأرفق صورة

تفضل أخي سيف ، هذه طريقة خطرت في بالي ، جرب وأخبرني بالنتيجة الجمعية التعاونية.accdb