jjafferr

نعم هذه مشكلة الاوفيس مع البرامج اللي ما تثق فيها !! جرب البرنامج الآخر : 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 جعفر

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

🙂

وعليكم السلام 🙂 1- الكل 2- اي شيء بين هذه العلامتين هو نص 3- نهاية السجلات 4- مرجع ، سواء الى مكان السجل في النموذج ، او في نسخة سجلات النموذج (انظر الرقم 5) 5- اشارة الى نسخة من سجلات النموذج ، في ذاكرة الكمبيوتر المؤقته 6 و 7 - انواع المتغيرات ، وهنا شرح وافي للموضوع: جعفر

السلام عليكم 🙂 . 1. اخوي محمد قصده: 2. في الواقع يمكن عرض تصميم النماذج والتقارير ، ولكن لا يمكن عرض الكود بما فيه الوحدات النمطية. 1. كان هناك برنامج (وتوقفت الشركة عن بيعه، واصبحت الشركة تقوم بالعمل مقابل مبلغ) يقوم بالسماح لدخول النماذج والتقارير في وضع التصميم ، ويمكنك حذف/اضافة (ولا يُنصح بالحذف، فقد يكون بالكود سطر يعتمد على الكائن الذي تم حذفه ، فتحصل على رسالة خطا لا حل لها ، نعم تستطيع ان تجعل هذا الكائن الغير مرغوب فيه ، تجعله مخفي) كائنات في النموذج/التقرير ، ولكن اذا اردت ان تستعمل حدث او كود لعمل ما ، فلا تستطيع عمل ذلك بالكود ، وانما تستطيع عمل ذلك بالماكرو ، 2. سبب عدم عمل الازرار لا علاقة له بالبرنامج ، وانما قد تكون فتحته في مجلد غير آمن ، ولم تضغط على زر تمكين الكود: جعفر

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

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

🙂

وهاي طريقة ثانية EN2: Mid([Contact Name],1,InStr([Contact Name]," ")-1) جعفر

وعليكم السلام 🙂 عندك الاسم الاول والاخير في حقلين منفصلين في الاستعلام Contacts Extended : . فلماذا تريد ان تربطهم وتفكهم مرة ثانية !! استعمل حقل First Name 🙂 جعفر

🙂

الخطأ في الفرز لأنه كان يفرز حقل نص ، فاستبدلت الحرف A بالرقم 9999999999 (يعني رقم كبير) ، ثم استخدمت الدالة val لتحويل القيمة الى رقم : . ونفس الشيء في التقرير ، فطلعت النتيجة : . جعفر 1212.1.TEST_QUERY(1).accdb.zip

تم عمل تغيير على الاستعلامات مصدر بيانات التقرير : . والنتيجة . جعفر 1216.visit.accdb.zip

1. طيب وشو النتيجة ، انت ارفقت ارقام ، ولازم تشرحها ، شو الصح وليش ؟ 2. هاي مو مقبولة (نعم مقبولة لهذا الموضوع) 🙂 3. ما منه فائدة بملاحظتك رقم 2 !! 4. حياك الله أبوآمنة 🙂 جعفر

نعم ، انشئ استعلام خاص "بمعلومات المشرف" فقط ، ثم انشئ استعلام مجاميع لجدول "الزيارات" ، تجمع فيه الحقول m,q, ..... ثم اعمل استعلام ثالث ، تجمع فيه الاستعلامين اعلاه ، وهو يكون مصدر بيانات التقرير "معلومات المشرف" جعفر

اخي بلال 🙂 هناك الكثير من المواضيع في المنتدى بخصوص طلبك ، واخوي @ابوخليل شارك في الكثير منها ، فياريت تعمل بحث ، وان شاء الله تحصل على اللي تريده ، فما في داعي لإعادة العمل مرة اخرى 🙂 جعفر

ارفق مرفق به هذا الخطأ