كود بحث بالاسم من خلال كمبوبوكس

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم 

بعد التحية

المطلوب ان شاء الله

كود لوضعوه فى الكمبوبوكس الخاصة البحث بالاسم فى الفورم

ولكم جزيل الشكر والتقديركود البحث.rar

[خزاني]

 

 

كود البحث.rar

[جلال الجمال_ابو أدهم]

بعد اذن اخى / خزاني

 

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

 

تابع المرفق _

 

تعديل كود البحث 

 

او تحميل مباشر تعديل كود البحث

[طارق زكريا حسين جاه الرسول]

الملف لايعمل

[طارق زكريا حسين جاه الرسول]

للرفع

للرفع

للرفع

[جلال الجمال_ابو أدهم]

شاهد المرفق

Classeur1طباعة فورم_بحث بالاسم.rar

[طارق زكريا حسين جاه الرسول]

ياسيدى الملف لايعمل

[جلال الجمال_ابو أدهم]

ياسيدى الملف لايعمل

حاول تجرب على كمبيوتر اخر

 

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

[طارق زكريا حسين جاه الرسول]

اطلب منك طلب ان ترسل الكود الخاص بالبحث

[جلال الجمال_ابو أدهم]

كود طباعة الفورم

عمل زر طباعه بالفورم

اضف له الكود التالى

 

Private Sub CommandButton10_Click()
Me.PrintForm
End Sub

و للبحث بالاسم

 

بدل الكود و الخاص بزر التعديل

Private Sub CommandButton6_Click()

بالكود التالى

 

Private Sub CommandButton6_Click()

sheet1.Activate

ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox5

ActiveCell.Offset(0, 3).Value = TextBox13
ActiveCell.Offset(0, 4).Value = TextBox14
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox12
'''ActiveCell.Offset(0, 7).Value = TextBox7
'''ActiveCell.Offset(0, 8).Value = TextBox8
'''ActiveCell.Offset(0, 9).Value = TextBox9
'''ActiveCell.Offset(0, 10).Value = TextBox1
 
ActiveCell.Offset(0, 12).Value = TextBox21
ActiveCell.Offset(0, 13).Value = TextBox22
ActiveCell.Offset(0, 14).Value = TextBox16
ActiveCell.Offset(0, 15).Value = TextBox20
''''ActiveCell.Offset(0, 16).Value = TextBox17
''' ActiveCell.Offset(0, 17).Value = TextBox18
''' ActiveCell.Offset(0, 18).Value = TextBox19
'''ActiveCell.Offset(0, 19).Value = TextBox15

ActiveCell.Offset(0, 21).Value = TextBox29
ActiveCell.Offset(0, 22).Value = TextBox30
ActiveCell.Offset(0, 23).Value = TextBox24
ActiveCell.Offset(0, 24).Value = TextBox28
''' ActiveCell.Offset(0, 25).Value = TextBox25
'''ActiveCell.Offset(0, 26).Value = TextBox26
''' ActiveCell.Offset(0, 27).Value = TextBox27
''' ActiveCell.Offset(0, 28).Value = TextBox23

'''ActiveCell.Offset(0, 3).Value = ComboBox1
''''ActiveCell.Offset(0, 4).Value = ComboBox2
'''ActiveCell.Offset(0, 5).Value = ComboBox3

MsgBox "تم تسجيل التعديلات"

End Sub

 

و فى كود زر العرض بدل A الى   B

 

 

و مرفق ملف اخر لعله يفتح عندك

كود البحث بلاسم.rar

[طارق زكريا حسين جاه الرسول]

اولا اشكرك بحرارة  استاذ 

جلال الجمال_ابو أدهم

لهتمامك بالموضوع ولاكن

اريد منك حاجة بسيطة حتى يكتمل البرنامج عندى

جعل البجث من خلال كموبوكس وليس تكسيت بوكس (اى )اختار اسم من داخل الكمبوبوكس

[hafez81]

مشكوررررررررررررررررررررررررررر

[محمد علي الطيب]

اولا اشكرك بحرارة  استاذ 

جلال الجمال_ابو أدهم

لهتمامك بالموضوع ولاكن

اريد منك حاجة بسيطة حتى يكتمل البرنامج عندى

جعل البجث من خلال كموبوكس وليس تكسيت بوكس (اى )اختار اسم من داخل الكمبوبوكس

 

كود طباعة الفورم

عمل زر طباعه بالفورم

اضف له الكود التالى

 

Private Sub CommandButton10_Click()

Me.PrintForm

End Sub

و للبحث بالاسم

 

بدل الكود و الخاص بزر التعديل

Private Sub CommandButton6_Click()

بالكود التالى

 

Private Sub CommandButton6_Click()

sheet1.Activate

ActiveCell.Offset(0, 1).Value = TextBox2

ActiveCell.Offset(0, 2).Value = TextBox5

ActiveCell.Offset(0, 3).Value = TextBox13

ActiveCell.Offset(0, 4).Value = TextBox14

ActiveCell.Offset(0, 5).Value = TextBox6

ActiveCell.Offset(0, 6).Value = TextBox12

'''ActiveCell.Offset(0, 7).Value = TextBox7

'''ActiveCell.Offset(0, 8).Value = TextBox8

'''ActiveCell.Offset(0, 9).Value = TextBox9

'''ActiveCell.Offset(0, 10).Value = TextBox1

 

ActiveCell.Offset(0, 12).Value = TextBox21

ActiveCell.Offset(0, 13).Value = TextBox22

ActiveCell.Offset(0, 14).Value = TextBox16

ActiveCell.Offset(0, 15).Value = TextBox20

''''ActiveCell.Offset(0, 16).Value = TextBox17

''' ActiveCell.Offset(0, 17).Value = TextBox18

''' ActiveCell.Offset(0, 18).Value = TextBox19

'''ActiveCell.Offset(0, 19).Value = TextBox15

ActiveCell.Offset(0, 21).Value = TextBox29

ActiveCell.Offset(0, 22).Value = TextBox30

ActiveCell.Offset(0, 23).Value = TextBox24

ActiveCell.Offset(0, 24).Value = TextBox28

''' ActiveCell.Offset(0, 25).Value = TextBox25

'''ActiveCell.Offset(0, 26).Value = TextBox26

''' ActiveCell.Offset(0, 27).Value = TextBox27

''' ActiveCell.Offset(0, 28).Value = TextBox23

'''ActiveCell.Offset(0, 3).Value = ComboBox1

''''ActiveCell.Offset(0, 4).Value = ComboBox2

'''ActiveCell.Offset(0, 5).Value = ComboBox3

MsgBox "تم تسجيل التعديلات"

End Sub

 

و فى كود زر العرض بدل A الى   B

 

 

و مرفق ملف اخر لعله يفتح عندك

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

بارك الله فيكم وجزاكم خيرا علي عملكم الجميل حتى يكتمل هذا الجمال جعل البجث من خلال كموبوكس

اتمنى لك التوفيق..........