كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. إذا كان قارئ الـ NFC يعمل بوضع Keyboard Emulation ، أي أنه يرسل البيانات كما لو أنك كتبتها بلوحة المفاتيح ، فالإجابة هي نعم يمكن تنفيذ الفكرة دون الحاجة إلى مكتبات خارجية معقدة . وكأننا نتعامل مع قارئ الباركود أو الـ QR تماماً ؛ لأنني قد مررت بهذه التجربة مسبقاً . ابحث عن قارئ يدعم هذه المواصفات مجتمعة :- USB HID Keyboard Emulation . قراءة محتوى NDEF Text من البطاقة ، وليس UID فقط . إمكانية إرسال مفتاح Enter بعد القراءة . ليسهل عيك وضع الحدث داخل مربع نص كلمة المرور في الحدث بعد التحديث . بمعنى آخر ، هو القارئ الذي يعمل كلوحة مفاتيح افتراضية . وطبعاً ليست كل قارئات USB NFC من هذا النوع . اقرأ المقال التالي للتوضيح أكثر . أتمنى أن تكون الإجابة قد شملت ما تفكر به أخي الكريم .

العفو أخي الكريم .. على الرحب والسعة

جرب المرفق gelani.rar

الحل الثاني أفضل ولكن بتعديل بسيط فأنت لا تريد إبقاء النموذج مفتوح لعدم وجود أي عمل فيه لذا فالأفضل أن يكون الأمر بهذا الشكل Private Sub cmdIndex_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) On Error GoTo ErrorHandler Dim strChr As String strChr = ProcessArabicLetters(CInt(y / Me.cmdIndex.Height * (UBound(GetLettersArray) + 1))) If Me.cmdIndex.Caption <> strChr Then Me.cmdIndex.Caption = strChr End If ErrorHandler: MsgBox (" !!!!! عفواً ،،،، لا توجد بيانات"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" DoCmd.Close acForm, Me.Name End Sub وهناك طرق أخرى لتفادي هذه المشكلة منها التحقق من وجود بيانات في الجدول المطلوب قبل فتح النموذج وذلك من حدث إستدعاء النموذج (زر الأمر أو النقر على أحد المفاتيح) أو في حدث الفتح أو التحميل لنموذج البحث الطرق كثيرة وعلى كل شخص إعتماد مايراه مناسباً له تحياتي

أردت تعديل المشاركة السابقة ، فوجدت أن ذلك غير متاح أرجو من إدارة المنتدى زيادة مدة التعديل ليوم كامل على الأقل حيث أنني توصلت إلى كود أبسط من السابق لتصيد الخطأ وهو التالي : Private Sub cmdIndex_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) On Error GoTo ErrorHandler Dim strChr As String strChr = ProcessArabicLetters(CInt(y / Me.cmdIndex.Height * (UBound(GetLettersArray) + 1))) If Me.cmdIndex.Caption <> strChr Then Me.cmdIndex.Caption = strChr End If Exit Sub ErrorHandler: MsgBox (" !!!!! عفواً ،،،، لا توجد بيانات"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" ' MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Error" Resume Next End Sub

السلام عليكم جميعا هل يمكن استخدام ال NFC TAGS فى مشاريع الاكسيس مثلا لإدخال باسورد فى مربع نص بدل من كتابته يدويا وشكرا لحضراتكم

لا حظت انني اذا عدلت الاسم الى اللغة العربية لا يعمل . هل في الكود ما يمنع استخدام التسمية عربي ؟ تحياتي وتقديري لجهودكم تظهر هكذا

رائع جدا حفظك الله وزادك علما . جربته ويعمل بشكل رائع . عدلت تعديل بسيط وهو انني غيرت امتداد التسمية الى gelain.accdr (لاحظ الامتداد فقط ) وذلك لمنع فتح البرنامج عند تعطيل الشفت . أجمل تحيه أكررها ولك ولجميع أعضاء هذا المنتدى الرائع .

أثناء العمل على قاعدة البيانات ، قمت بحذف كل البيانات منها وعند حركة الماوس على شريط الأحرف تظهر رسالة بالخطأ أضفت لكود " عند تحريك الماوس " سطور تصيد هذا الخطأ Private Sub cmdIndex_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) On Error GoTo Err_Note Dim strChr As String strChr = ProcessArabicLetters(CInt(y / Me.cmdIndex.Height * (UBound(GetLettersArray) + 1))) If Me.cmdIndex.Caption <> strChr Then Me.cmdIndex.Caption = strChr End If Exit_Note: Exit Sub Err_Note: Beep DoCmd.CancelEvent MsgBox (" !!!!! عفواً ،،،، لا توجد بيانات"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" End Sub إذا كان هناك ملاحظة على ما سبق أو إضافة ما فأرجو التعقيب وخصوصاً على هذا الجزء :Exit_Note Exit Sub لأني غير متأكد من فائدته

ما هو mcp شرح مبسط و جميل عن برتوكول mcp و أهميته

كيف يعمل الذكاء الصناعي محاضرة جميلة جدا و بسيطة من خلالها هنفهم كيف يعمل الذكاء الصناعي

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

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

كنت اتمني من أساتذتنا الاعضاء المشاركة و تبادل المعرفة حول هذا الموضوع المهم و لكن سأفعل ما بوسعي مع المحاضرة المهمة جدا هي (الذكاء الإصطناعي فرصة ام تهديد)

بارك الله بكم أبا المعتصم على ما دعيتم ... ولكم الأجر والثواب إن شاء الله هو بعينه المنطق اللي انت بتتكلم عنه 😅 .. نعم هنا كان الهدف في الفكرة الأولى أن تقوم الأداة فعلاً بتقديم نسخة Accde ، واسترجاعها عند الحاجة لكثرة ما مررنا به من مشاكل وقعت أنا أولكم - أخوكم الصغير - بها سابقاً بأنني لم أجد نسخة العميل التي تم ارساله لها ولكن مفتوحة المصدر .. ولهذا توجهت لهذه الفكرة . فإن كان في خاطركم أفكار فلا أمانع أبداً أن أسمع أفكاركم ومقترحاتكم التطويرية .. الأمور الدقيقة هذه تلفت انتباهكم ، وفعلاً التسميات موجودة داخل مربعات النص اذا كانت فارغة ، ولكن بدون ليبلات 😁 يا عيني عليك .. بارك الله فيكم أخي احمد على مشاركتكم التجربة .. . سمعت صوتك وأنا أقرأ ردك هذا أخي منتصر 👀 .. مين قال هذا الكلام 😅 . على العكس يهمني رأيكم أخي منتصر

لن اقوم بأي رد في الموضوع إلا بعد أن نعرف ما المقصود بهذه العبارة

تجربتي على جهازي ( ويندوز 7 وأوفيس 2007 32بت ) من خلال أوفيس 2007 تم تحويل ملف قاعدة بيانات المدرسين ( أنا استخدم أوفيس 2003 ) بعد تفريغها من البيانات من TeacherData v2.5.mdb إلى TeacherData v2.5.accdb ومن خلال الشرح أعلاه تم إنشاء الملف الوسيط Setup_TeacherDatav2.5.exe ومن ثم تم استخدامه لاستخراج النسخة المحمية TeacherData v2.5.accde وعند استعادة النسخة العادية من النسخة المحمية كانت هذه الصور

أخي العزيز الغرض من النسخة التوضيحية هو التعرف على طريقة العمل مع الأداة وأهم مايجب معرفته هو معرفة طريقة إنشاء القائمة المختصرة وطريقة معرفة نتيجة تحديد أحد عناصرها ومن خلال المثال المذكور سنعرف أن نتيجة التحديد ستظهر في المتغير intNum وبالتالي إذا إستخدمنا عبارة Select Case فيمكننا تنفيذ إجراءات تختلف بإختلاف قيمة هذا المتغير مرفق لك المثال بعد إضافة عبارة Select Case ستظهر رسالة بقيمة العنصر الذي تم تحديده وكل ما عليك هو إستبدال السطر MsgBox intNum إلى أي إجراء مطلوب فمثلاً إذا أردت عند النقر على العنصر رقم 11 أن يتم فتح تقرير Report1 فستقوم بتعديل الكود من Case Is = 11 MsgBox intNum إلى Case Is = 11 DoCmd.OpenReport "Report1", acViewPreview وهكذا لبقية العناصر تحياتي النسخة التوضيحية.rar

وعليك السلام ورحمة الله وبركاته مهندسنا العزيز @Foksh .... جزاك الله خيرا على المجهود الجميل والإخراج الرائع والأفكار النيرة 😊🌼 غفر الله لك ولوالديك ومن أحببت .. 🤲🙂 العمل في قمة الروعة ماشاء الله ، والفكرة جديدة ورائعة أيضا في مضمونها .. لك تحياتي أعتقد أن الفكرة ورائها هو حفظ نسخة من الملف الأصلي accdb داخل ملف ال exe ... كدة ولا مش كدة يا متعلمين ؟ 😅🖐️ لدي ملاحظتين : 1- ألاحظ أنك في هذا العمل الرائع ركزت على مسألة استخراج نسخة ال (accde) واسترجاعها .. أكثر من موضوع تحزيم وتسطيب البرنامج لإرساله للعميل .. كما في عملك السابق الخاص بالتحزيم .. والناتج من هذه الأداة هو ملف exe لا يستوفي جميع متطلبات التحزيم مثل الملفات المرفقة للبرنامج وتسطيب القاعدة الخلفية و .. و .. فلو تم دمج عمل الأداتين في أداة واحدة لكان الأمر في قمة الفنتاستك 👌 2- الملاحظة الثاني شكلية بحتة وهي عدم وجود تسميات توضيحية Lables على خانات الإدخال لتوضيح عمل كل خانة في هذه الواجهة : هذا ولك جزيل الشكر على جهودك الرائعة وأفكارك النيرة 😇

لك ذلك بالطبع .. تفضل يا عزيزي ، تابع الشرح في الفيديو التالي ..

تمام .. من خلال برنامج Shadow Defender تم تنصيب أوفيس 2010 32بت بجانب أوفيس 365 64بت فقط للتجربة وظهرت الحانات الأربعة 😂 هل من الممكن التوضيح بالصور.. تكرماً

الخبراء الافاضل فى مشاركة سابقة للخبير الفاضل / منتصر الانسى بعنوان مكتبة الموقع - أداة إنشاء الخيارات المخصصة بإستخدام القوائم المختصرة {سلسلة الأدوات المساعدة المخصصة} فى النموذج المتقدم توجد قائمة رائيسية ومنها تحرج قائمة فرعية ولكن عند الضغط على اى عنصر من عناصر القائمة يعطى رسالة برقم معين اريد بدل الرسالة ان يفتح نموذح اوتقرير اليكم الصور النسخة التوضيحية.accdb

شكراً لك أخي أحمد على مرورك هذا لأن لديك نسخة أوفيس واحدة فقط ، بينما في جهازي فأنا لدي نسختين مثبتتين في الويندوز ، الأولى 2024 - 64 بت ، والثانية 2010 - 32 بت . فلو كان لدي نسخة واحدة ما كانت ستظهر لدي وكان الأمر في جهازي سيكون مطابقاً لما في جهازك . هذا كل ما في الأمر 😇 .

اشكرك اخى الكريم وجزاك الله خير الجزاء كما اشكر كل الاعضاء الكرام اللذين حاولوا مساعدتى

السلام عليكم البرنامج مبتكر وجميل تصميماً وشرحاً ومبدئياً لماذا تختلف الشاشة التالية فى شرحك عن الموجودة عندي فى شرحك هناك بنود أكثر ( أربعة ) عندى ورغم إدخال الـ Password كما فى خطواتك (إثنان )