jjafferr

مع الاعتذار ، فانا مسافر من يوم غد 🙂

اعتقد الجواب موجود في اصل الموضوع :

المعذرة اخي الفاضل ، كان لازم اكتب توضيح لتعجبي 🙏 برمجيا ، مرفقك يؤدي الغرض من هذا التحدي ، بإستثناء : اين الخطأ في هذا السجل : . غير معروف مكان الخطأ ، مما يضطر المستخدم الى البحث يدويا في كل حقل !!

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

انا اميل الى اشعار المستخدم بالخطأ على مستوى الحقل وليس على مستوى السجل ، حتى يتمكن من التعديل مباشرة ، لهذا السبب طرق @Debug Ace و @Moosak اعلاه هي افضل من طريقتي ، ولكن طريقتي باب الى عمل الكثير في الحقول والسجلات على مستوى الجداول المحلية. ولما يسمح لنا اخوي @Foksh ، بنتكلم عن الطريقة ان شاء الله 🙂

وعليكم السلام اخوي ابوخليل مايكروسوفت اوقفت او في طريقها لإيقاف: عن الاكسس كائنات ActiveX والذي يشمل على سبيل المثال: شجرة الحسابات ، والباركود ، عن الوندوز كود VBscript والذي يشمل على سبيل المثال: VBScript RegExp libraries على ان توفر مايكروسوفت بديل لهذه الجزئية. وعليه محتاجين الى بدائل اخرى ، مثل ما تفضلت به هنا ، شكرا جزيلا 🙂

السلام عليكم وتماشيا مع روح الشروط (وليس تماشيا مع الشروط 🙂 ) ، وهي ثغرة قانونية استندت عليها في المرفق 🙂 هممم ، اعتقد هذه العبارة ذو اكثر من تأويل ، فإذا استعملناها بحذافيرها ، فيمكن ان نعمل المطلوب ولكن الكود سيكون غير واضح بسبب إستعمال عدد كبير من iif في بعضها البعض !! ولذلك من مرفقات الشباب اعلاه ، ارى انهم لم يلتزموا بالعمل على مستوى إعدادات الجدول فقط ، وانما انتقلوا الى إعدادات الحقول ايضا 🙂 Challange_01_02.zip

للعلم ، انا استعمل جميع انواع الذكاء الاصطناعي المجاني ، وخصوصا الذي بواصل معي و لا يتوقف عن الرد بسبب نفاذ حصتي منه اليوم بعد تجاربي ، استعمل ChatGPT 5.2 ، لأنه اذا صدر خطأ في السؤال او بدأ الذكاء الاصطناعي بتوجيهي بطريقة غير التي اريدها ، ببساطة لا اعطيه توجيه جديد ، بل ارجع الى آخر توجيه صحيح ، واستمر من هناك. Copilot لا يملك هذه الخاصية 🙂 هذه الخاصية موجودة في معظم شركات الذكاء الاصطناعي.

وبعيدا عن الاكسس ، فقد كنت اضغط على احد اولادي (والذي لايعرف يبرمج) بإستعمال الذكاء الاصطناعي ، واليكم تجربته (حسب ما اتذكر) : كان مسؤولا عن ادارة مؤسسة تعليمية: ادارة ، طلبة ، مدرسين ، تقارير ، حضور/غياب ، رواتب ، ... اشترك في Claude ai - Code اخبر الذكاء الاصطناعي طلباته كاملا وبالتسلسل ، ثم طلب يحاوره في خطة العمل ، وانواع البرامج الممكن استعمالها خصوصا انه بحاجة الى ادارة الموقع عن بُعد ، ثم بدأ العمل بنصيحة وكود الذكاء الاصطناعي 100%. كلما انتهى من جزئية معينة ، قام بتجربتها (وللتذكير فهو غير مبرمج ، فكان الذكاء الاصطناعي يخبره عن مكان حفظ الكود او اعطائه ملف كامل للاستعمال). اخذ منه حوالي شهر واحد (كان يعمل عليه ليلا فقط) ، حتى اكمل العمل.

السلام عليكم يجب على كل مبرمج ، سواء مبتدئ او محترف او يريد ان يبرمج ، ان يستعمل الذكاء الاصطناعي ليساعده في البرمجة بين الحين والآخر. الاُمي في هذا الزمان هو من لا يستعمل الذكاء الاصطناعي ، والذي يبدأ استعمال الذكاء الاصطناعي من اليوم فهو متأخر بضع سنين عن مبرمجين الغرب. المحترف: قد لا يحصل على كل كود يتمناه ، ولكن يمكنه الاستفادة بجزء من الكود او من الافكار التي يحصل عليها. قد لا يحصل على الكود الذي يستطيع به تحريك الكائنات في النموذج في وضع العرض ، ولكنه يستطيع الحصول على كود التأكد من وجود الانترنت ، او حساب عدد ملفات pdf الموجودة في مجلد الموظف. المبتدئ: ولأنه مبتدئ ، فطبيعي ان طلباته ستكون على مستوى يستطيع الذكاء الاصطناعي الرد عليها. الذي لا يعرف البرمجه ويريد ان يبرمج: اذا طلب من الذكاء الاصطناعي عمل شيء معين ، وبعد التجربة رأى ان الكود يعمل ، فقد حصل على مراده ، واذا لم يعمل ، فيستمر في طلبه وتجربته. وهذا الكود لن يكون مختلفا عن عمل الكثير والكثير المبرمجين المبتدئين الموجودين الان والتي برامجهم تملئ المكاتب بمئات المرات اكثر من برامج المحترفين ، وجزء كبير من الكود الذي يستعملوه هو عبارة عن نسخ/لصق ، ولا عيب في هذا مادام استطاع بالفعل ان يعمل برنامج يعمل بطريقة صحيحة. هناك اختلافات بين برامج الذكاء الاصطناعي ، وبين كل نسخة ، وبين كل تحديث. وبالتجربة تستطيع ان تعرف الانسب لك ، مثلا: هل استعمل ChatGPT 5.2 ، او استعمل Copilot والذي يستخدم ChatGPT 5.2 ؟ الجواب يأتي بالتجربة.

حياك الله

هذا اذا استعملت الكود كاملا !! رجاء انظر الى الرابط الذي وضعته في مشاركتي الاولى ، وهذا كود عمل Vcard الموجود هناك ، ولكني استعملت حقول الاسم الاول ومكان العمل ورقم الهاتف وتاريخ الميلاد فقط ، واوفقت الباقي (بهذه الطريقة انت اختار الحقل اللي تريدها) : Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf ' VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf ' VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf ' VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf ' VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf ' VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf ' VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf ' VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf ' VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function

السلام عليكم بعض الاجهزة لا تقرأ الـ QR العربي (مو عربي فقط ، وانما ما يقرأ Unicode ، ما يقرأ اي لغة غير الانجليزي/اللاتيني) ، ولا يمكن تعديل هذا الشيء في الجهاز!! فاذا طلبك عمل QR انجليزي فقط ، فتأكد من عدم استخدام الامر eci=24 عند عمل QR : .

تقبل الله

اخي فادي جميل عندما يستفيد الآخرين من عمل معين ، ويضاف عليه لمسات جميلة 🙂 شكرا لك.