jjafferr

سبق وان عرضت السؤال ، وحصلت على اجابة ، هنا هل جد جديد ؟ جعفر

السؤال غير واضح !!

وعليكم السلام 🙂 في النموذج الرئيسي ، لما تقوم بتحديث الحقل المرتبط بالحقل الفرعي ، استخدم حدث "بعد التحديث" للحقل ، واكتب الكود التالي: استخدم اسم النموذج الفرعي بدل جملة SubForm_Name me.SubForm_Name.Requery . ويمكنك عمل نفس الشيء مع الحقل الآخر 🙂 جعفر

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

وعليكم السلام 🙂 لما يصل عدد الحقول في جدولي الى حدود 50 حقل (طبعا ما عندي حقل مذكرة ولا مرفقات ولا OLE) ، اعرف اني عملت خخطأ ، ويجب عليّ ان اعيد النظر في تقسيمه 🙂 جعفر

وعليكم السلام 🙂 الباركود الاحادي 1D الابعاد: Code 39 ، Code 128 ، UPC ، EAN ، وغيرها : . . . فيه قيمة احادية واحدة فقط ، وهو الرقم الموجود في الباركود ، هذا معناه انك محتاج الى حقل واحد في الاكسس ، يكون التركيز عليه ، وتستعمل قارئ الباركود ليقرأ المعلومة 🙂 بينما الباركود الثنائي 2D الابعاد: QR ، PDF417 ، وغيرها : . . . فيه اكثر من قيمة ، ولمعرفة القيم ، وطريقة ترتيب القيم ، فالافضل ان تكون فاتح ملف txt عادي ، ويكون فيه التركيز ، ثم تستعمل قارئ البركود ، لترى القيمة في الملف ، وبعد ان تعرف طريقة برمجة الباركود ، فتستطيع ان تبرمجه في برنامجك في الاكسس 🙂 رجاء مراجعة هذا الرابط حتى ترى كم البيانات التي يمكنك حفظها في الباركود : . جعفر

السلام عليكم اخي المسافر 🙂 اذا كان هذا السؤال لا علاقة له بسؤال الموضوع ، فقوانين المنتدى تطلب منك فتح موضوع جديد للسؤال الجديد ، لوسمحت 🙂 جعفر

وعليكم السلام 🙂 هذه المعلومة غير دقيقة ، انظر اول سطر من بيانات MRZ . 1. نعم 2. نعم ، ولكن اذا لم تكن بحاجة الى بقية البيانات ، فيجب عليك قراءة البيانات كما الموجود بالكود اعلاه ، فقط تحتاج الى تقليص بيانات الحفظ 🙂 جعفر

تفضل جرب: 1. ادخل التاريخ 2. يعطيك نتيجة اذا كان التاريخ 1 موجود في الجدول او فارغ جعفر 1405.Need_DateFormat.accdb.zip

اقرا الموضوع الذي ارفقت لك رابطه ، وسترى ان الدالة هي الحل 🙂 جعفر

طيب ايش رأيك بهذه النتيجة : 2س/1ش/0ي = 2 سنه/1 شهر/ 0 يوم : وهذه هي الدالة: Public Function YMDDif4(sDate1, sDate2) On Error GoTo err_YMDDif4 'sDate1 earliest date 'sDate2 later date Dim D As Integer, m As Integer, y As Integer Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay m = iMonth Mod 12 y = iMonth \ 12 'YMDDif2 = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days" YMDDif4 = CStr(y) & " س/" & CStr(m) & " ش/" & CStr(D) & " ي" Exit Function err_YMDDif4: If Err.Number = 94 Then 'ignor, null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر

🙂

وعليكم السلام 🙂 تحتاج الى دالة التاريخ ، وحتى @ابا جودى صار يستعملها ، وتقدر تشوف المشاركة : جعفر

بتغيير بسيط على كود اخوي موسى ، ليتماشى مع الاستعلام : DD: Calcdiffy([vdate1], [vdate2]) جعفر

جرب هاي: ListBoxEnhancedVer15.accdb

افتح النموذج في وضع التصميم ، ثم في وضع العرض 🙂

واقعا هي الطريقة المثلى والاكثر مرونه 🙂 ويمكنك استخدام مثال هذا المرفق: http://lebans.com/DownloadFiles/ListBoxEnhanced.zip جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 تفضل واخبرنا مشكلتك هنا حتى يستفيد الجميع ، فالمنتدى لفائدة الجميع 🙂 جعفر

🙂

اخي الفاضل ، قوانين المنتدى لا تسمح بـ : 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 12. يمنع وضع سؤال لا علاقة له بالموضوع الموضوع فيه التساؤل أو ليس له مناسبة في وضعه معه. فرجاء متابعة الموضوع ، منه 🙂 جعفر

اذا استخدمت عبارة Option Explicit في صفحة الكود ، ولم تقم بتعرييف المتغير ، فلما تشغل البرنامج ، تلقائيا سيعطيك رسالة خطأ ، على المتغير الذي لم يتم تعرييفه (حتى وان كان هذا المتغير في نموذج/تقرير/وحدة نمطية لا تخص النموذج الذ تم فتحه ، هو خطأ ويحذرك الاكسس عنه) ، ولتجنب الحصول على الخطأ من البداية ، ومعرفة هذه المتغيرات الغير معرّفه ، استعمل Debug < Compile . جعفر

حتى اذا محترف آخر يشوف الكود اللي انا عملته ، يمكن يكون عنده ملاحظه عليه ، فلا تهتم ، فاذا الكود شغال ، انتهيت من اول واهم خطوة ، والباقي تحصل عليه بالتجربة 🙂 نضع فيه هذه العبارة Option Explicit في جميع صفحات الكود ، ولكن ، ضعه في صفخة ، ثم Debug < Compile ، فتظهر لك المتغيرات التي تحتاج الى عمل Dim لها ، وتنتقل للصفحة التالية ، وهكذا . جعفر

اليك هذا الموضوع البسيط ، وبدون ان ترى المشاركات ، حل السؤال على ورقة ، سطر بسطر ، واكتب النتائج ، والآن ، ترجم نفس الخطوات الى اسطر برنامج ، اكتب سطر ، وشوف النتيجة ، ثم اكتب السطر التالي ، وشوف النتيجة ، وهكذا تضيف اسطر الكود 🙂 وبعد ان يعمل برنامجك نوعا ما ، تقدر تستفيد من المشاركات ، وطبعا مو لازم كودك يكون مثل المشاركات ، هناك الف طريقة للبرمجة 🙂 المبرمج مثل الطباخ ، عنده طرق واساليب لاستعمال نفس المكونات ، واعطاء طبخات مختلفه لها 🙂 بس يعني اذا تعلمت تطبخ بيض عيون ، تسمي نفسك طباخ ، وتكون عارف كل الطبخ ، لا طبعا !! رحلة الالف ميل تبدأ بطبق بيض العيون 🙂 جعفر

وعليكم السلام 🙂 انا اختلف مع اخوي ابو جودي ، والجواب: نعم تقدر 🙂 ولكن بسبب التصميم ، فما جميع الانواع يكون عرض بياناتها تكون مقبولة 🙂 جعفر

انا تعمّدت وعملت التصدير من استعلام ، فعندك مرونه في زيادة الحقول ، او ربط مجموعة جداول مع بعض في الاستعلام 🙂 اذا ما قدرت تعمل المطلوب ، اخبرنا بالتفاصيل ، وان شاء الله تحصل على الجواب 🙂 جعفر