jjafferr

وانا اتفق معاك 🙂 جعفر

في الواقع ردي انا واخي اشرف متشابهين ، ولكن مختلفين 🙂 طريقتي هي عمل التنسيق في الجدول ، مما يعني ، ان اي استعلام او نموذج او تقرير جديد ، سيأخذ هذا التنسيق من الجدول مباشرة ، وسيُظهر 9 خانات + خانة الصفر اللي على اليسار ، ولكن وكما قلت ، في واقع الامر ، البرنامج يرى 9 خانات فقط. بينما طريقة اخي اشرف ، فيجب ان نضع هذا التنسيق في النموذج ثم في التقرير "يدويا" ، وسيُظهر 9 خانات + خانة الصفر اللي على اليسار ، ولكن في الجدول سيرى 9 خانات فقط. لكل طريقة ميزاتها وعيوبها ، وهنا يجب ان نعطي المستخدم طريقة لا يتلخبط بها 🙂 جعفر

اوووووه زين ذكرتني ان هذا القانون ينطبق حتى في شهر رمضان جعفر

وانا اذا فهمي صحيح ، اعمل حقل Label اسمه R ، واستعمل هذا الكود : Private Sub Form_Current() Me.R.Caption = "Record " & CurrentRecord & " Of " & RecordsetClone.RecordCount & " Records" End Sub جعفر

هممم هذا السؤال صعب الاجابة عليه !! فإذا عملت تصفية للحقل1 ، فعدد السجلات وترتيبها سيختلف من انك اذا عملت تصفية للحقل2 ، واذا عملت تصفية عن طريق الحقلين ، فهذا ترتيب آخر ، واحلاها ، انك بعد ان تعمل كل هذه التصفيات ، تقوم بعمل فرز تصاعدي عن حقل آخر 🙂 جعفر

وعليكم السلام 🙂 ممكن نستخدم الطريقة اللي في الصورة المرفقة ، . ولكن مع التغيير التالي: مجموع علامات الصح Section_A: iif([Section]=-1,1,0) مجموع بدون علامة صح Section_B: iif([Section]=0,1,0) جعفر

واذا اردت ان تعرف سبب الخطأ ، اي لماذا كان يعمل على اكسس 2003 ولم يعمل على اكسس 2016 : جعفر

السلام عليكم 🙂 اذا كان هذا الحقل دائما بحاجة الى صفر على يسار الارقام ، فيمكن ان : 1. في الجدول ، نجعل نوع هذا الحقل "رقم" طويل ، 2. في التنسيق ، تضع اصفار بالعدد الذي تريد "مع الصفر على اليسار" ، فإذا تريد 10 ارقام ، يكون التنسيق: 0000000000 3. الآن ، لما تُدخل الارقام (سواء في الجدول او الاستعلام او النموذج او الكود) ، لا تُدخل الصفر على اليسار ، وانما ادخل التسعة ارقام ، مثل : 503052054 والبرنامج سيُظهر لك : 0503052054 4. ولكن يجب عليك الانتباه ، ان هذا مجرد تنسيق ، والرقم الحقيقي المحفوظ في البرنامج هو التسعة ارقام ، والبرنامج ما يشوف غير هذه التسع ارقام ، لهذا السبب فالصفر الاخير لا وجود له إلا في عرض/اظهار الرقم 🙂 جعفر

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

ارفق اللي عندك من مشاركلتك الاخيرتين الاثنين ، وخلينا نشوف الصورة كاملة 🙂 جعفر

جرب هاي المرفق ، بعد ان حذفنا المجاميع من الاستعلام الاول 🙂 جعفر 1211.2.No_Match.accdb.zip

وعليكم السلام اخوي احمد 🙂 نأخذ نتيجة الاستعلام السابق ، ونستعمله في استعلام مجاميع جديد : . والنتيجة : . جعفر 1211.1.No_Match.accdb.zip

🙂

1. ادخل في صفحة VBE ، 2. . فتحصل على صفحة جديدة . 3. انسخ الكود من مشاركة اخي ابو تراب ، والصقه في الصفحة ، ثم احفظ الوحدة النمطية باسم مميز مثل mod_ExecuteFile : . 4. والآن من اي حدث ، نادي الوحدة النمطية هكذا : ExecuteFile "C:\Windows\System32\calc.exe" جعفر

