Foksh

أتمنى أن تحقق لك ما تنتظره 🤗

أخواني وأساتذتي ومعلمينا ( دون استثناء ) تشجيعاً للمتابعة والتقدم باستكمال الفكرة المعروضة في الفيديو التالي ، أرجو منكم مشاركتي أفكاركم وتعليقاتكم حول الفكرة الجديدة التي أقوم بتطويرها .. وأعلم أن هناك موضوع واحد على الأغلب قد تحدث عن الفكرة ولكن بطريقة مختلفة تماماً عن ما سترونه في :-

اعرض الملف 🏆🌟 نتائج تحدي المبدعين 13 🌟🏆 :: إضافة وتحرير سجلات في جدول من خلال عنصر ويب :: 📟🌟 السلام عليكم ورحمة الله وبركاته يطيب لي أن أطرح بين أيديكم نتائج : 🙂 🌟 تحدي المبدعين 13 🌟 :: أدخال البيانات في جدول من عنصر ويب :: 🌟 هذا التحدي هو عبارة عن تحدي يطرح بين فترة وأخرى على جروب الواتسأب مجتمع اكسس جروب وكان هذا التحدي هو التحدي رقم 13 وكان موضوع التحدي هو إدخال وتعديل البيانات في الجداول عن طريق عنصر ويب داخل نموذج . 🤗 المشاركين : لدينا 3 مشاركات رائعة من 3 مشاركين متميزين : - الأستاذ/ أبو إلين (مشاركة). - المهندس/ موسى الكلباني (مشاركة). - وأخوكم/ فادي موسى - Foksh (مشاركة). :: صور المشاركات :: :: الأستاذ أبو إلين :: :: المهندس موسى الكلباني :: :: أخوكم فادي - Foksh :: ⭐ رابط الانضمام لمجموعة الواتسأب : https://drive.google.com/drive/folders/1Ku3j_1TBQ03M199RBAO86DqDcFKcgAk3?usp=drive_link ⭐ رابط جميع ملفات التحديات السابقة 🌟 : https://drive.google.com/drive/folders/1xOqWpWiLqKacPTG2MQDrohJp5DKDRTY2?usp=drive_link 🌸😊 كل التوفيق للجميع 😊🌸 صاحب الملف Foksh تمت الاضافه 07/14/26 الاقسام قسم الأكسيس

الفكرة جميلة ولا بأس بها .. وعن تجربتي في المرفق الذي شاركنا به أخي @محب العقيدة :- السؤال الأول كان لي :- الإجابة كانت :- وعن سؤال خارج الموضوع كانت :- والإجابة كانت :- ومرة أخرى كانت الإجابة :-

😵 وااااااااو

عدد القراءات كفيل بأن يجعلني أقوم بمفاجأتكم بنشر موضوع جديد قريباً،، 😉

برأيي المتواضع أنه لو كان توجهك التنفيذي بدون انترنت ، فحتماً ستضطر لبناء مكتبة استفسارات ضخمة تغذيها لجدول الإستجابة والردود التي سيطلقها رد التطبيق. يعني تغذية خوارزمية الإجابات ستكون ضخمة جداً مقارنة مع الـ 500 ميجا التي ذكرتها.

حاول ضغط الملف ، وارفاقه. أو ارفعه على موقع مثل ميديا فاير، أو جوجل درايف ... إلخ

وعليكم السلام ورحمة الله وبركاته.. حجزت مقعدي الثاني في المتابعة 😀

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

العفو أخي أبو الحسن .. سرني مرورك تقصد ربط آكسيس بجداول Online ؟؟؟ لم أفهم قصدك تماماً

دعم شبكات الـ CDMA .. ( قيد التجربة ) وننتظر نتائج التجارب. دعم الشريحتين ، واختيار شريحة الأرسال الإفتراضية . عرض اسم الشبكة ونوع الاتصال GSM-LTE-CDMA ... إلخ قراءة اسم الشبكة لكل شريحة للتمييز . إتاحة ميزة جديدة وهي الإتصال برقم محدد من تطبيق آكسيس . طبعاً الإتصال سيكون من الجوال مباشرةً . قراءة رسائل الوارد من الجوال والتحكم بطريقة العرض كما هو الحال في الرسائل المرسلة . تصحيح الإتصال عند اغلاق شاشة الهاتف . تصحيح الإتصال عند ربط آكسيس والجوال على نقطة اتصال من جوال آخر بدلاً من راوتر شبكة محلية . جميع ما سبق متاح الآن في الإصدار الجديد . ميزة الإتصال من واجهة آكسيس تحتاج لمنح التطبيق الصلاحية . وكذلك الأمر تصحيح الإتصال عند اغلاق شاشة الهاتف ستطلب منك صلاحية باستثناء التطبيق من وضع الخمول عند قفل الشاشة . إصدارات أوفيس 64 إصدارات أوفيس 32 تطبيق الجوال قم أولاً بإزالة التطبيق المثبت على جوالك للنسخة القديمة ، وثبت النسخة الجديدة بنفس الآلية السابقة ، ومنح التطبيق الصلاحيتين ( قراءة الرسائل و استعمال تطبيق الهاتف للإتصال )

هههههه لا تُحبط أخي منتصر .. على العكس الهواية أجمل صدقني 😜 وفي فكرتك التي تقدمت بها كحل ، وقد أعجبني فعلاً .إلا أنني أذهب إلى الطريق المباشر دائماً وبأقل الموارد إن استطعت ودون الإعتماد على مكتبات الويندوز ؛ ذهبت لإستغلال WScript.Shell مباشرة من الويندوز .. لذا جرب في زر جديد ودون الحاجة لأي مديولات أو مساعدات الحدث التالي :- Private Sub cmd_ApplyChanges_Click() Dim objShell As Object Dim regKey As String Dim currentValue As Variant regKey = "HKCU\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe" Set objShell = CreateObject("WScript.Shell") On Error Resume Next currentValue = objShell.RegRead(regKey) On Error GoTo 0 If IsEmpty(currentValue) Or currentValue <> 11001 Then objShell.RegWrite regKey, 11001, "REG_DWORD" MsgBox "تم ترقية محرك متصفح الأكسيس إلى IE11 بنجاح" & vbCrLf & "يرجى إعادة تشغيل النموذج لتطبيق التغييرات", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "اكتمل التحديث" Else MsgBox "جهازك محدث بالفعل ومحرك المتصفح يعمل بأعلى كفاءة (IE11) . لا حاجة لأي تعديل", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "الوضع سليم" End If End Sub ولتجربة حذف التعديلات من الريجستري :- Private Sub cmd_RemoveHack_Click() Dim objShell As Object Set objShell = CreateObject("WScript.Shell") On Error Resume Next objShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe" On Error GoTo 0 MsgBox "تم إلغاء التعديل وعاد المتصفح لوضعه الافتراضي", vbInformation + vbMsgBoxRight, "نجاح" End Sub

ولوو .. العفو أخي منتصر ، هذا قليل مما عندكم صدقني .. وللعلم دراستي ليست البرمجة إطلاقاً وبعيدة كل البعد عنها .. ولكن هي ثمرة محبتي لهوايتي 😉