تصميم وعمل اكواد فورم ادخال

[زهرة122]

2.xlsm

[عبدالفتاح في بي اكسيل]

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

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

2.xlsm

[عبدالفتاح في بي اكسيل]

اخت زهرة  هل  تقصدين  بمجرد البحث  عن  رقم  الروشيتة  تظهر  صورتها  ام  ماذا 

[زهرة122]

اريد طريقة ظهورها فى الفورم ارفعها ازاى من الجهاز على الفورم او ملف الاكسل

[عبدالفتاح في بي اكسيل]

اخت زهرة  لقد  ادرجت صورة تشرح  كيفية اظهار  الصورة في  الفورم  لبرنامج  قمت بتصميم  اذا  كان  هذا  ما تريديه  سارفق لك الكود 

[عبدالفتاح في بي اكسيل]

اخت زهرة   هل  هذا  ما  تريدينه     

[زهرة122]

نعم بالضبط

[عبدالفتاح في بي اكسيل]

اخت زهرة  ضعي  هذا  الكود  في  حدث textbox1 واتبعي  نفس  خطوات  الشرح  في  الصورة 

Private Sub TextBox1_Change()
    If Len(Dir(ThisWorkbook.Path & "\" & TextBox1.Value & ".jpg")) > 0 Then
        Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & TextBox1.Value & ".jpg")
    Else
        Image1.Picture = LoadPicture("")
    End If
End Sub