رولي

السلام عليكم يا أحباب مرفق ملف لعمل فترة تجريبية (ليس من صنعي)، يعتمد على الرجيستري تقريبًا حتى لا يتم التلاعب بتاريخ الجهاز. أريد شرحًا لطريقة عمل هذا الكود، ما الذي يحدث بالضبط عند استخدامه؟ كما أرجو شرح الكود سطرًا سطرًا حتى نفهمه، ولكم جزيل الشكر. وهذا هو الكود أيضًا: Option Compare Database Dim trial As Date Dim b As Date ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ Private Sub Form_Open(Cancel As Integer) trial = GetSetting("aa", "bb", "trial", Nz(trial)) If trial = Empty Then SaveSetting "aa", "bb", "trial", Date End If trial = GetSetting("aa", "bb", "trial", Nz(trial)) If Date < trial Then MsgBox "قم بضبط تاريخ جهاز الكمبيوتر", vbCritical Else b = trial + 60 ' 60 يوم مدة تجريبية If Date > b Then MsgBox "انتهت الفترة التجريبية؛ الرجاء الاتصال بالمصمم", vbInformation DoCmd.OpenForm"المصمم" Else MsgBox "نسخة تجريبية؛ بقي لديك " & b - Date & " يوم" End If End If End Sub فترة تجريبية - رولي.accdb

الكود دا بيتحط فين في الفورم؟

عايز اعمل (زر أو ما شابه)، لما نعلم عليه يلغي تشغيل الأصوات؛ علشان لو العميل عايز يكتم الصوت.

بخصوص الاكواد ، فهذه يمكنك حمايتها في اكسيس بحفظ الملف بامتداد accde المشكلة الكبرى في الجداول والاستعلامات

نعم أ/ جعفر ممكن تنزل برنامج تعديل الخطوط FontCreator ، وتخلي لون التشكيل بالأحمر وتعيد تصيبه على الجهاز وتستخدمه في أكسيس. رابط تحميل البرنامج: https://www.5-yal.com/2012/05/2012-download-fontcreator-65.html

شكرا جزيلا أخي الكريم

هل إخفاء الجداول والاستعلامات يمنع استيرادها إلى قاعدة جديدة ؟ وهل هناك طريقة تجعل العميل يقوم بإظهار الجداول المخفية ؟

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

السلام عليكم نعلم جميعا أنه يمكن إخفاء شريط التمرير الجاني والسفلي للنموذج، لكن؛ هل يمكن إخفاؤهما مع بقاء عملهما 👉؟

شكرا أ/ موسى على مساعدتك. 🙏

السلام عليكم لو عملت باس وورد معقد لمفتاح الشيفت، هل يمكن كسره أيضا؟

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

أقصد بمتاح: أن الخاصية معمولة true ، وليس False مثل الباقي.

تم حل المشكلة والحمد لله

السلام عليكم في الإعدادات المعطلة يوجد سطر واحد هو المتاح، فهل هذا خطأ في الكود؟ Application.SetOption "Auto compact", True مرفق الصورة أيضًا Option Compare Database Option Explicit Public Function ShowHideRibbon(ShowRibbon As Boolean) On Error GoTo ErrHandler '*********************( ÅÎÝÇÁ/ÅÙåÇÑ ÇáÔÑíØ ÇáÚáæí æÌãíÚ ÇáäæÇÝÐ )************************** If ShowRibbon = False Then '--------------------------------(ÅÎÝÇÁ ÇáÑíÈæä æÇáäÝÌíÔä ÈÇä) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) '--------------------------------(ÌãíÚ ÊÖÈíØÇÊ ÊÞÝíá ÇáÞÇÚÏÉ æÅÎÝÇÁ ÇáÞæÇÆã æãäÚ ÇáÒÑ ÇáÃíãä æÇáÇÎÊÕÇÑÇÊ) Application.SetOption "Show Status Bar", False CurrentDb.Properties("ShowDocumentTabs") = False Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", False Application.SetOption "Themed Form Controls", False Application.SetOption "DesignWithData", False CurrentDb.Properties("AllowDatasheetSchema") = False Application.SetOption "CheckTruncatedNumFields", False CurrentDb.Properties("AllowFullMenus") = False CurrentDb.Properties("AllowShortcutMenus") = False '--------------------------------(Shift ãäÚ ÇÓÊÎÏÇã ÒÑ ÇáÔÝÊ) On Error GoTo err CurrentDb.Properties("allowbypasskey") = False Exit Function ElseIf ShowRibbon = True Then '--------------------------------(ÅÖåÇÑ ÇáÑíÈæä æÇáäÝÌíÔä ÈÇä) DoCmd.ShowToolbar "Ribbon", acToolbarYes 'Unhide the navigation pane On Error Resume Next Call DoCmd.SelectObject(acTable, , True) Call DoCmd.SelectObject(acMacro, , True) Call DoCmd.SelectObject(acForm, , True) On Error GoTo ErrHandler '--------------------------------(ÝÊÍ ÎÕÇÆÕ ÞÇÚÏÉ ÇáÈíÇäÇÊ æÅÙåÇÑ ÇáÞæÇÆã æÊÝÚíá ÇáÒÑ ÇáÃíãä æÇáÇÎÊÕÇÑÇÊ) Application.SetOption "Show Status Bar", True CurrentDb.Properties("ShowDocumentTabs") = True Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", True Application.SetOption "Themed Form Controls", True Application.SetOption "DesignWithData", True CurrentDb.Properties("AllowDatasheetSchema") = True Application.SetOption "CheckTruncatedNumFields", True CurrentDb.Properties("AllowFullMenus") = True CurrentDb.Properties("AllowShortcutMenus") = True '--------------------------------(Shift ÇáÓãÇÍ ÈÇÓÊÎÏÇã ÒÑ ÇáÔÝÊ) On Error GoTo err2 CurrentDb.Properties("allowbypasskey") = True Exit Function End If '--------------------------------------------------------------------------- ErrHandler: If err.Number <> 0 Then MsgBox err.Number & vbCrLf & vbCrLf & err.Description, , "Function: ShowHideRibbon" Resume Next Else Exit Function End If err: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, False) Exit Function err2: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, True) Exit Function End Function

السلام عليكم تعطلت عندي بعض الاستعلامات دون سبب مع ان كل شيء مربوط ببعض كويس عملت استيراد للقاعدة القديمة في قاعدة جديدة، ونفس المشكلة حد حصل معاه كده؟

السلام عليكم التاريخ قي التقرير يكتب باللغة الانجليزية؛ فكيف نجعله يكتب باللغة العربية هكذا: 2 أغسطس 2023 ؟

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

شكرا جزيلا أ/ موسى ولجميع الاعضاء

السلام عليكم لو سمحتم / ما هي وظيفة هذا البرنامج ؟ Access Database Engine

شكرا جزيلا لك أخي الفاضل

جزاك الله خيرا بس معلش ممكن تشرحلي أول جزئية في الكود علشان أعرف اتعامل معاه بالتغيير If Now() - 10 > CDate("8/9/2023") Then

هل يمكن عمل فترة تجريبية (بالموديول فقط دون جداول أو استعلامات) بحيث ينتهي عمل البرنامج عند الوصول إلى تاريخ محدد؟ ويتم استدعاء الموديول في حدث load مثلا؟

شكرا جزيلا لكم ممكن جملة sql لجمع عمود (sum)

حصلت معايا، وتفاديت بأن جعلت الفورم يكبر تلقائيا