رولي

شكرا حبيبي ، دا أنا لايص من الصبح 😆

السلام عليكم إذا سمحتم عندما أقوم بإدراج زر أو كومبوبوكس لا يفتح المعالج التلقائي (مرفق صورة) كيف أجعل هذا المعالج يظهر ؟ الصورة ليست من جهازي بل من فيديو

تمام شكرا جزيلا أبو خليل

السلام عليكم لو سمحتم هذا الكود يقوم بإظهار عدد السجلات اللي في الفورم ، ويقوم بإظهارها (داخل حقل) غير منضم لأي جدول Me.Name=Me.Recordset.RecordCount أريد الكود المشابه الذي يقوم بالجمع الحسابي نفسه sum وليس Count وشكرا جزيلا مقدما

شكرا جزيلا لكما ❤️👋

السلام عليكم بخصوص جملة On Error Resume Next هل يتم كتابتها داخل كل حدث كما في الصورة، أم مرة واحدة أعلى صفحة الأكواد الخاصة بالفورم؟

شاكر جدا لك محاولة المساعدة لكن اعذرني مش هينفع أرفع البرنامج كله هنا، أولا: لحفظ الحقوق، فبرفع البرنامج يمكن لأي شخص العثور عليه مجانا هنا؛ لأنه مكتمل بالفعل، مش باقي غير بعض اللمسات الأخيرة. ثانيا: المشكلة اتحلت لوحدها ولا أعرف السبب، لم أقم بالتعديل على أي شيء ورغم ذلك اشتغل فلو حبيت أفصل الجزء الخاص بالخطأ مش هعرف ، لأن سبب الخطأ غير معروف عندي بخصوص الأزرار أنا شغال بالأكواد Vba وليس الماكرو الجاهز دمتم في رعاية الله ❤️

شكرا جزيلا أخي عمر، ربنا يجعله في ميزان حسناتك

السلام عليكم هذه الرسالة تظهر عندما أضغط على الزر، فما هو الحل جزاكم الله خيرا؟

شكرا جزيلا سأستخدمه إن شاء الله

شكرا جزيلا لكم معلش سؤال كي تتضح لي الصورة: المعادلة اللي باعملها عندي، لازم تكون موجودة في (استعلام) مرتبط بجدول داخل البرنامج؟

شكرا جزيلا لكم ربنا لا يحرمنا من أفضالكم تحياتي من مصر

جميل جدا شكرا لكم لكن هناك مشكلة طالما بنتكلم عن عمل (دوال ومعادلة)، يبقى كده المبرمج بيستخدم (الجداول) في حماية البرنامج. وطبعا الجداول لا يمكن حمايتها كما قال في أول الكلام بمجرد كسر البرنامج عن طريق Hex والوصول للجدول، هيتم معرفة الدالة والمعادلة ويغير كيفما شاء ما رأيكم؟

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

السلام عليكم عندما نقلت الملف إلى جهاز العميل ظهرت مشكلة في الأكواد وظهرت رسالة توجهني إلى استعمال نسخة 64bit رغم أن النسخة عندي وعند العميل هي 64 فعلا ظهرت هذه المشكلة في أكواد إضافة صوت إلى زر داخل أكسيس، وهي: Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long Function Playsound(sWavFile As String) apisndPlaySound sWavFile, 1 End Function وكان هذا السطر باللون الأحمر Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long أرجو الإفادة وآسف على كثرة الأسئلة ❤️

السلام عليكم عاوزين واحد ابن حلال كده يعمل فيديو يشرح فيه إعدادات العميل كاملة مع تطبيق التغييرات عمليا. وهل توجد أكواد VBA يمكننا من خلالها تغيير إعدادات العميل تلقائيا (مثل ما نخفي الواجهة ونعطل الشيفت)؟

شكرا جزيلا أخي لكن هل يمكن تغيير aa , bb , trial ؟ أم أن هذه أكواد ثابتة؟ DeleteSetting "aa", "bb", "trial"

السلام عليكم هل يمكن للعميل أن يصل إلى ملف الرجيستري الخاص بالبرنامج ويحذفه؟ أرجو الرد مشكورين

السلام عليكم يمكننا تحويل الاستعلامات الى SQL ووضعها داخل الأزرار في الفورم ، وهذه الطريقة قامت بحماية الاستعلامات. لكن هل يمكن تحويل الجداول الى SQL أو إلى VBA ، لحماية جدول الفترة التجريبة demo 🤔؟

هل يمكن الإجابة على هذا السؤال مشكورين؟

ممتاز ❤️

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