qathi

أقصد أخي @حلبي ليس الطريق التي تبحث وابحث عنها الصلاحيات الثلاث الفتح والتعديل والحذف .. تم الاقتصار على فتح النموذج فقط .. وهي طريقة لا أفضلها وغير فعالة في الحالة العملية .. مارئيك أن نشرك من أنشاء البرنامج الرائع السابق @ابا جودى .. أعتقد أنه خير من يستطيع أن يفيدنا بمثال بدون أستخدام البرنامج الصلاحيات والتحكم بالمستخدمين

أيدك أخي @حلبي نفس مابحثت ومررت به .. وبالفعل جربت هذا المثال الراائع قبل فترة .. وأتذكر أن فيه بعض المشاكل 1- منها أنه يزيد من حجم القاعدة بشكل كبير وغير مبرر .. 2- قمت بنقل الاكواد والنماذج من القاعدة التي تم تطبيق عليها الصلاحيات الى قاعدة أخرى ليس بها الصلاحيات فظهرت مشاكل ورسائل أخطاء .. مما أجبرت إلى استخدام طريقة أخرى أسهل أشاركك أخي @حلبي الطلب ونفس ما أبحث عنه .. أتمنى من أساتذتنا أن يفيدونا بذلك

وعليكم السلام أهلاً وسهلاً بأستاذنا الكبير .. والغالي في نفوسنا .. ما أحلى الدردشة عنما تكون بيننا

أعتذارك مقبول أخي وشكرا على التذكير والتنبية لهذه المعلومة

لم أنتبه لردك ألا الأن غرور بالرد .. وغلضة .. ماهذا ؟؟ أين التواضع ؟؟؟ شاركت ما معي كما شارك الأخوة أخذت الكود من هذا المنتدى الشامخ .. فأن كان خطاء أو لا يعجبك فليس خطائي بل خطاء من قام بأنشأة ووضعة بالمنتدى تحملت عناء وضع رد لمشاركتك حتى نثري موضوعك .. واعطيتك نتاج بحثي .. وكان ردك لي دون سواي هكذا .. أهاكذا يكون خلق المسلم؟ هل بردك هذا تريد أن تذل الناس .. هل هذا من أدب الحديث؟ أما كان منك أن تضع كلام طيب فأن المسلم لا يفوح منه ألا الطيب هب أني لا أفقة شيء وأخطاءت .. أهاكذا يكون ردك؟ من لا يشكر الناس لا يشكر الله ثم بالله عليك كيف أعلم أني مخطئ أن لم أناقش ؟؟؟ .. وهل يولد المرء عالماً ؟؟ في الأخير أقول لك جزاك الله خير .. فأنتم قدوة

الموضوع شيق ومهم .. نتابع النقاش بلهفة .. أساتذتنا الكرام .. @رمهان و @صالح حمادي وفقكم الله .. وسددت خطاكم أسمح لي أستاذي الغالي @صالح حمادي بمداخلة .. متواضعة على قدر فهمي .. في نقطتين هي: أولاً: لا أخفي عليك .. أني دائما أقوم بتطويرات للقاعدة بشكل مستمر .. وبالاحرى الامر مجهد لمتابعة التغييرات التي تم أضافتها وتطبيقها بالكود .. فما رائيك؟؟ ثانياً: وهي أي منهما الطريقة الأمنه كمبرمج و للزبون مالك قاعدة بيانات .. والأقل الأخطاء .. ولا يودي الى تلف لا سمح الله للقاعدة هل هي الأستيراد أم أستعمال الكود الذي تفضلت؟ وشكراً لكم .. على ماتقدمونه من هذا العطاء السخي من علمكم .. ووقتكم

ههههههههه أي سر أخي الغالي @ابا جودى فقد عرفناه منك الآن روح مرحة .. وأخلاق عالية .. وتواضع .. هكذا تجعلنا نحترمك ونحبك أكثر وأكثر فهاكذا يجب أن يكون الخبراء .. أخلاقهم الحلم وأن جهل في حقهم غيرهم .. وهم قدوه لمن بعدهم .. أحببت أن أعلق على كلاماتك الرائعة التي أعجبتني ..

أخي @SEMO.Pa3x لا تستعجل بالرد أقراء الكود جيداً فهو مختلف جدا في صياغته .. الجديد أن الكود أستاذي الغالي صالح حمادي كما قال أنك تظع دالة Function في مديول .. والكود الذي اعطيتك ياخي .. يوضع في راس صفحة الفجول للنموذج الحالي وليس في مديول كما أن استدعاء ملف الصوت واضح الاختلاف فأن أصبت فمن الله وأن أخطأت فمن نفسي والشيطان ..

أسمحو لي بمداخله بسيطة .. تشبة مثال أستاذي @صالح حمادي لكن بشكل أخر حالياً استخدم هذا الكود .. وجدة في هذا المنتدى العريق ضع هذا الكود في راس مديول صفحة النموذج Dim a As Boolean Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long وضع هذا الكود تحت زر أو أي أمر R = sndPlaySound("C:\WINDOWS\MEDIA\ButtonQathi.wav", 1) لاحظ أن مسار الملف الصوت هو C:\WINDOWS\MEDIA\Qathi.wav وأسم ملف الصوت هو Qathi.wav

