jjafferr

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

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

سيدي الكريم 🙂 اعتذر عن فهمي الخطأ لطلبك !! الطريقة هي : - الحقلين job card date و job card number ، يبقى حدث "بعد التحديث" لهما : Me.[courrgated order].Requery Me.[courrgated order1].Requery Me.[stop].Requery - النموذج الفرعي Stop (مع ان هذا الاسم من اوامر الاكسس ويجب عدم استعماله لمسميات الكائنات) : 1. في النموذج الفرعي ، احذف العلاقة بين النموذج الرئيسي والفرعي ، 2. مصدر النموذج الفرعي يجب ان يكون استعلام : وفي معيار الحقل sn اكتب Forms![Courrgated paper]![job card number] وفي معيار الحقل date اكتب Forms![Courrgated paper]![job card date] - النموذج الفرعي courrgated order : 1. في النموذج الفرعي ، احذف العلاقة بين النموذج الرئيسي والفرعي ، 2. مصدر النموذج الفرعي يجب ان يكون استعلام : وفي معيار الحقل job card number اكتب Forms![Courrgated paper]![job card number] وفي معيار الحقل job card date اكتب Forms![Courrgated paper]![job card date] - النموذج الفرعي Stop (مع ان هذا الاسم من اوامر الاكسس ويجب عدم استعماله لمسميات الكائنات) : 1. في النموذج الفرعي ، احذف العلاقة بين النموذج الرئيسي والفرعي ، 2. مصدر النموذج الفرعي يجب ان يكون استعلام : وفي معيار الحقل job card number1 اكتب Forms![Courrgated paper]![job card number] وفي معيار الحقل job card date1 اكتب Forms![Courrgated paper]![job card date] جعفر

حياك الله 🙂 رجاء اختيار المشاركة التي اعطتك الجواب الصحيح ، واختيارها كافضل اجابة 🙂 جعفر

وعليكم السلام 🙂 جرب me.Text6= dcount("*", "request", "[rdate]=#" & me.txtsearch.value & "# And [doctor] ='(ك)'") او me.Text6= dcount("*", "request", "[rdate]=" & format(me.txtsearch.value,"mm/dd/yyyy") & " And [doctor] ='(ك)'") جعفر

وعليكم السلام 🙂 جرب me.Text6= dcount("*", "request", "[rdate]=#" & format(me.txtsearch.value,"mm/dd/yyyy") & "# And [doctor] ='(ك)'") او بطريقة اخرى ، ولكنك تحتاج الى دالة DateFormat : Dim myWhere As String myWhere = myWhere & "[rdate] =" & DateFormat([txtsearch]) myWhere = myWhere & " And " myWhere = myWhere & "[doctor] ='(ك)'" Debug.Print myWhere Me.Text6 = DCount("*", "request", myWhere) ويمكنك الحصول على الدالة من هنا: جعفر

جرب هاي الكود للحقلين job order date - job order number ، على حدث بعد التحديث: Me.[courrgated order].Requery Me.[courrgated order1].Requery Me.[stop].Requery جعفر

وعليكم السلام 🙂 تم اضافة شرح ومثال في المشاركة السابقة 🙂 جعفر

وعليكم السلام 🙂 حسب علمي ، لا يمكن ان يكون في الجدول اكثر من 255 حقل ، سواء تم عمل الجدول يدويا او برمجيا 🙂 نعم يمكنك عمل جدول بـ 3 حقول (لأخذ اي عدد من الحقول) ، والحقول هي: المفتاح الاساسي للحقل/ المعرف ، اسم الحقل ، قيمة الحقل ، وعليه ، هذه الحقول ستكون عبارة عن سجلات ، مثلا: عندك ملف اكسل فيه 400 حقل ، فعليه ، كل سجل في ملف الاكسل ، سيتم تفريغه في 400 سجل في هذا الجدول 🙂 هذا مثال: الملف 1409.sub-est2019_all_Fields.csv فيه 400 حقل ، و 14 سجل ، وهذا نموذج منه : TOWN NAME Alabama Abbeville city Adamsville city Addison town Akron town Alabaster city Albertville city Alexander City city Aliceville city Allgood town Altoona town Andalusia city Anderson town Anniston city Arab city Ardmore town Argo town Ariton town PLACE 0 124 460 484 676 820 988 1132 1228 1396 1660 1708 1756 1852 2116 2260 2320 2428 CENSUS2010POP 4779736 2688 4522 758 356 30352 21160 14875 2486 622 933 9015 282 23106 8050 1194 4071 764 ESTIMATESBASE2010 4780125 2705 4506 754 356 31112 21209 14984 2481 622 937 9015 281 22987 8080 1194 4085 762 POPESTIMATE2010 4785437 2699 4500 751 355 31209 21196 14929 2480 622 937 9025 281 22932 8095 1203 4093 763 POPESTIMATE2011 4799069 2694 4493 750 347 31375 21406 14897 2425 626 935 9068 280 22780 8187 1249 4119 754 POPESTIMATE2012 4815588 2643 4471 743 347 31684 21448 14767 2412 628 934 9000 279 22577 8222 1273 4148 757 POPESTIMATE2013 4830081 2628 4449 742 343 31980 21435 14835 2387 630 930 8993 277 22393 8230 1301 4195 747 POPESTIMATE2014 4841799 2608 4420 739 338 32182 21362 14781 2358 631 926 8980 278 22215 8212 1338 4195 741 POPESTIMATE2015 4852347 2600 4390 734 339 32772 21395 14647 2345 633 922 8918 274 22039 8232 1353 4219 742 POPESTIMATE2016 4863525 2584 4356 731 333 33017 21454 14611 2328 635 920 8854 272 21865 8269 1375 4263 741 POPESTIMATE2017 4874486 2575 4327 726 332 33275 21485 14550 2317 641 921 8746 272 21708 8298 1400 4289 741 POPESTIMATE2018 4887681 2571 4308 723 331 33413 21579 14452 2279 646 917 8686 268 21513 8340 1425 4319 738 POPESTIMATE2019 4903185 2560 4281 718 328 33487 21711 14317 2254 650 913 8680 267 21287 8383 1463 4348 739 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 . هذا للحقل الاول: . وهذا للحقل الثاني: . وهكذا 🙂 جعفر 1409.More.Than.255.Fields.zip

السلام عليكم 🙂 ممكن تشرح لنا شو اللي تريد عمله من هذا الكود؟ جعفر

هلا والله 🙂

وعليكم السلام 🙂 عملت استعلام الالحاق مرة اخرى ، وكل شيء اشتغل تمام 🙂 الظاهر انك خاسيت الاعدادات ، وشيء منها ما عجبته السالفه 🙂 حعفر 1407.استعلام التحديث.accdb.zip

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

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

وعليكم السلام 🙂 في النموذج الرئيسي ، لما تقوم بتحديث الحقل المرتبط بالحقل الفرعي ، استخدم حدث "بعد التحديث" للحقل ، واكتب الكود التالي: استخدم اسم النموذج الفرعي بدل جملة 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 جعفر

🙂

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