jjafferr

وعليكم السلام 🙂 1. في الاستعلام ، انت استخدمت المعيار Like "*" & "@@$ " & "*" وهذا معناه ابحث في الحقل ، وفي اي مكان منه تجد الجملة "@@$ " ، اعرض السجل ، بينما انت تريد الحقل الذي يبدأ بالجملة "@@$ " ، فيجب ان يصبح المعيار Like "@@$ " & "*" 2. يجب التدقيق في "ماذا يوجد نهاية اول سطر" ، حتى يمكننا اعطاء الامر لتفكيك اول سطر عن بقية بيانات الحقل . الطريقة الاولى هي استعمال الطريقة/الطرق من هذا الرابط . والطريقة الثانية ، هي استعمال برنامج يساعدنا في هذا ، وانا استخدم هذا البرنامج المجاني Notepad++ في جميع كمبيوترات عملي: https://notepad-plus-plus.org وعليه ، نرى هذه النتيجة لما وضعنا هذه الحقول في البرنامج اعلاه: . اذن تم معرفة ماهية نهاية الاسطر ، والاشارة/الرمز CR LF ، يمكن ترجمتها الى احد هاتين الجملتين (في الرابط اعلاه ، هنا جدول ascii وسنرى فيه هذه العلامة وقيمتها) : chr(13) او chr(10) ، او كليهما مع بعض ، ونحتاج الى التجربة للتأكد من استخدام ايهم. في الاستعلام ، في حقل جديد ، نضع : S: Mid([NASS], 1 , InStr([NASS],Chr(13)) ) نستخدم الامر Mid ، نقول فيه ، ابدأ من اول حرف في الحقل NASS ، ثم نستخدم الامر InStr لمعرفة اذا كانت الاشارة/الرمز chr(13) صحيح ، واين موقعه في السطر (او كما قلنا سابقا: CR ) ، هذا معناه ، الامر Mid يُظهر لنا نتائج من الحرف الاول الى المكان الذي نحصل عليه الرمز chr(13) ، وعلى اساس هذه النتيجة نقرر اذا كنا بحاجة الى استعمال chr(10) او لا ، وعند تشغيل الاستعلام ، تظهر لنا هذه النتائج : . اذن تجربتنا صحيحة ، وتم الحصول على السطر الاول ، 3. تحويل هذا الاستعلام الى استعلام الحاقي ، لنلحق هذه البيانات في الجدول TAB_Msaaneed ، في الحقل MS_NAME : . والنتيجة: . جعفر 1413.MZ.accdb.zip

حياك الله 🙂 جعفر

جرب هذا الكود ، ولاحظ ما عندنا me.refresh : Private Sub Form_Timer() On Error GoTo err_Form_Timer Me.[امع1].Form.Requery Me.[امع2].Form.Requery Me.[امع3].Form.Requery Me.[امع4].Form.Requery Me.[امع5].Form.Requery Me.[امع6].Form.Requery Exit_Form_Timer: Exit Sub err_Form_Timer: If Err.Number = 1 Then 'Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Form_Timer End Sub جعفر

اخي الفاضل ، صدقني ما يحتاج تستخدم التحديث ، وتستطيع حذف التوقيت و me.refresh 🙂 الاكسس يقوم بهذا الشيء عند فتح المستخدم النموذج. جعفر

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

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

وعليكم السلام 🙂 يا لطيف !! ليش كود التحديث؟ جعفر

تفضل 🙂 اضفت بيانات زيادة في الجدول ، حتى نرى المجموعات بطريقة افضل : . الاستعلام والدالة كما كانوا سابقا: . Public Function Concatenate_test_items(C As String) As String On Error GoTo err_Concatenate_test_items Dim rst As DAO.Recordset Dim myWhere As String 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[code]='" & C & "'" myWhere = myWhere & " And " myWhere = myWhere & " [bar]=-1" 'set the Data source Set rst = CurrentDb.OpenRecordset("Select [test] From [Table1] Where " & myWhere) 'Loop through the Records Do Until rst.EOF 'Concatenate the items Concatenate_test_items = Concatenate_test_items & ", " & rst!test 'move to the next Record rst.MoveNext Loop Exit_Concatenate_test_items: 'Remove the initial ", ", thats why we start from the 3rd letter Concatenate_test_items = Mid(Concatenate_test_items, 3) 'clean up memory rst.Close: Set rst = Nothing Exit Function err_Concatenate_test_items: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Concatenate_test_items End Function . ونتيجة الاستعلام ، والنموذج المستمر والتقرير : . جعفر 1411.2.testbar.accdb.zip

