Foksh

بالعكس أستاذنا الغالي ، يشرفنا ردكم و وجودكم . واشتقنا لمشاركاتكم ومداخلاتكم التي منها نستفيد ونتعلم

وعليكم السلام ورحمة الله وبركاته ،، استخدم الكود التالي لتقسيم التاريخ الحالي وتوزيعه الى مربعات النص :- Private Sub oktxt_Click() Me.yn.Value = Year(Date) Me.mn.Value = Month(Date) Me.dn.Value = Day(Date) Me.mt.Value = Format(Date, "mmmm") Me.dt.Value = Format(Date, "dddd") End Sub ملفك بعد التعديل : time.accdb

لا يحتوي على العدد 5 ضمن منزلة محددة كما هو في أول الموضوع ؟ أم في أي منزلة !!!!!!! واذا كان اسم النموذج Open فهذا غير منطقي لأن الاسم من الأسماء المحجوزة في آكسيس ! ! على كل حال ارفق ملف أخي الكريم ..

اخي العزيز @Abdelaziz Osman ، انت عضو مميز ما شاء الله عليك ، وأكيد لا حاجة لتذكيرك بالشرح الوافي لمفهومك الذي تريد توصيله كمعلومة اعطنا امثلة على كلمة يحتوي التي تريدها كقيمة . كمثال ( 50000000001 تحتوي على الرقم الذي ذكرته و 5000000000000 ايضاً تحتوي على الرقم الذي ذكرته ) شكراً للتوضيح

محاولة متواضعة في المرفق بعد التعديل ، تم الغاء التخطيط Layout للعناصر ( Name , id1 ) وابقائها فقط على ( Date1,Date2 ) ، وإضافة سطر يجعل عرض العمود = 0 عند الإخفاء . 1.accdb

أخي الكريم ، أولاً أهلا وسهلا بك معنا في عالمنا الصغير المتواضع .. ثانياً وبما أنك جديد معنا فمن حقك لفت انتباهك لما يلي :- ضرورة إرفاق ملف مع الطلب ، ولا تنتظر أحد يطلبه منك . ( اقرأ قواعد المشاركة في المنتدى ) التفسير والإيضاح للمطلوب بشكل وافي وكافي وشافي ( ولا تبخل على نفسك بالشرح ) حاول الابتعاد عن الأسماء التي تكون باللغة العربية ( للحقول والجداول والنماذج ومكوناتها والإستعلامات ..... إلخ ) ، أو حتى أرقام ورموز أو مسميات محجوزة مثل ( Name , Date , .... إلخ ) هناك الكثير من الإخواة والأساتذة المتواجدين هنا ؛ ولكن هذا لا يعني أن الجميع قد يكون متفرغاً بأي وقت . استخدم كلمات مثل ( للرفع ، للمتابعة ، Up ... إلخ ) كي يبقى الموضوع متابعاً ،لا ان تغيب عنه اسبوعين وتعود له لتلقى الإجابة التي تريدها جاهزة . خذ كلامي بسعة صدر ورحابة ( وثق تماماً أن ما ذكرته لك هو لمصلحتك حتى تتخطى الكثير من العقبات والمشاكل لاحقاً أثناء تصميمك لبرامجك ومشاريعك )

مشاركة مع أخي الكريم @ازهر عبد العزيز .. Private Sub dev_AfterUpdate() If Me.dev < 5000000000 Then Me.Undo End If End Sub

تفضل يا صديقي ،، التعديل الجديد :- Private Sub ExportReport(formatType As String, userName As String) On Error Resume Next Dim fileName As String Select Case formatType Case "PDF" fileName = userName & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh nn AM/PM") & ".pdf" Case "RTF" fileName = userName & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh nn AM/PM") & ".doc" Case "Excel" fileName = userName & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh nn AM/PM") & ".xls" End Select Dim filePath As String With Application.FileDialog(2) .Title = "اختر موقع الحفظ" .AllowMultiSelect = False .InitialFileName = fileName If .Show = -1 Then filePath = .SelectedItems(1) Else Exit Sub End If End With Dim outputFormat As Variant Select Case formatType Case "PDF" outputFormat = acFormatPDF Case "RTF" outputFormat = acFormatRTF Case "Excel" outputFormat = acFormatXLS End Select DoCmd.OutputTo acOutputReport, namerpts, outputFormat, filePath, True, , , acExportQualityPrint End Sub الملف بعد التعديل :- ( شريط طباعة.accdb )

