محمد أبوعبدالله

السلام عليكم يمكن اضافة حقل في الجدول باسم XDate مثلا نوعه تاريخ ثم في الاستعلام نضع المعيار التالي Between [forms]![frm1]![XDate1] And [forms]![frm1]![XDate2] سنوي.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم 66.rar تحياتي

وعليكم السلام ورحمة الله وبركاته زر التصدير غير السطر التالي DoCmd.OutputTo acOutputTable, "جدول الموظفين", acFormatXLSX, CurrentProject.Path & "\جدول الموظفين.xlsx", True الى DoCmd.OutputTo acOutputQuery, "الموظف", acFormatXLSX, CurrentProject.Path & "\جدول الموظفين.xlsx", True وزر الاستيراد من ImportFileName = CurrentProject.Path & "\جدول الموظفين" & ".xlsx" الى ImportFileName = CurrentProject.Path & "\الموظف" & ".xlsx" استراد وتصدير.rar تحياتي

تفضل اخي الكريم 99 الشيكات.rar تحياتي

اميييييييييييين وجزاك الله عني خيرا اخي الكريم وكل عام وانتم بخير تحياتي

وجزاكم الله خيرا وانت بخير دائما اخي الكريم تحياتي

تفضل اخي الكريم الرياضة.rar تحياتي

وضح بارك الله فيك ما هو المطلوب تحياتي

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

وعليكم السلام ورحمة الله وبركاته تقبل الله منا ومنكم اخي الكريم 1 - المرفق غير موجود به النموذج الذي صممته لك 2 - وضعت اسفل الكود والصحيح ان يكون اعلاه On Error Resume Next 3 - اسماء المحلدات المرفقة غير المسار الموجود في الكود فمثلاً مجلد "شيكات لم تم الصرف" يحتوي على مسافتين بينما المسار الموجود في الكود مسافة واحدة "شيكات لم تم الصرف" New folder.rar تحياتي

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

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

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

السلام عليكم ان كنت تقصد ملفات يضعها المبرمج لمعرفة رقم الهارد فهذا خطأ انما هي مكتبات داخل ويندوز يتم التعامل معها من داخل البرنامج مثال لمعرفة رقم السريال لمحرك الاقراص C Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") MsgBox obj_Drive.SerialNumber هذا الرقم يتغيير عند كل فورمات ايضا يمكن التعمل مع رقم الهارد الحقيقي الذي لا يتغير بالفورمات Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next في النهاية المستخدم لا يستطيع تغيير رقم السريال الخاص بأي قطعة الا بمساعدة برامج خارجية قد تؤدي الى تلف القطعة نفسها تحياتي

لا توجد مشكلة بدون حل والحمد لله واليك مقترحات 1 - تصميم الصورتان او البحث عن مصمم 2- العمل بنصيحة اخونا @عبد اللطيف سلوم والانتقال الى اوفيس 2010 واعلى 3 - تغيير الفكرة بفكرة اخرى بديلة تحياتي

تفضل اخي الكريم الحل موجود في الموضوع التالي تحياتي

اخي بلال كما ذكرت لك ليست المسألة متعلقة بالالوان بل هما صورتان لاحظ اختفاء النجمة الحل تصميم صورتين متشابهتين مختلفتين في الالوان واجعل واحدة ثابتة والثانية تظهر عند مرور الماوس تحياتي

اين المرفق على كل حال صمم استعلام به هذه الحقلين وضع الشروط التي تريدها ثم قم بتصدير الاستعلام DoCmd.OutputTo acOutputQuery, "qry1", acFormatXLSX, , True تحياتي

تفضل اخي الكريم 9مشروع الشيكات.rar تحياتي

بالاضافة الى ما تفضل به الاخوة ولهم الشكر لو لاحظت الفيديو ستجد انهما صورتين فوق بعض الاولى هي الثابتة والاخرى تظهر عند تحريك الماوس عليها فانت تحتاج الى صورتين انظر الى هذه المحاولة تحويل.rar تحياتي

ضع الكود التالي اعلى الكود الاول on error resume next والافضل كما ذكرت لك ان تضع الكود في زر امر في نموذج شىء اخر فما الفائدة من وضع زر معاينة داخل المعاينة نفسها والله اعلم تحياتي

اخي الكريم هذا الكود الافضل ان يوضع في زر امر في نموذج ولا يوضع في التقرير تفضل اخي الكريم DoCmd.OutputTo acOutputReport, "تقرير تفصيلى شيكات لم تم الصرف", acFormatPDF, "E:\" & "تقرير الشيكات" & "\" & "تقرير1" & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & ".pdf", False مع مراعاة وجود مجلد باسم "تقرير الشيكات" وبداخله مجلد باسم "تقريرا" E:\تقرير الشيكات\تقرير1 تحياتي 9مشروع الشيكات.rar

تفضل اخي الكريم DoCmd.OutputTo acOutputReport, "الشيطك, acFormatPDF, "E:\" & "تقرير الشيكات" & "\" & "01" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & ".pdf", False تحياتي

قم بتعديل الكود الى التالي yyy = DLookup("[chk]", "[QUSERS]", "[user_pass] ='" & Me.user & "'") If yyy = False Then MsgBox "غير مسموح بالدخول" Exit Sub Else الصلاحيات (2).rar تحياتي