كود لجلب ثلاثة صور بنوذج واحد

[محمد التميمي]

الاستاذ جعفر السلام عليكم

طلبت كد لجلب ثلاثة صور بنوذج واحد وزودني احد الاخوة الاعضاء الافاضل بالكد المرفق 

لاكن فيه مشكلة تظهر بين الحين والاخر كما موضح بالصورة المرفقة

ارجوا من جنابكم الكريم التعديل على الكد بما تراه مناسباً

ولكم جزيل الشكر..

 

 

 

New Microsoft Access Database.rar

[ابو ياسين المشولي]

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

الاستاذ جعفر السلام عليكم

طلبت كد لجلب ثلاثة صور بنوذج واحد وزودني احد الاخوة الاعضاء الافاضل بالكد المرفق 

لاكن فيه مشكلة تظهر بين الحين والاخر كما موضح بالصورة المرفقة

ارجوا من جنابكم الكريم التعديل على الكد بما تراه مناسباً

ولكم جزيل الشكر..

 

 

 

New Microsoft Access Database.rar

اخي الكريم

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

تم تعديل سبتمبر 5, 2018 بواسطه ابو ياسين المشولي

[محمد التميمي]

10 دقائق مضت, ابو ياسين المشولي said:

اخي الكريم

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

اخي ابو ياسين موجود ومرتب كل ما قلت ولاكن مع ذلك يظهر الخطاء 

 

 

 

 

تم تعديل سبتمبر 5, 2018 بواسطه محمد التميمي

[jjafferr]

اخي محمد

 

لم تخبرنا برقم الخطأ !!

 

على العموم جرب هذا التغيير ، وما قدرت اكتب اسم الحقل بالعربي ، لأنه قلب السطر والكود اصبح ما ينقرأ !!

aaa= عنوان الصورة

بدل
if isnull(me.[aaa]) then


جرب
if len(me.[aaa] & "")=0 then

 

 

جعفر

[ابو ياسين المشولي]

4 دقائق مضت, jjafferr said:

اخي محمد

 

لم تخبرنا برقم الخطأ !!

 

على العموم جرب هذا التغيير ، وما قدرت اكتب اسم الحقل بالعربي ، لأنه قلب السطر والكود اصبح ما ينقرأ !!

aaa= عنوان الصورة

بدل
if isnull(me.[aaa]) then


جرب
if len(me.[aaa] & "")=0 then

 

 

جعفر

الخطاء اخي جعفر

ان الاخ محمد لم يرتب المجلدات بالاسم الصحيح

D:\مصطفى\الصور\تحليل بيانات العيادة\اكرم.jpg

انظر الى ترتيبها في الجدول

[محمد التميمي]

الاستاذ جعفر والاستاذ ابو ياسين

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

والنتيجة جيدة جداً 

شكراً جزيلاً واطال الله باعماركم للخير والصلاح

تم تعديل سبتمبر 5, 2018 بواسطه محمد التميمي

[jjafferr]

كما انه لا يوجد لديك كود لإصطياد الخطأ ، فكودك مفروض يكون شيء من هذا القبيل:

Private Sub Form_Current()
On Error GoTo err_Form_Current

	dim lntWhereAmI as integer

	lntWhereAmI=1
	Me![ImageFrame1].Picture = Me![ImagePath1]

	lntWhereAmI=2
	Me![ImageFrame2].Picture = Me![ImagePath2]
    
Exit Sub
err_Form_Current:

    If Err.Number = 2220 Or Err.Number = 13 Then
 		
		if lntWhereAmI=1 then 
        	Me.ImageFrame1.Picture = ""
		elseif lntWhereAmI=2 then
			Me.ImageFrame2.Picture = ""
		end if

    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

[ابو ياسين المشولي]

1 دقيقه مضت, محمد التميمي said:

الاستاذ جعفر والاستاذ ابو ياسين

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

والنتيجة جيدة جداً 

شكراً جزيلاً واطال الله باعماركم للخير والصلاح

بالتوفيق اخي