Lamyaa

وهذا مثالWIn+M_Lamyaa.accdb

في البدية قم بالتصريح عن المكتبات التالية في بداية النموذج Option Explicit Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const KEYEVENTF_KEYUP = &H2 وفي كود الزر ضع : 'مثلا أنت تريد Win+M keybd_event 91, 0, 0, 0 keybd_event 77, 0, 0, 0 DoEvents keybd_event 91, 0, KEYEVENTF_KEYUP, 0 keybd_event 77, 0, KEYEVENTF_KEYUP, 0 DoEvents

بالنسبة إلى زر الويندوز KeyCode = 91

السلام عليكم ورحمة الله وبركاته ليعمل البرنامج المكتبي من خلال الإنترنت فأنت بحاجة إلى التحويل إلى قواعد بيانات كلاود وهذه تكلفتها عالية لا يقبل بها العميل في الغالب. في حال كان هناك أكثر من فرع فيمكن أن تتم عملية مزامنة بين الفروع والمقر الرئيسي أو ما يسمى في بعض البرامج العالمية (Pulling) وذلك من خلال تسجيل عمليات المبيعات و المشتريات والحركات الأخرى في جداول إضافية يتم مزامنتها من السيرفر الرئيسي (الجهاز الذي تم تثبيت النسخة الأساسية). وللمعلومية في كثير من الأحيان يكون MSSQL Express كافيا. أعتقد أن طريقة ربطك بين النماذج والجداول هي التي تحدد سرعة الاتصال .. طبعا أتكلم عن الشبكة الداخلية أما الإنترنت فالتحول حسب وجهة نظري إلى الويب بيس (سواء باستخدام تقتيات .Net أو PHP) وسيعمل حينها برنامجك من المتصفح وهذا الحل أفضل وأرخص الحلول أما عن سؤالك الثاني: نعم سيحتاج كل فرع أن تثبت نسخة واحدة من سيرفر MSSQL على أحد الأجهزة والبقية يتم ربطهم به. قارن بين قواعد البيانات الأخرى فقد تجد ضالتك في نوع آخر من القواعد مثل SQLite يمكنك الاطلاع على مقارنة بين مشغلات قواعد البيانات المختلفة http://erikej.blogspot.com/2011/01/comparison-of-sql-server-compact-4-and.html

قال أنه قام بربط MySQL بالأكسيس في الويندوز بنجاح ولكنه لم يستطع ربط الأكسيس بقاعدة MySQL في الماك شرح اليوتيوب الذي وضعته هو إلى MSSQL وليس MySQL

برنامج قواعد البيانات ميكروسوفت أكسيس لا يعمل على الماك ! قد يكون السؤال غير واضح

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

السلام عليكم ورحمة الله وبركاته أواجه مشكلة في تطبيق فلتر متعدد المعايير، النتيجة تكون غير صحيحة (عدد السجلات المطابقة أقل من الموجود) هذه صورة توضيحية: وهذه هو الكود الذي استخدمه للفلترة: Private Sub cmdFilter_Click() DoCmd.ApplyFilter "", "[ID] Like '*" & [txtID] & "*'" & _ " AND [SName] Like '*" & [txtSName] & "*'" & _ " AND [Gender] Like '*" & [txtGender] & "*'" & _ " AND [A1] Like '*" & [txtA1] & "*'" & _ " AND [A2] Like '*" & [txtA2] & "*'" & _ " AND [A3] Like '*" & [txtA3] & "*'" & _ " AND [A4] Like '*" & [txtA4] & "*'" & _ " AND [A5] Like '*" & [txtA5] & "*'" & _ " AND [A6] Like '*" & [txtA6] & "*'" & _ " AND [A7] Like '*" & [txtA7] & "*'" & _ " AND [A8] Like '*" & [txtA8] & "*'" & _ " AND [A9] Like '*" & [txtA9] & "*'" End Sub مثلا يوجد لدي خمسة سجلات لديها في الحقل A3 قيمة A حينما اضغط زر تطبيق الفلتر يظهر لي سجلين فقط ، حتى لو جعلت جميع الحقول فارغة وطبقت الفلترة لن يظهر إلا سجلين فقط ونفس الشيء بالنسبة إلى الاستعلام لا يظهر لي كل النتائج يظهر لي النتائج للسجلات التي تم تدوين قيم لجميع الحقول فيها المطلوب المساعدة في تعديل كود الفلتر والاستعلام ليظهر النتائج بشكل صحيح وفق المدخلات Filters.accdb

الفكرة جميلة وجديدة علي.. ولكن لاحظت أن هناك صفحة فارغة بين كل تقرير!

عن طريق الشل أنا أستخدمه بهذه الطريقة: Dim wsh As Object Dim str2PDF As String Set wsh = VBA.CreateObject("WScript.Shell") Dim waitOnReturn As Boolean: waitOnReturn = True Dim windowStyle As Integer: windowStyle = 1 str2PDF = "cmd.exe /C 2PDF.exe -src " & Chr$(34) & " C:\Temp4\*.pdf" & Chr$(34) & " -dst " & Chr$(34) & "c:\temp5" & Chr$(34) & " -pdf multipage:append combine:" & Chr$(34) & "اسم الملف التجميعي.pdf" & Chr$(34) & " , windowStyle, waitOnReturn" txtCMD = str2PDF wsh.Run str2PDF بحيث الملفات التي أود دمجها تم حفظها مسبقا في مجلد c:\temp4 ويتم حفظ الملف الناتج في مجلد c:\temp5

أنا استخدم هذه البرنامج لدمج التقارير عن طريق سطر الأوامر بعد التصدير https://www.cmd2pdf.com/

الصعايدة يفوزون قوي قوي ما شاء الله عليكم حقيقة أنا ممتنة للجميع على مشاركاتهم في الموضوع وإثراءه بهذا الشكل الرائع فلكم مني أطيب المنى تعلمت منكم الكثير فبارك الله فيكم 🎉

ما شاء الله يا أبا جودي .. كعادتك تبلور الأفكار وتخرج بالخلاصة .. بارك الله فيك ونفع بك 🌹 😁😂 سرني تواجدكم فكرة رائعة وهي تؤدي المطلوب بشكل رائه .. فلك مني جزيل الشكر والتقدير 🌹

الفكرة تعمل بشكل ممتاز .. جزيل الشكر والتقدير على مجهودك أستاذي الفاضل الطريقة التي ذكرتها أفادتني كثيرا .. بسيطة وعملية .. لك جزيل الشكر والتقدير 🌹

الفكرة أستاذي ليست في جعل المتغير عاما أو خاصاً .. الفكرة كيف أمرر هذا المتغير على هذا السطر البرمجي: ففي الحالة العادية يتم كتابة اسم التقرير مباشرة Reports![rptStudents].Report.RecordSource = "qryStudents2" ولكن في حال كان اسم التقرير متغيير بناء على تغير المعطيات فكيف يمكن تمرير هذا المتغير على السطر التالي: Reports![X].Report.RecordSource = "qryStudents2"