نعم هذه مشكلة الاوفيس مع البرامج اللي ما تثق فيها !! جرب البرنامج الآخر : shell("C:\...\...\calc.exe",0) او shell("C:\...\...\calc.exe",vbhidden) وبنفس الطريقة تقدر تجرب المقترحات الاخرى ، مجرد انك تحفظ الكود في وحدة نمطية مستقلة ، ثم تستعمل الكود التالي لعملها : ExecuteFile("C:\...\...\calc.exe",0) او shell_n_wait("C:\...\...\calc.exe",0) جعفر

اسم الملف والمسار يجب ان يكون بين العلامتين "" ، هكذا : application.followhyerlink "C:\...\...\calc.exe" لجميع الاجابات اعلاه ، ومنهم shell و shell_n_wait وووو جعفر

الكود الذي اعطيتك ، والذي اعطاك ابو تراب ، يفتح البرنامج الآخر ولا ينتظر ان يُنهي البرنامج عمله ، وينتقل الطود للسطر التالي ، ولكن وفي بعض الاوقات ، تريد ان تفتح برنامج (او بمعنى اصح ، تريد ان تفتح برنامج ، وتكون قد ارسلت اليه المتغيرات المطلوبة مثل عمل QR Code مثلا) ، وتريد VBE ينتظر انتهاء البرنامج من عمله ، لهذا السبب نستعمل كود مثل Shell_n_Wait : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas بنفس طريقة استعمال Shell او ExecuteFile اللي عرضه اخي ابو تراب ، شوف سطر عمله : جعفر

وعليكم السلام 🙂 اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا: application.followhyperlink strFile جعفر

ابحث في المنتدى ، وسترى الكثير 🙂 جعفر

همممم رجاء الرجوع الى البرنامج الاصل الذي اخذت الكود منه ، فهذه الدوال خاصة بذلك البرنامج ، ولا نعرف عنها شيء 🙂 لأني شايف دالة IsNoPath كذلك 🙄 جعفر

رسالة الخطأ تقول بأنها لم تحصل على الدالة isnothing !! فهل هي موجودة في الكود عندك ؟ او يمكن انك نسخت الكود هذا من برنامج آخر ، ونسيت ان تنسخ الدالة isnothing !! وجدت الدالة هنا : https://www.youtube.com/watch?v=MItoTRM8-kw فنسختها من الفيديو وكتبتها هنا لتسهيل الامر ، لهذا السبب فأنا لا علاقة لي مع الدالة 🙂 اعمل وحدة نمطية جديدة ، ثم احفظ هذه الدالة هناك : Public Function IsNothing(ByVal V) As Integer On Error GoTo nerr IsNothing = True Select Case VarType(V) Case 0 'empty GoTo fext Case 1 'null GoTo fext Case 2, 3, 4, 5, 6 'int, long, single, double, currency If V <> 0 Then IsNothing = False Case 7 'date/time IsNothing = False Case 8 'string If (Len(V) <> 0 And V <> " ") Then IsNothing = False End Select fext: On Error GoTo 0 Exit Function nerr: IsNothing = False Resume fext End Function جعفر

وعليكم السلام 🙂 1. ماهي رسالة الخطأ ؟ 2. رجاء لا تضع الصورة للشاشة كاملة ، فلا نستطيع قراءة الكود (جرب انت بنفسك وحاول تشوف الصورة المرفقة اعلاه 🙂 ) ، وإنما اقطع الصورة ، وضع الجزء المهم منها 🙂 او طبعا تقدر تضع نسخة من الكود. جعفر

وعليكم السلام 🙂 المشكلة مو في فتح التقرير ، ولا متغيرات ، وانما أمر اغلاق النموذج غير كامل ، لذا يجب ان يكون الامر هكذا : DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, "واجهه البرنامج",acsaveno او الافضل ان لا تذكر اسم النموذج بالاسم ، وانما بمناداة اسمه DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, me.name ,acsaveno جعفر

وعليكم السلام 🙂 تم نقاش هذا الموضوع في الرابط التالي ، والذي به رابط آخر كذلك : جعفر

🙂