اريد كود يبحث عن ملف داخل الجهاز لتامين قاعدة البيانات

[ali2017]

الاخوة الكرام  اريد كود في نموذج الشاشة الرئيسية  يبحث عن  ملف معين   في حال وجده   تفتح قاعدة البيانات   والا    يقوم بغلقها

 

انا جربت  طريقة زرع ملف  التي ذكرها الاخوه  بالمنتدى ولكن  على  اكسيس 2007  لا تعمل وتظهر لي رسالة  خطأ

 

 

db2017.rar

[محمد ايمن]

تفضل اخي الكريم

الملف في المثال هو ملف نصي txt اسم الملف 1

قم بانشاء ملف نصي باسم (1) و ضعه في القرص D

طبعا يمكنك تعديل الكود كما ترغب

db2017.rar

[ali2017]

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

 

الباقي بقى    عاوز كود يدور على  كائن داخل قاعدة البيانات  لو مش موجود بالسلامة  يقفل          هاااااااا   الاقي عندك  ؟؟؟؟؟ اكيد هلاقي ان شاء الله

[محمد ايمن]

ما هو نوع الكائن الذي تريد البحث عنه ؟؟

جدول ام استعلام ام نموذج الخ

[ali2017]

نموذج       تقرير     جدول

[محمد ايمن]

تفضل اخي الكريم

المثال التالي يتحقق من الآتي

1- وجود ملف نصي ضمن الكومبيوتر 

اسم الملف 1 و مكان الملف القرص D

2- وجود جدول باسم tb1

3- وجود نموذج باسم frm1

4- وجود تقرير باسم rep1

وعند وجود اي خلل في الشروط الاربعة يتم انهاء البرنامج

db2017.rar

[ali2017]

تسلم  ايدك  محمد بيه

 

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

User not definded

[محمد ايمن]

اذا قمت بنسخ الكود الى قاعدة بيانات قم بتنفيذ التالي

ادخل الى محرر الفيجوال بيسك ثم tools - references

اضف المكتبة التالية الى برنامج

 

[ali2017]

ربنا ما يحرمني منك يا رب   ويجزيك كل خير      تسلم حبيبي

 

جاري التنفيذ

 

[سلمان الشهراني]

في ٣‏/٤‏/١٤٣٨ هـ at 20:26, محمد ايمن said:

تفضل اخي الكريم

الملف في المثال هو ملف نصي txt اسم الملف 1

قم بانشاء ملف نصي باسم (1) و ضعه في القرص D

طبعا يمكنك تعديل الكود كما ترغب

db2017.rar

رائع ولكن اخي محمد عند نقل الكود عطي خطاء الصوره بالمرفق

[محمد ايمن]

اخي الكريم عليك فقط اضافة المكتبة الموضحة في الصورة السابقة

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته.

أخي الأستاذ محمد أيمن بعد إذنك أريد المشاركة معكم في هذا الموضوع:

يمكن أيضا تنفيذ البحث عن ملف داخل الجهاز بهذا الكود:

If Dir("D:\1.txt") = "" Then
MsgBox "عذرا ملف الحماية غير موجود", vbCritical
Quit
End If

 

 

[سلمان الشهراني]

58 دقائق مضت, محمد ايمن said:

اخي الكريم عليك فقط اضافة المكتبة الموضحة في الصورة السابقة

الله يعطيك  العافيه

 

 

9 دقائق مضت, صالح حمادي said:

السلام عليكم و رحمة الله تعالى و بركاته.

أخي الأستاذ محمد أيمن بعد إذنك أريد المشاركة معكم في هذا الموضوع:

يمكن أيضا تنفيذ البحث عن ملف داخل الجهاز بهذا الكود:

If Dir("D:\1.txt") = "" Then
MsgBox "عذرا ملف الحماية غير موجود", vbCritical
Quit
End If

 

 

جميل جدا

[ali2017]

منذ ساعه, صالح حمادي said:

السلام عليكم و رحمة الله تعالى و بركاته.

أخي الأستاذ محمد أيمن بعد إذنك أريد المشاركة معكم في هذا الموضوع:

يمكن أيضا تنفيذ البحث عن ملف داخل الجهاز بهذا الكود:

If Dir("D:\1.txt") = "" Then
MsgBox "عذرا ملف الحماية غير موجود", vbCritical
Quit
End If

 

 

شرفت الموضوع اخ صالح   بارك الله  فيك

[صالح حمادي]

1 دقيقه مضت, ali2017 said:

شرفت الموضوع اخ صالح   بارك الله  فيك

و فيك بارك الله أخي

 

[محمد ايمن]

في ٧‏/١‏/٢٠١٧ at 00:16, صالح حمادي said:

السلام عليكم و رحمة الله تعالى و بركاته.

أخي الأستاذ محمد أيمن بعد إذنك أريد المشاركة معكم في هذا الموضوع:

يمكن أيضا تنفيذ البحث عن ملف داخل الجهاز بهذا الكود:

If Dir("D:\1.txt") = "" Then
MsgBox "عذرا ملف الحماية غير موجود", vbCritical
Quit
End If

 

 

تحية طيبة اخي صالح

في بعض الاحيان هذا الكود لا يعمل و بالتالي يتخطى الحماية وهذا ما دفني للبحث عن كود بديل

[صالح حمادي]

9 ساعات مضت, محمد ايمن said:

تحية طيبة اخي صالح

في بعض الاحيان هذا الكود لا يعمل و بالتالي يتخطى الحماية وهذا ما دفني للبحث عن كود بديل

واضح استاذ أردت فقط أن أضيف من أجل إثراء الموضوع أستاذ محمد

[محمد ايمن]

انت تنورنا اخي صالح بارك الله فيك و جزاك كل خير

[صالح حمادي]

و فيك بارك الله أخي محمد