Barna

كلام AI هناك حلّان عمليان يسمحان لك باستخدام رصيد رسائلك النصية (SMS) في برنامج الأكسس دون الحاجة لاشتراكات خارجية، ويعتمدان على تحويل هاتف أندرويد إلى "بوابة إرسال" خاصة بك، تمامًا كما تريد. 💡 الفكرة الأساسية جميع الحلول المقترحة تعتمد على نفس المبدأ: استخدام هاتف أندرويد قديم أو جهاز مودم مزود بشريحة اتصال، وتثبيت تطبيق يحوله إلى خادم (Gateway) يمكن لبرنامج الأكسس على جهاز الكمبيوتر التواصل معه لإرسال الرسائل عبر شريحتك. الحلان المقترحان 1. استخدام بوابة SMS (الأفضل للمطورين والتحكم الكامل) هذا الخيار يتيح لك التحكم في عملية الإرسال من خلال الأكواد البرمجية (VBA) داخل الأكسس، ويعتبر حلاً مثالياً للمشاريع المتكاملة. التطبيق الموصى به: "Simple SMS Gateway" المتوفر على متجر جوجل بلاي. طريقة العمل: ثبّت التطبيق على هاتف أندرويد يحتوي على شريحة الاتصال التي تريد استخدام رصيدها. شغّل الخادم المحلي (Local Server) داخل التطبيق. سيعرض لك التطبيق عنوان IP محليًا لهاتفك ومنفذًا (عادةً 8080). من داخل الأكسس، يمكنك كتابة كود VBA لإرسال طلب (HTTP POST) إلى هذا العنوان (مثل http://[IP_HATIF]:8080/send-sms) مع بيانات الرسالة والرقم المستلم بصيغة JSON. ستُرسل الرسالة مباشرةً عبر شريحة هاتفك، وسيُخصم من رصيدك الشهري. مميزات هذه الطريقة: مجانية بالكامل: لا توجد رسوم شهرية أو مقابل كل رسالة، فقط تستخدم باقة رسائلك النصية. تحكم كامل: يمكنك برمجة الأكسس لإرسال رسائل مفردة أو جماعية، مع إمكانية تخصيص المحتوى لكل عميل باستخدام VBA. خصوصية عالية: لا تمر بياناتك عبر خوادم خارجية، فكل شيء يتم داخل شبكتك المحلية. 2. استخدام حل متكامل مع الأكسس (للمشاريع الكبيرة) هذا الحل مثالي إذا كنت تحتاج إلى إرسال كميات كبيرة جداً من الرسائل، حيث يوفر واجهة احترافية لإدارة قوائم الانتظار. الأدوات الموصى بها: Ozeki NG SMS Gateway. طريقة العمل: يقوم هذا البرنامج بالاتصال بقاعدة بيانات الأكسس الخاصة بك مباشرة عبر (ODBC). عندما تُدرج سجلاً جديداً في جدول مخصص، يلتقطه البرنامج ويرسله تلقائياً عبر هاتف أندرويد أو مودم متصل بالجهاز. ميزة إضافية: يمكن لهذا الحل استقبال الرسائل وحفظها تلقائياً في قاعدة بيانات الأكسس، مما يتيح لك تواصلاً ثنائيًا (Two-Way SMS). ⚠️ ملاحظات مهمة قبل البدء الحدود اليومية: تأكد من الحد الأقصى لعدد الرسائل الذي تسمح به شركة الاتصالات يوميًا لتجنب حظر رقمك. يُنصح بوضع فاصل زمني (مثلاً 35 ثانية) بين كل رسالة والأخرى لتجنب التصنيف كمرسل غير مرغوب فيه (Spam). توافق الأجهزة: تأكد من أن هاتف الأندرويد يعمل بنظام Android 8 أو أحدث، وأنه متصل بنفس شبكة الواي فاي التي يعمل عليها حاسوبك. إخلاء مسؤولية: هذه الحلول بوابات محلية، وليست خدمات تجارية معتمدة لضمان وصول الرسائل، واستخدامها يخضع لسياسات الاستخدام العادل لشركة الاتصالات الخاصة بك.

ما شاء الله تبارك الله ...... مبدع كعادتك استاذ فادي

سؤال .. للاستاذ @ahmed helmy draz هل عند الطباعة تختار مادة مادة ثم تضغط طباعة يعني تكرر الفعل 90 مرة ام لديك طريقة اخرى مريحة لمستخدم البرنامج

عملت استعلام داخلي ( فرعي ) متمثل في هذه الشيفرة المرتبطة بالجدول الاساسي SELECT Max(D2.Reg_Date) FROM Daily AS D2 WHERE D2.كود = Daily.كود بحيث يمر على كل سجلات حسب رقم الكود لاستخراج التاريخ الاكبر

تفضل طلبك حسب ما فهمت Documents_BARNA.rar

ادخل الاستعلام في وضع التصميم وامسح هذا [ادخل الكود هنا]

تفضل >>>>>>>>>>>>>>>>>>>>>>> Documents_BARNA.rar

تفضل <<<<<<<<<<<<<<< التعديل يكون في الجدول وليس النموذج مثال عملي.accdb

انظر هذا الموضوع <<<<<<<<<<<<<<<<<<<<<

اما فكرتي هذه ......... وهي حتى الان غير قابلة للنشر ..... 💡 نظام متكامل لإدارة صلاحيات المستخدمين في Microsoft Access يهدف هذا البرنامج إلى توفير تحكم كامل ومرن في صلاحيات المستخدمين داخل قاعدة بيانات Access، بحيث يتم تخصيص الصلاحيات على مستوى النماذج والأزرار بشكل دقيق، مما يعزز الأمان وسهولة الاستخدام. 🔐 أولاً: إدارة صلاحيات النماذج يوفر النظام إمكانية التحكم في صلاحيات المستخدم لكل نموذج على حدة، وتشمل: ➕ إضافة بيانات (Add) ✏️ تعديل بيانات (Edit) ❌ حذف بيانات (Delete) حيث يمكن تحديد ما إذا كان المستخدم: يملك صلاحيات كاملة أو صلاحيات محدودة (عرض فقط أو إضافة بدون تعديل… إلخ) 🎛️ ثانياً: التحكم في الأزرار داخل النماذج يتميز النظام بإدارة ذكية لواجهة المستخدم من خلال: إظهار الأزرار المصرح بها فقط حسب صلاحيات المستخدم إخفاء الأزرار غير المسموح بها تلقائيًا إعادة ترتيب الأزرار ديناميكيًا بحيث: لا تظهر أي فراغات يتم عرض الأزرار بشكل متتالي ومنظم الحفاظ على الشكل الجمالي للنموذج 🎨 ثالثاً: تخصيص واجهة المستخدم يوفر البرنامج مرونة عالية في تخصيص الواجهة، مثل: ✍️ التحكم في مسميات الأزرار بسهولة 🖼️ تغيير أيقونات الأزرار 🏠 تخصيص الشاشة الرئيسية: أسماء العناصر الأيقونات ترتيب العرض وذلك بدون الحاجة لتعديل الكود، بل من خلال جداول إعدادات مخصصة. ⚙️ رابعاً: مميزات إضافية نظام يعتمد على مستويات المستخدمين (User Levels / Groups) سهولة التوسع وإضافة صلاحيات جديدة إمكانية ربط الصلاحيات بجداول لسهولة الإدارة واجهة ديناميكية تتكيف مع كل مستخدم تلقائيًا 🔐 خامساً: إدارة كلمات المرور واستعادتها يدعم النظام آليات متقدمة لإدارة حسابات المستخدمين، مما يعزز مستوى الأمان وسهولة الاستخدام، وتشمل: 📧 استعادة كلمة المرور عبر البريد الإلكتروني إمكانية استرجاع كلمة المرور في حال نسيانها إرسال رابط أو رمز تحقق (OTP) إلى البريد الإلكتروني الخاص بالمستخدم التحقق من هوية المستخدم قبل إعادة تعيين كلمة المرور ضمان حماية الحساب من الوصول غير المصرح به 🔄 تغيير كلمة المرور تمكين المستخدم من تغيير كلمة المرور الخاصة به في أي وقت التحقق من كلمة المرور الحالية قبل التغيير تطبيق سياسات أمان (مثل الحد الأدنى لطول كلمة المرور أو تعقيدها) حفظ كلمة المرور بشكل آمن (مشفّر) داخل قاعدة البيانات 🚀 الخلاصة هذا النظام يوفر بيئة عمل احترافية داخل Access من خلال: تعزيز الأمان تحسين تجربة المستخدم تقليل الأخطاء توفير واجهة مرنة وقابلة للتخصيص بالكامل القيديو يلخص ذلك :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

مشاركة مع الحبايب BAR1.rar

انظر الامثلة ..... t1.accdb t2.accdb

كان الله في عونك اخي الكريم لا اعتقد هناك برامج 😭 ولكن انظر هذا الموقع ولم اجربهم شخصيا .... ولكن احذر من النصب وتأكد من مصداقيتهم في استرجاع الاكواد ... فرج الله همك EverythingAccess.com

استخدم هذا <><><><><><><> Private Sub btnStar1_Click() If Me.MyRating = 1 Then Me.MyRating = 0 Else Me.MyRating = 1 End If Me.Dirty = False End Sub Private Sub btnStar2_Click() If Me.MyRating = 2 Then Me.MyRating = 1 Else Me.MyRating = 2 End If Me.Dirty = False End Sub Private Sub btnStar3_Click() If Me.MyRating = 3 Then Me.MyRating = 2 Else Me.MyRating = 3 End If Me.Dirty = False End Sub Private Sub btnStar4_Click() If Me.MyRating = 4 Then Me.MyRating = 3 Else Me.MyRating = 4 End If Me.Dirty = False End Sub Private Sub btnStar5_Click() If Me.MyRating = 5 Then Me.MyRating = 4 Else Me.MyRating = 5 End If Me.Dirty = False End Sub

هلا اخي ابا بسملة ... لك وحشه من يعتذر ممن ... هل يعتذر الاخ من اخيه بل استفدنا من الردك ومرورك بالموضوع بارك الله فيك واحسن اليك .. جزاك الله خيرا