قمت بتغيير النهج عن السابق ، ويبدو انني قد اغفلت عن تجربة زري الـ Pdf و الـ Rtf . 🤦 حالما اصل المنزل سأقوم بالتعديل إن شاء الله

تفضل ، هذا تعديل سريع ، جربه وأخبرني بالنتيجة :- Private Sub ExportReport(formatType As String, userName As String) On Error Resume Next Dim fileName As String fileName = userName & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh nn AM/PM") & IIf(formatType = "PDF", ".pdf", IIf(formatType = "Excel", ".xls", ".doc")) Dim filePath As String With Application.FileDialog(2) .Title = "اختر موقع الحفظ" .AllowMultiSelect = False .InitialFileName = fileName If .Show = -1 Then filePath = .SelectedItems(1) Else Exit Sub End If End With Dim outputFormat As Integer Select Case formatType Case "PDF" outputFormat = acFormatPDF Case "RTF" outputFormat = acFormatRTF Case "Excel" outputFormat = acFormatXLSX Case Else Exit Sub End Select If outputFormat = acFormatXLSX Then DoCmd.OutputTo acOutputReport, namerpts, outputFormat, filePath, True, , , acExportQualityPrint Else DoCmd.OutputTo acOutputReport, namerpts, outputFormat, filePath, True, , , acExportQualityPrint End If End Sub وعليه فأن الإستدعاء لزر الحفظ Excel سيكون على الشكل التالي :- ExportReport "Excel", Me.Namea.Value الملف بعد الإضافة والتعديل ( شريط طباعة.accdb )

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

استبدل الدالة السابقة بالتالي :- Private Sub ExportReport(formatType As String, userName As String) On Error Resume Next Dim fileName As String fileName = userName & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh nn AM/PM") & IIf(formatType = "PDF", ".pdf", ".doc") Dim filePath As String With Application.FileDialog(2) .Title = "اختر موقع الحفظ" .AllowMultiSelect = False .InitialFileName = fileName If .Show = -1 Then filePath = .SelectedItems(1) Else Exit Sub End If End With DoCmd.OutputTo acOutputReport, namerpts, IIf(formatType = "PDF", acFormatPDF, acFormatRTF), filePath, True, , , acExportQualityPrint End Sub أما فيما يتعلق بالتصدير كملف Excel فأعتقد أنه قد يختلف عما يدور في خيالك وله ضبط خاص .

معلمي القدير وأستاذنا الجليل @ابوخليل :- في الدالة Now ، لن ينجح الأمر والسبب باعتقادي هو احتواء التنسيق على حروف غير مسموح بها كإسم لملف أو مجلد = " : " وهو النقطتين هذا رأيي ما لم يكن هناك سبب آخر ، حيث أنه في التنسيق المصاحب للدالة Now في الأكواد تم ضبط التنسيق بإزالة النقطتين . لم انتبه لرد الأستاذ @محمد احمد لطفى ، فلم يكن الرد موجوداً قبل ردي واعتقد أنني كنت في الصفحة مسبقاً ولم أعمل تحديث

أعتقد أنه يمكنك ذلك ، من خلال الكود التالي ، قم بالتجربة والرجوع بالنتيجة ( لأنني لا استوعب فكرة أم تكون السنة 360 ، أو اعتبار أن جميع الشهور 30 يوم ) Function DateDiff360(date1 As Date, date2 As Date) As Long Dim monthsDiff As Long monthsDiff = DateDiff("m", date1, date2) Dim daysDiff As Long daysDiff = DateDiff("d", DateAdd("m", monthsDiff, date1), date2) DateDiff360 = monthsDiff * 30 + daysDiff End Function ويتم الإستدعاء كالتالي :- Dim daysDifference As Long daysDifference = DateDiff360([Date1], [Date2])

