jjafferr

وعليكم السلام 🙂 الشيء الوحيد الذي يأتي على بالي هو: مصدر بيانات النموذج هو استعلام ، وهذا الاستعلام به معيار يأخذ قيمته من حقل بحث النموذج ، ولكنك لم تخبر المعيار كيف يتعامل مع قيمة حقل البحث عندما يكون فارغ !! طبعا ، هذا مجرد مفهومي من شُح البيانات التي وضحت لنا المشكلة 🙂 جعفر

هدئ اعصابك ، الموضوع معقد اكثر مما يظهر 🙂 اليوم ان شاء الله اعرض عليك كود ممكن يحل الموضوع 🙂 لاحظ ، انت قلت بدون كود ، وانا قلت كود 🙂 جعفر

لم الاحظ المسافة الزائدة 🙂 كما لاحظنا في مشاركتي اعلاه ، وبسبب وجود اشارتين/رمزين CR LF ، فالمسافة (واقعا هي ليست مسافة ، وانما الانتقال الى السطر التالي) ، ونحن وقفنا عند الرمز الاول ولم نعير انتباه للرمز الآخر ، فنتجت عنه هذه المسافة 🙂 تفضل هذا التعديل: S: Mid([NASS],1,InStr([NASS],Chr(13))-1) . ومفهمومك صحيح 100% ، وليس عندي جواب لهذه الظاهرة ، غير اننا نستعمل اللغة العربية والتي تعمل بعض الاشكالات 😁 ولكن تم حلها كما في الطريقة السابقة ، بتنقيص نفس الرقم المستخدم في البداية ، هكذا: S2: Mid([NASS],5,InStr([NASS],Chr(13))-5) جعفر 1413.MZ.accdb.zip

تفضل 🙂 اذا كنت تريد هذه النتيجة: . فهذا هو الاستعلام: . وهذه جملة SQL الاستعلام: SELECT tb1.الحقل7 FROM tb1 WHERE (((tb1.الحقل7) Is Not Null)) ORDER BY Int(Mid([الحقل7],InStr([الحقل7],"/")+1)), Int(Mid([الحقل7],1,InStr([الحقل7],"/")-1)); جعفر 1414.2.t1.accdb.zip

ما ادري ، هذا خارج تخصصي 😁 نشوف الشباب اللي لهم باع بهذه البرامج مثل @صالح حمادي و @Elsayed Bn Gemy و @SEMO.Pa3x و @ابوآمنة و @د.كاف يار واكيد نسيت آخرين 🙂 جعفر

وعليكم السلام 🙂 تم الرد على هذا السئال هنا . هل جد جديد ؟ جعفر

وعليكم السلام 🙂 اذا البرنامج بصيغة mdb او mde ، فنعم في برامج لفك كلمة السر ، ولكن لا يوجد برنامج لفك كلمة السر للبرامج بصيغة accdb او accde ، فكل البرامج عندها محاولات لفك كلمة السر 🙂 والحكم الانترنت ، ابحث ، وبتشوف النتائج 🙂 الاكسس بصيغة accdb لا يمكن كسر كلمة سره بسهوله وبالطرق الاعتيادية (يعني مستخدم عادي ويستعمل برامج مساعدة من الانترنت) ، وهنا حاول الاعضاء مساعدة اخوي سلمان . وعلى اساس طول كلمة السر ، وخلط الارقام والرموز فيها ، هنا نرى الوقت الذي يمكن ان تستغرقه (برامج محاولة الكشف عن كلمة السر) لكشف كلمة السر: فام اخونا @kaser906 بعمل نفس اللق تقوله ، بس بالاكسس جعفر

وعليكم السلام 🙂 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] جعفر