مشكلة فى الاتصال

طب حد يقول اى حاجة

اخى سلام عليكم

اخى بالنسبه لربط قاعدة البيانات فى الفورم التانيه اعتقد انك لابد ان تستخدم داله app حتى تعيد نفس مسار قاعدة البيانات الموجوده فى المرفق اما بالنسبه للصوره عليك بإضافة image وتجعل الخاصيه بتاعة visible =false

وتقوم بكتابة هذا الكود

فى كوماند اختيار الصوره

On Error GoTo wael
	CMD.ShowOpen
	'CMD.Filter = "aBeD@soft|*.waBeD|"
	CMD.Filter = "gifÕæÑ|*.gif|bmpÕæÑ|*.bmp|"
	If CMD.CancelError = True Then Exit Sub
   If CMD.FileName = "" Then Exit Sub
   ' Form3.Show
	Image2.Picture = LoadPicture(CMD.FileName)
   Form3.Image1.Picture = LoadPicture(CMD.FileName)
	Image1.Picture = LoadPicture(CMD.FileName)
   ' f = True
   If Image2.Height >= 3900 Or Image2.Width >= 3615 Then MsgBox "": Exit Sub
   Exit Sub
wael:
If Err.Number = 481 Then Exit Sub

جرب ورد عليا

بالتوفق ان شاء الله

اخي الكريم وائل

انا جربت كما قولت ولم يفلح معى تظل نفس المشكلة والمثال مرفق للعايز يجرب لحلة

وبالنسبة للصورة مش هو دة المطلوب

انا عايز احدد حجم معين للصورة مزيدش عنها علشان حجم قاعدة البيانات ميكبرش على الفاضى يعنى مثلا يكون اقصى حجم للصورة 500ك ب

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

اخى الموضوع بسيط ايضا ان شاء الله

قم بحذف الكود ده

اقتباس

'If Image2.Height >= 3900 Or Image2.Width >= 3615 Then MsgBox "": Exit Sub

وضع مكانه الكود ده

If FileLen(CMD.FileName) >= 6000 Then MsgBox "": Exit Sub

حيث ان الرقم 6000 تقدر تقوم بتغيره بالتوفيق ان شاء الله

اخى انا قمة لك بالرفع بعد التعديل لكن البحث ليس :wacko: :wacko: :wacko: :wacko: خالص

بالتوفيق ان شاء الله

tel0.rar

شكرا لك اخ وائل على مساعدتي

بس انا كنت محتاج لحل مشكلة المسار اكتر لانها تقف عقبة امامى لم اقدر اتغلب عليها

ومش عارف لماذا لم يقم احد لحل المشكلة

اخى الم تحل مشكلة المسار ؟؟؟؟؟؟؟؟؟

برجاء الحل لماذا لم يرد عليا احد

انا متشكر جدا لك اخى وائل وحتى الان لم اقم بحلها انا حاولت وبحاول وربنا يسهل يمكن اوصل لحل ان شاء الله

اخى على فكره البرنامج شغال معايا تمام بعد السجل الجديد او بدون سجل جديد

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

اولا البرنامج عارف مسار قاعدة البيانات المرفقه فى نفس المجلد فيقوم بالفتح والتعامل مع قاعدة البيانات

وذا قمنا باختيار صورة بواسطة الكوماند دايلوج فالبرنامج الان وبعد إضافة الصورة يذهب الى مسار الصورة يبحث عن قاعدة البيانات فيخطئ

ولاعاده الى صوابه

يجب استعمال دالة APP.PATH حتى يعيد المسار الى المكان الذى يوجد به البرنامج وايضا يوجد قاعدة البيانات

اتمنى ان اكون قد وصلة لك الملعلومه مع ان البرنامج شغال زى الفل والله

اشكرك اخى وائل

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

وانا جربت كودapp.path لتعديل المسار لكن لم يفلح معي نفس المشكلة تظل قائمة

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

برجاء افادتى لانى بجد تعبت وبحاول والله معى ان شاء الله

خيركم من تعلم العلم وعلمه

وشكرا

حل مشكلتك اخي بسيط جداً وهو

ضع كود الإتصال في موديول وأنته ترتاح من تغيير المسار كل مره

أرجو هذا يفيدك ..تحياتي