Foksh

هذا يعني 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

جرب هذا المرفق :- asd.accdb

ليس لدي معلومة مفيدة في خصوص الـ SQL Server

ولك يالمثل أخي @ahmed draz

اعتذر ، تم تعديل المشاركة السابقة والملف المرفق فيها .

كلاهما

تفضل المشروع الجديد 1.zip تم تعديل المرفق ، كنت قد ارفقت الملف الأصلي وليس الملف الذي تم التعديل عليه

أعانك الله أخي العزيز .. هذا ملفك الذي ارسلته انت . يعني المفروض انها جداولك

تفضل يا صديقي ، واتمنى ان اكون فهمت صح المشروع الجديد 1.zip

تحديثات جميلة ، الله يعطيك العافية على مجهودك ولا يهمك ، إن شاء الله حال وصولي للعمل سأتابع معك 🤗

ما شاء الله عليك 🤗 أبدعت ، ويستحق أن تختار إجابتك كأفضل إجابة 🥰

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

😬 اعتذر لتأخري بالرد ، وصدقني لو قلت لك نسيت 😵 بإذن الله غداً بداية الدوام بعد اجازة العيد سأواصل متابعتي