مبارك أخي @ابا جودى عليك الترقية .. واسعدك الله .. كما تسعد الاعضاء كنا ننتظر هذا الخبر السعيد .. تستحقها وبجدارة

عمل رائع استاذنا @صالح حمادي أيدك أستاذي في هذا الكلام ....

العفو .. أخي @SEMO.Pa3x اعرف تاخرت بالرد .. لكن هل جربت الكود .. الكود يعمل عندي بشكل طبيعي بدون ريستات ولا صلاحيات مسؤول .. تاكد من اعدادت الحماية في نظامك ويندوز أو جدار الحماية .. فقد يكون السبب

مبارك عليك أخي @essam rabea جعلك الله منمن ينتفع به علمة .. وذخراً للأسلام والمسلمين .. سعدنا بهذا الخبر الجميل من أستاذنا الكبير @jjafferr

هل تاكد من عمل الكود أخي SEMO.Pa3x لا الكود كما قال أستاذناصالح حمادي فالكود لا يحتاج ريستات ولا تشغيل كمسؤل ويعمل بشكل طبيعي

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

لأخواني الأفضل وكذلك لزميلي العزيز SEMO.Pa3x احيية على جهدة في فكرته الجميلة لكن يوجد في اكسس تثبيت الخطوط بدون ادوات خارجية وبدون تحديد مسار يكفي وضع الخطوط في مجلد Fonts مع قاعدة بيانات ويتكفل الكود بتثبيتها بدون وسائط او ادوات خارجية، وبالطبع مع كتابة اسم الخط في الكود وقد عملت ملف قبل نصف سنة بهذا الامر ، وهذا مثال للكود الموجود بالملف res = AddFontResource(CurrentProject.Path & "\fonts\DS-DIGI.ttf") مرفق ملف إضافة الخطوط للويندوز.rar

أشكرك أخي @وائل أبو عبد الرحمن على ردك واعذرني لتاخر ردي لأنشغالي قمت بتجربة الملف لكن للموضوع حديث بيننا . لأن الطريقة التي كنت اضن أن ظهور النموذج بشكل مستقل وليس هكذا عند تركيز على حقل او مربع نص أخي وائل ماذا لو كان لدي 10 مربعات نص واريد ظهور نموذج frmKeyboard أسفل مربع النص الذي يكون التركيز علية ويعمل نفس الأمر مع باقي مربعات النصوص .. وليس أن جعل النموذج frmKeyboard فرعي يكون ظهورة في مكان ثابت بالنموذج الرئيسي .. هل وصلت لك الفكرة

أخي @وائل أبو عبد الرحمن أسعدني جداً أنك وصلت لهذه المرحلة وحتى تكتمل الفكرة أخي وائل أطلب منك أذا تكرمت .. أن تدرج هنا مثال لما وصلت ألية .. وبخصوص موضوع البحث .. هل من نتيجة .. هل تم الرد أو المساعدة ؟؟

مرحبا بكم اخواني الافاضل لدي مداخلة اريد أن أعرف من أخي @وائل أبو عبد الرحمن هل تقصد كما أعتقد أنه أمكنك من أستدعاء نموذج frmKeyboard في اي حقل واي نموذج؟؟؟ أذا كان كذلك فهل أوضحت لنا الطريقة؟؟؟؟ نفس ما مريت به وعانيت منه سابقاً .. واعذر كل عضو بالمنتدى والسبب عدم الوصول للحل أو أنشغال أساتذتنا الافاضل بأمورهم الخاصة لكن أحثك على المواصل ولا تيأس .. أسترعي أنتباهك وأقول لك أفضل حل وجدة لحل هذا الأمر هو بالبحث والبحث والبحث حتى تصل لمرادك .. مالم أرجوا من أساتذتنا مساعدتك متى اتيحت لهم الفرصة في أسرع وقت ممكن .. تأكد أنهم لن يتوانو عن المساعدة أيدك في كلامك ==== أخي وائل عدت من سفري قبل سويعات .. وأول ما قمت به فتحت المنتدى ووجدت موضوعك فقمت بمتابعة سريعة لموضوعك الخاص بالبحث .. على أمل أن أساعدك لكن حالي قوله تعالى: وَمَا أُوتِيتُمْ مِنَ الْعِلْمِ إِلَّا قَلِيلًا {الإسراء:85} أتمنى أن تلقى مايشغل بالك ويدخل البهجة والسعادة الى قلبك وأرجو أيضاحك لما طلبت منك سابقاً

وأياك أخي الكريم صلاح

أخي @صلاح جبر المشكلة تكمن في المكتبات قم بأدراج المكتبات

بارك الله فيك استاذنا الغالي

حفضك الله أخونا صالح كان هذا الملف معي منذ مدة قمت بتنزيله من المنتدى وكنت قد فكرت في تطويرة .. لكن أنت قد أبدعت وكفيت باكماله .. فجزاك الله خيرا وبارك الله فيك

تفضل @solomoon 1- أجعل تحت زر هذا الامر DoCmd.OpenReport "InvoiceH_rpt", acPreview حيث أن InvoiceH_rpt اسم التقرير المراد عرضة 2- عدل تنسيق التقرير كما بالصورة

أخواني الأعزاء هل يوجد كود عند ما يكون أحد النماذج شغالة يقوم بتنفيذ كود عن طريق دالة IF