Foksh

عمل جميل جداً ، وجزاك الله كل خير على مجهودك .. وتقبل الله طاعاتكم وصيامكم وقيامكم ،، وهنأكم بإفطاركم بهذا الشهر الفضيل .. لي مداخلة بسيطة وهي أن معظم ( 90% ) من مصممي البرامج يتوجهون الى ان تكون الرسائل باللغة العربية ؛ على الأقل ليسهل فهمها للمستخدم وللوصول الى حل المشكلة التي ظهرت له . هل يمكن تنفيذ الفكرة ???

وعليكم السلام ورحمة الله وبركاته ,, المرفق غير سليم ،،

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

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

مشاركة مع الإخوة والأساتذة ، جرب استعلام التوحيد Query1 التالي :- SELECT tip.ID, tip.nam, '2024' AS MissedYear FROM tip WHERE tip.ID NOT IN (SELECT Tshy.id FROM Tshy WHERE Tshy.yearshy = '2024') UNION SELECT tip.ID, tip.nam, '2025' AS MissedYear FROM tip WHERE tip.ID NOT IN (SELECT Tshy.id FROM Tshy WHERE Tshy.yearshy = '2025'); سيعرض لك السنة التي لم يدفع فيها العميل قسطه السنوي .. جرب وأخبرنا بالنتيجة ,, test.accdb

هذا يعني أن السجل 1 ، دفع في 2024,2025 على سبيل المثال ، صحيح ؟؟؟؟ أعتقد ان طريقة بنية الجدول والسجلات ستربك لاحقاً الاستعلام عند كثرة السجلات وزيادة البيانات 😵 !!!!

مشاركة مع أخي الأستاذ @ناقل ، هذه مشاركتي بحيث لو كانت المسافات بداية أو نهاية النص ، وليس فقط بداية النص :- Me.FADD = Trim(Me.FADD)

وباعتقادي ان الحل المقترح من الأستاذ @Moosak ، هو الأنسب لك ولمشكلتك ، بغض النظر عن اتجاه النص ( لا اعتقد انه يمثل مشكلة كبيرة ) الا اذا اردت الإستغناء عن مربعات النص بصورة لكل حقل بحيث تكتب صورة وترفقها في التقرير بدلاً من المربع النصي !!!

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

وها انت قد حصلت عليها 😉

🔆 فكرة لامعة وجميلة فعلاً ، وتخيل انها غابت عن بال من مر من هنا وأولهم العبد الفقير الى الله

طيب ما رأيك بفكرة لم اقم بتأكيد نجاحها ، ولكنها قد تكون بداية الوصول الى حل ،، استخدم الكود التالي في زر ، وشاهد النتيجة على سبيل المثال بحفظ الملف بصيغة PDF ؟؟؟؟ Private Sub Command483_Click() Dim strReport As String Dim strFilePath As String Dim strDBPath As String Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object strReport = "rapt" strDBPath = CurrentProject.Path strFilePath = strDBPath & "\rapt_report.xls" DoCmd.OutputTo acOutputReport, strReport, acFormatXLS, strFilePath, False Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(strFilePath) Set xlSheet = xlBook.Sheets(1) xlSheet.PageSetup.Orientation = 2 xlSheet.PageSetup.Zoom = False xlSheet.PageSetup.FitToPagesWide = 1 xlSheet.PageSetup.FitToPagesTall = False xlSheet.PageSetup.ScaleWithDocHeaderFooter = True xlSheet.PageSetup.PrintQuality = 600 xlBook.PrintOut xlBook.Close False xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub rapt_report.pdf

أحيانا ما يجعل الأمر أشبه بالمستحيل هو التمسك بفكرة وعدم التخلي عنها أو البحث عن طريقة أخرى تؤدي الى حل ,, مقصدي هو قد تكون مشكلتك في التقرير نفسه وليس في فكرة تنقيذ مطلبك !!! حاول البحث عن آلية لتصميم التقرير من جديد بفكرة مختلفة تساعدك في تحقيق طلبك ، فعد الحقول كبير جداً وانت تحاول ضغطها في ورقة A4

التصدير الى PDF يتعامل مع التقرير وكإنه في حالة ( الفتح لعرض الطباعة ) ، أي سيتم تصديره كما هو معروض ، والفكرة التي تبحث عنها اعتقد انها لن تفي بالغرض بهذا الشكل . * وجهة نظر

ما شاء الله عليك ، أبدعت أخي @طاهر اوفيسنا . المتبقي بسيط ان شاء الله ، هل هذا طلبك ؟ BAR_A(5.3.2025).mdb.zip

حال وصولي للكمبيوتر بإذن الله تعالى 😇

