Foksh

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

ان شاء الله قريباً سيتم ادراج أول نسخة من الإصدار الجديد ( 5 مراحل ) ان شاء الله ، ويهمني رأي من يتابع الفكرة ليست لأنها لعبة ، بل بتوظيف آكسيس فوق ما هو معهود عليه من قدرات ويسعدني ردك مهندس عمر

في التحديث الجديد ، تم اعتماد نفس نمط المتاهة ولكن مع تغيير وتحديث المستوى من 1 - 30 ، حيث سيكون في كل مستوى متقدم لغز جديد يختلف عن السابق وبتصاعد وتيرة التحدي من السهل الى الصعب في آخر مستوى ( المستوى 30 ) . جميع التعديلات في نمط المتاهة من تعديلي وتصميمي وهذا شكل التصميم الذي تم اعتماده تقريباً ؛ ما لم يطرأ أي تحديث للأفضل .

مرفق ملف للإصدارات الـ 32 Haze Game (32 Bit).zip

معك حق في هذه النقطة ( لكن حالياً انا عندي النظام 64 ، ولكن ثق تماماً أني سأرفق لك ولأصحاب الإصدارات الـ 32 بت نسخة مخصصة ) ، والهدف هو ليس التقييم باإعداب وإنما للملاحظات والتطويرات ليس أكثر . أشكرك على الكلام اللطيف صديقي المهندس عمر .. تمام الحمد لله ، مع العلم ان هذه النسخة فقط بدائية وقيد التطوير بنظام أجمل ومراحل تصل إلى 30 مرحلة ..

تفضل يا صديقي ,, التعديل على جميع الجمل الشرطية في التقرير Option Compare Database Private Sub Report_Open(Cancel As Integer) If Forms!form1.Check1 = False And Forms!form1.Check2 = False Then MsgBox "NoChose" DoCmd.CancelEvent ElseIf Forms!form1.Check1 = True And Forms!form1.Check2 = False Then Me.date2.Width = 0 ElseIf Forms!form1.Check2 = True And Forms!form1.Check1 = False Then Me.date1.Width = 0 End If End Sub Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer) If Forms!form1.Check1 = True And Forms!form1.Check2 = True Then Me.R.Value = Me.AccessTotalsdate1 + Me.AccessTotalsdate2 ElseIf Forms!form1.Check1 = True And Forms!form1.Check2 = False Then Me.R.Value = Me.AccessTotalsdate1 ElseIf Forms!form1.Check2 = True And Forms!form1.Check1 = False Then Me.R.Value = Me.AccessTotalsdate2 End If End Sub 2.accdb

من خلال الجملة الشرطية تستطيع تنفيذها يا صديقي 🤗

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) هذه المرة دعوة لتجربة لعبة المتاهة Maze لأول مرة من خلال آكسيس ميزات اللعبة :- التحكم الكامل من خلال الأسهم في لوحة المفاتيح . تجميع النقاط كلما التهمت الشخصية عدداً أكبر من ( ) . تخسر إذا لامست هذا الكائن في اللعبة ( ) عند طلب المساعدة باستخدام ( ) فإنه سيتم خصم 10 نقاط من رصيد النقاط التي قمت بتجميعها . اللعبة في إصدارها الأول حالياً وسيكون قريباً الكثير من المستويات في اللعب ، وهذه فقط دعوة لتجربتها وإفادتي بآرائكم حول تطويرها وتحديثها وأترككم مع ملف التحميل : Maze Game.zip

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

وعليكم السلام ورحمة الله وبركاته ،، استخدم الكود التالي لتقسيم التاريخ الحالي وتوزيعه الى مربعات النص :- 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 فأعتقد أنه قد يختلف عما يدور في خيالك وله ضبط خاص .