ابوآمنة

تابع هذا الموضوع

شكراً لكم جميعاً ❤️ سررت بتهنئتكم شكراً ابا جودى على المشاعر الطيبة ، ونحن نحبكم في الله ، وندعوا لكم جميعاً بالتوفيق والسداد ويجزكم الله خيرا الجزاء في الدنيا والآخرة على ما تقدمونه من خدمة وتسهيل على المسلمين.

جزيت خيراً عمل جميل ومرحباً بعودتك ❤️

مرحبا ابا جودى لك وحشه يا رجل ، افتقدناك .

تفضل هذا برنامج قد ينفعك :

جزاك الله خيراً ، احسنت مهندس محمد

تفضل يا دكتور حلبي إن شاء الله يكون المطلوب ممكن التحكم في السرعة من مربع النص Call him(Me, Speed) الوحدة النمطية Public Function him(FRM As Form, x As Integer) On Error Resume Next FRM.BRBar.Visible = True Dim z As Integer DoCmd.SetWarnings False FRM.BRBar.Max = x For z = z To x FRM.BRBar.Value = z Next z FRM.BRBar.Visible = False End Function تول بار.accdb

تفضل دكتور حلبي : في الوحدة النمطية : Public Function him(FRM As Form) Dim z As Integer DoCmd.SetWarnings False For z = z To 900 FRM.BRBar.Value = z Next z End Function ننادي عليه من أي مكان في النماذج هكذا Call him(Me) تول بار.accdb

شكرا لكم 🙏 سررت بتهنئتكم

شكراً لك ابو البشر اطمئن تم دمج المشاركتين في مشاركة واحدة ، وتم تعديل الموضوع ليشمل المشاركتين .

كشف الحساب موجود في النسخة الأخيرة: وتم تحديث النسخة الأخيرة في الموضوع الأصلي

احسنت ابو البشر يجب الالتزام بقوانين المنتدى .وعدم طرح اكثر من سؤال في نفس الموضوع . ويرجى إنشاء موضوع جديد

شكراً لكم جميعاً سررت بتهنئتكم ،،،

وعليكم السلام ورحمة الله وبركاته شكراً لثناءك تابع هذه الصورة المتحركة

وعليكم السلام حياك الله @MOamen Selema كعضو جديد ، نتمنى لك الإفادة والفائدة. يرجى إرفاق عينة من العمل كي يتمكن الأساتذة الكرام من الإجابة على استفسارات .

شكراً لكم إخواني وأساتذتي الكرام على هذه التهنئة الرائعة ، ولي الشرف أن أكون مع فريق الموقع المتميز بقيادة الأستاذ الكريم/ محمد طاهر عرفه ، ونسأل الله لي ولكم التوفيق والسداد . وإن يعيينا على أداء هذه الأمانة ونشر رسالة العلم والمعرفة .

وعليكم السلام حياك الله شاهد هذا الموضوع للأستاذ @SEMO.Pa3x :

حياك الله وشكراً لثناءك أخي إسلام راجع إعدادات نموذج صلاحيات المستخدمين من تبويب الإعدادات >> نموذج صلاحيات المستخدمين>> اختر المستخدم الحالي >> ابحث عن النموذج المغلق وقم بتفعيل صلاحية الفتح . وبالتوفيق

البرنامج يعمل عندي على نسخة 2019 بدون مشاكل . وأيضا أكواد التوافق بين النظامين 64 بت و 86 بت تم مراعاتها. ربما هناك مشكلة في إعدادات اللغة الخاصة بجهازك . واعتذر من الزملاء لعدم تطلبيه رغباتهم نظرا لانشغالي في الفترة الحالية .

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

العفو أخي @kanory 🙏 وبارك الله فيك و زادك الله علماً وعملاً صالحاً.

حياك الله أخ محمد جرب هذا الكود بشرط أن يكون المتصفح الافتراضي Google Chrome هذه الطريقة تدعم العربي لاحظ url : يبدأ api https://api.whatsapp.com/ بينما الخاص بك لا يدعم العربي https://wa.me/ وهذا الكود Dim X As String Dim rst As Variant Set rst = CurrentDb.OpenRecordset("Select * From whatsapp") rst.MoveFirst Do Until rst.EOF On Error Resume Next Application.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" & rst!nampr & "&text=" & rst!msgboax Pause (2) Call SendKeys("~", True) rst.MoveNext Loop Set rst = Nothing MsgBox "تم الإرسال بنجاح"

السلام عليكم ورحمة الله وبركاته : أهنئكم بحلول عيد الأضحى المبارك ، أعاده الله علينا وعليكم بالخير والصحة والعافية. وكل عام وانتم والأسرة الكريمة بخير والأمة بخير . صالح البريكان أبو آمنة السعودية 🇸🇦 - الشرقية

السلام عليكم وبالإضافة لما تفضل به أساتذتنا الكرام من باب تجربتي البسيطة في ربط برنامج اكسيس بـ SQL Server فكان الأداء والسرعة لا تقارن جدا . وأيضا لست بحاجة لمجلد لمشاركة قاعدة البيانات إلا فحالة مشاركة الملفات ... وكذلك الاجهزة المتصلة بالواي فاي فأداؤها جيد جدا 👍 . أيضا والحمدلله قمت بتصميم بعض الصفحات من خلال فيجوال استديو بلغة السي شارب بتقنية asp.net وربطتها بنفس القاعدة في الشبكة الداخلية وأداء خرافي .

جزيت خيرا يا معلمنا ابا خليل عمل جبار وسلمت يمينك وزادك الله علما وعملا وبارك الله في عمرك ومالك وابناءك .