الفكرة العامة واضحة أخي الكريم.. أعتقد هناك طريقة افضل ، ولكن دعنا نتفق على آلية جديدة للسير في طريق صحيح .. 1. لا أنصحك باستخدام أسماء مركبة من مقطعين ( يفصل بينها فراغ ) كأسماء الجداول أو الحقول أو الاستعلامات .... إلخ . السبب أنك ستواجه مشكلة كبيرة في كتابة الأكواد والإستدعاء لعنصر داخل الـ VBA ( على سبيل المثال ) . 2. استخدم فكرة جدول العقود والمرتبط بجدولي العملاء والسيارات ( فكرة الجدول الواحد ) 3. كيف تختار في تصميمك اسم الزبون ( العميل ) ؟؟؟ من كمبيوبوكس أم تقوم بكتابة الاسم بشكل يدوي ؟؟ اذا كان من خلال كومبوبوكس فهو حتماً سيكون موجود مسبقاً في جدول العملاء ، صحيح ؟؟ إذا ما الحاجة لادخال البيانات في جدول العملاء (اقتباساً من كلامك ) :- اذاً عدنا للحاجة الى ادخال البيانات في جدول واحد فقط وليس 3 جداول والأمر نفسه ينطبق على جدول السيارات أيضاً ، صحيح !!!!! أتمنى أن أكون قد وُفقت في توضيح فكرتي والتي أعتقد أنها ستوفر عليك الكثير من الجهد و الوقت .

ممتاز .. هل لك ان ترفق ملفك بعد هذه الإضافة المهمة ، واعتقد انه يجب ان لا تتقيد بالقيم الموجودة في الكومبوبوكس Etar كأنها Value list ، والأصح بالنسبة لي هو ان يكون لها جدول مستقل لإضافتها وتحريرها مستقبلاً ( هذه الفكرة إختياري وليس إجباري طبعاً ) . بانتظار ملفك المعدّل

طريقة تعامل اكسيس مع استعلامات الغير قابلة للتحديث قد تكون مختلفة بين الإصدارات القديمة والحديثة , * وجهة نظر

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

لتنفيذ هذه الفكرة ، يمكن اتباع الخطوات التالية :- 1. تحديد مسار حفظ الملفات لكل شعبة داخل مجلد مشترك على الشبكة ، قم بإنشاء مجلد رئيسي مثل \\Server\Documents\Books\ أنشئ داخله مجلدات لكل شعبة ، مثل :- \\Server\Documents\Books\Accounts 'قسم المحاسبة \\Server\Documents\Books\HR 'قسم شؤون الموظفين وأي اقسام أخرى حسب رغبتك طبعاً 2. إضافة جدول لحفظ بيانات الشعب في قاعدة البيانات أنشئ جدولاً جديداً باسم tblDepartments على سبيل المثال ، يحتوي على :- ID (رقم تلقائي) DeptName (اسم الشعبة) FolderPath (مسار مجلد الشعبة في الشبكة) 3. تصميم نموذج لاختيار الشعبة وإرسال الملف أضف نموذجاً جديداً باسم frmSendDocument أضف مربع قائمة منسدلة (ComboBox) مصدره جدول الشعب (tblDepartments) أضف زر إرسال يقوم بنسخ الملف إلى مجلد الشعبة المختارة . 4. الكود التالي لنقل الصورة إلى مجلد الشعبة المختارة عند الضغط على زر الإرسال ، استخدم الكود التالي :- Private Sub btnSend_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSourceFile As String Dim strDestinationFile As String Dim strDeptPath As String ' تحديد قاعدة البيانات Set db = CurrentDb Set rs = db.OpenRecordset("SELECT FolderPath FROM tblDepartments WHERE DeptName='" & Me.cboDepartment & "'", dbOpenSnapshot) ' التحقق من العثور على مسار الشعبة If Not rs.EOF Then strDeptPath = rs!FolderPath strSourceFile = Me.txtFilePath ' مسار الملف الأصلي strDestinationFile = strDeptPath & "\" & Dir(strSourceFile) ' نسخ الملف إلى مجلد الشعبة FileCopy strSourceFile, strDestinationFile MsgBox "تم إرسال الصورة إلى " & Me.cboDepartment, vbInformation Else MsgBox "لم يتم العثور على مسار الشعبة", vbCritical End If rs.Close Set rs = Nothing Set db = Nothing End Sub 5. برنامج الاستقبال في الأجهزة المستهدفة في البرنامج الخاص بكل شعبة ، يمكن عمل نموذج يقوم بفحص المجلد المحدد وعرض الملفات الجديدة . يمكن استخدام كود VBA لإنشاء زر تحديث يقوم بعرض الملفات الواردة تلقائياً . 6. ملاحظات حول الربط الشبكي تأكد أن جميع الأجهزة متصلة بالشبكة المحلية (Switch أو Router) . قم بمشاركة المجلد الرئيسي وإعطاء الصلاحيات المناسبة للمستخدمين . هذا تصور مبدئي للفكرة ، وتختلف آلية التنفيذ حسب طريقة تصميم مشروعك وبرنامجك .

وعليكم السلام ورحمة الله وبركاته .. جرب أخي الكريم ما يلي :- 1- افتح CMD كمسؤول . 2- اكتب الأمر التالي سطراً تلو الآخر .. regsvr32 /u fm20.dll regsvr32 fm20.dll الهدف تحديث أو إعادة تسجيل مكتبات VBA فقط .

وعليكم السلام ورحمة الله وبركاته .. سؤال لولبي ، ما الرابط بين الكومبوبوكس Etar والجداول التي تريد جلب القيم منها ؟؟؟؟

وعليكم السلام ورحمة الله وبركاته.. راجع هذا الموضوع:- https://www.officena.net/ib/topic/19137-تمت-الاجابة-إظهار-التاريخ-الهجري-والميلادي-في-تقرير/#comment-86999

اعتذر منك ، حاولت ولكن محاولاتي لم تنجح للأسف . آملاً أن تجد الحل الذي يحل لك مشكلتك يا صديقي