وعليكم السلام 🙂 في الوحدة النمطية: بدلا عن 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[code]='" & C & "'" استعمل 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[code]='" & C & "'" myWhere = myWhere & " And " myWhere = myWhere & "[bar]=-1" جعفر

ولا يهمك ، في الاسفل ، الجواب المعدل 🙂 ومعلش ، خذني على قدر عقلي 🙂 الطريقة هي : - الحقلين job card date و job card number ، يبقى حدث "بعد التحديث" لهما : Me.[courrgated order].Requery Me.[courrgated order1].Requery Me.[stop].Requery - النموذج الفرعي Stop (مع ان هذا الاسم من اوامر الاكسس ويجب عدم استعماله لمسميات الكائنات) : 1. في النموذج الفرعي ، احذف العلاقة بين النموذج الرئيسي والفرعي ، 2. مصدر النموذج الفرعي يجب ان يكون هذا استعلام : SELECT [stop].* FROM [stop] WHERE [stop].sn=iif(len(Forms![Courrgated paper]![job card number] & '')=0; [stop].[sn]; Forms![Courrgated paper]![job card number]) AND [stop].[date]=iif(len(Forms![Courrgated paper]![job card date] & '')=0; [stop].[date]; Forms![Courrgated paper]![job card date]); - النموذج الفرعي courrgated order : 1. في النموذج الفرعي ، احذف العلاقة بين النموذج الرئيسي والفرعي ، 2. مصدر النموذج الفرعي يجب ان يكون هذا استعلام : SELECT order1.*, items.[customer id], items.[item name], items.[carton type id], items.[paper colour id], items.lc, items.wc, items.hc, items.lsc, items.wsc, order1.done FROM items INNER JOIN order1 ON items.code = order1.[item code] WHERE order1.[job card number]=iif(len(Forms![Courrgated paper]![job card number] & '')=0; order1.[job card number]; Forms![Courrgated paper]![job card number]) AND order1.[job card date]=iif(len(Forms![Courrgated paper]![job card date] & '')=0; order1.[job card date]; Forms![Courrgated paper]![job card date]); - النموذج الفرعي courrgated order1 : 1. في النموذج الفرعي ، احذف العلاقة بين النموذج الرئيسي والفرعي ، 2. مصدر النموذج الفرعي يجب ان يكون هذا استعلام : SELECT order2.*, items.[customer id], items.[item name], items.[carton type id], items.[paper colour id], items.lc, items.wc, items.hc, items.lsc, items.wsc, order2.done FROM items INNER JOIN order2 ON items.code = order2.[item code1] WHERE order2.[job card number1]=iif(len(Forms![Courrgated paper]![job card number] & '')=0; order2.[job card number1]; Forms![Courrgated paper]![job card number]) AND order2.[job card date1]=iif(len(Forms![Courrgated paper]![job card date] & '')=0; order2.[job card date1]; Forms![Courrgated paper]![job card date]); واذا ما حصلت على النتيجة المطلوبة ، لوسمحت تخلينا نشوف الاستعلامات اعلاه في وضع التصميم 🙂 جعفر

وعليكم السلام 🙂 ولو ان سؤالك غير واضح ، اليك الجواب حسب فهمي للموضوع 🙂 هذان اللونان: . مصدرهما: . جعفر

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

ومشاركة مع اخوي حسين 🙂 . . للعلم ، اذا كانت عندك اكثر من قيمتين لفكهم (مثل 601-123-569-889) فحل اخوي حسين هو الامثل 🙂 جعفر بطاقة.zip

السلام عليكم 🙂 يمكنك توصيل صوتك ، وقراءة ما يريده معظم المبرمجين في بقية العالم 🙂 اكسس: https://feedbackportal.microsoft.com/feedback/forum/818e3b49-e61b-ec11-b6e7-0022481f8472 اكسل: https://feedbackportal.microsoft.com/feedback/forum/c23f3b77-f01b-ec11-b6e7-0022481f8472 بوربوينت: https://feedbackportal.microsoft.com/feedback/forum/af2977de-2f1c-ec11-b6e7-0022481f8472 وورد: https://feedbackportal.microsoft.com/feedback/forum/fb6d67e3-301c-ec11-b6e7-0022481f8472 جعفر

تم عمل تغيير على الوحدة النمطية Shell_n_Wait لتعمل على النواتين 32بت و 64بت ، فرجاء تجربة المرفق الآن (طبعا هذا مرفق اخوي ابا جودي 🙂 ) رجاء التاكد بأنه لديك صلاحية Read/Wrote على الهارد دسك الذي تشتغل عليه 🙂 جعفر TESTCH.zip

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

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

سيدي الكريم 🙂 اعتذر عن فهمي الخطأ لطلبك !! الطريقة هي : - الحقلين 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

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