رولي

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

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

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

السلام عليكم لو سمحتم هذا الكود يقوم بإظهار عدد السجلات اللي في الفورم ، ويقوم بإظهارها (داخل حقل) غير منضم لأي جدول 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 أرجو الإفادة وآسف على كثرة الأسئلة ❤️