ومشاركة مع الأستاذ محمد لطفي ، قمت بإنشاء دالة واحدة يتم استدعائها في اي من الزرين لتنفيذ المهمة حسب الزر . Private Sub أمر17_Click() ExportReport "PDF", Me.Namea.Value End Sub Private Sub أمر18_Click() ExportReport "RTF", Me.Namea.Value End Sub Private Sub ExportReport(formatType As String, userName As String) On Error Resume Next Dim fileName As String fileName = userName & " - " & Format(Now(), "yyyy-mm-dd") & " " & Format(Now(), "hh nn AM/PM") & IIf(formatType = "PDF", ".pdf", ".doc") Dim filePath As String filePath = CurrentProject.Path & "\" & fileName DoCmd.OutputTo acOutputReport, namerpts, IIf(formatType = "PDF", acFormatPDF, acFormatRTF), filePath, True, , , acExportQualityPrint End Sub ملفك بعد التعديل ( شريط طباعة.accdb )

أنصحك بفتح موضوع مستقل لطلبك حتى تلقى الإجابة المطلوبة

وعليكم السلام ورحمة الله وبركاته ،، فقط استبدل مصدر سجلات النموذج الفرعي ، بالإستعلام التالي ( SQL ) :- SELECT s10.g10s1, s10.g1s1, s10.g1s29, s10.g1s30 FROM s10 WHERE (((s10.g1s1)=[Forms]![copy2]![g1s1]) AND ((s10.g1s30)=(SELECT MAX(g1s30) FROM s10 WHERE g1s1 = [Forms]![copy2]![g1s1] ))); حيث تم اضافة شرطين للإستعلام دون تغيير أو تعديل أي شيء في تصميمك ، ولكني أنصحك بالإبتعاد عن المسميات المحجوزة في آكسيس مثل Copy لإنه اسم إجراء في آكسيس ؛ وهذا سيلافيك حدوث أخطاء ومشاكل في المستقبل . ملفك بعد التعديل : ( copy.accdb )

اعتذر اختي الكريمه على عدم الرد ، بسبب العمل من جهة ، ومن جهة أخرى عند قراءة الكود لاحظت تكرار الحلقة For A = 1 To 1 وأعتقد انك لست بحاجة لتكرارها وقد يكون هناك إمكانية لتنفيذ الحلقه التكرارية مرة واحدة على ما أعتقد. كل الاحترام والتقدير لشخصك الكريم 😇

تصديقاً وتأكيداً لكلامك أستاذي الفاضل هو فعلاً في إحدة تجاربي عثرت على هذا الاسم prscs ، ولم يخطر في بالي أنه هو 🥺 فتجاهلته وافترضت انه الفاصل بين اسماء القوائم الرئيسية 🤦 ولكن فعلاً معلمنا قدها ، وجاب الذيب من ذيله 🙏

ارفق ملف اخي الكريم

- ما المقصود بالربط من قاعدة 1 الى آخر قاعدة 36 ؟؟؟؟؟؟ - ما علاقة Dlookup البحث عن سجل بالربط !!! - عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى اخر قاعدة !!!! حاولت الربط بين الأفكار ولم استدل على المعنى والمطلوب .

إن كنت في البداية قد فهمت المطلوب ، فالآن للأسف لم افهم

يعني على فرضاً ان لديك 10 قواعد بيانات ( واحدة منها الرئيسية ، والـ 9 الباقيات هن قواعد بيانات الجداول ) ، وتريدين استخدام الدالة DLookup للبحث عن سجل محدد داخل جدول محدد ، بحيث يقوم الكود ( الذي تريدينه ) بالبحث عن هذا السجل ولكن داخل جميع قواعد البيانات الخلفية ( الخاصة بالجداول ) !!!!!!!!!!!!!!!!!! أتمنى أن لا يكون هو المقصود