حسين العربى قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام سؤالي هو ان هذا الكود ( If Dir("C:\WINDOWS\MOVI.txt") = "" ThenMsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "98999999"*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*" DoCmd.QuitEnd If وضعته في فورم تسجيل الدخل يقوم هذا الكود بالبحث عن ملف في ال c اسمه movi عندما يجد هذا المف يقوم بفتح البرنامج والعكس صحيح اريد ان اجعل هذ الكود ان يعمل العكس اي بمعني اذا وجد الملف لايعمل وشكرا
ابوخليل قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 تستطيع بالكود نفسه تحقيق الشرط الكود يقول : اذا كان الملف غير موجود إذا فيكون الجواب الاول = تشغيل ، وإلا = اغلاق اما ان كنت تريد من الكود عكس هذا فيمكن تعديله على هذا النحو If Len(Dir("C:\WINDOWS\MOVI.txt") )>0 Then الكود يقول : اذا كان عدد حروف الملف اكبر من صفر ( يعني موجود) إذا فيكون الجواب الاول = اغلاق ، وإلا = تشغيل ما شاء الله اخوي حسين فكرة بديعة لم تخطر على البال من قبل 1
حسين العربى قام بنشر سبتمبر 19, 2015 الكاتب قام بنشر سبتمبر 19, 2015 شكرا اخي الفاضل ابو خليل علي مرورك الطيب لوسمحت اخي الفاضل ابو خليل التعديل علي الكود ليتناسب مع اذا كان الملف غير موجود إذا فيكون الجواب الاول = تشغيل ، وإلا = اغلاق 1
محمد سلامة قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 هذا هو الكود المعدل اخى الكريم وهو من مشاركة استاذنا ابوخليل If Len(Dir("C:\WINDOWS\MOVI.txt") )>0 Then
ابوخليل قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 اخي حسين كودك الذي عرضته بالمشاركة الاولى يحقق طلبك If Dir("C:\WINDOWS\MOVI.txt") = "" Then MsgBox "يعمل" Else MsgBox "لا تعمل" End If ايضا الكود الثاني والذي عرضه الاستاذ محمد If Len(Dir("C:\WINDOWS\MOVI.txt")) > 0 Then MsgBox "لا يعمل" Else MsgBox "اعمل" End If 1
محمد سلامة قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 استاذنا ابوخليل الكود الاول لايعمل اما الكود الثانى يعمل بنجاح
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.