تعلم واقرأ وارتقِ
[img]فورم ادراج بيانات وصور Uoou910[/img]
تعلم واقرأ وارتقِ
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تعلم واقرأ وارتقِ


 
الرئيسيةالبوابةالتسجيلدخول
غفرانك ربنا واليك المصير
رب زدني علما
سجل بالمنتدى ليظهر لك باقى المواضيع المهمه
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
علم اولادك برياض الأطفال والصفوف الأولى من التعليم الابتدائى
مجدى يونس ببورسعيد
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل arabicnet فمرحبا به

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

 

 فورم ادراج بيانات وصور

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Icon_minitimeالإثنين سبتمبر 16, 2019 1:43 pm

فورم ادراج بيانات وصور


الفيديو


الصورة


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


الكود





Dim fpath As String
Private Sub CommandButton1_Click()
Dim x As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
x = Application.FileDialog(msoFileDialogOpen).Show
If x <> 0 Then
fpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(fpath)
Image1.PictureSizeMode = 1
End If

End Sub

Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Worksheet
Set y = Sheets("sheet1")
x = y.Range("a" & Rows.Count).End(xlUp).Row
With y
.Cells(x + 1, "a").Value = Te1.Text
.Cells(x + 1, "b").Value = Te2.Text
.Cells(x + 1, "c").Value = Te3.Text
End With
Dim i As String
i = Te1.Text

FileCopy fpath, "D:\picture\" & i & ".jpg"
Me.Te1.Text = ""
Te1.Text = ""
Te2.Text = ""
Te3.Text = ""


End Sub

Private Sub UserForm_Click()

End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
 
فورم ادراج بيانات وصور
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
تعلم واقرأ وارتقِ :: تعلم الاكسل-
انتقل الى: