طارق زكريا حسين جاه الرسول قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 بسم الله الرحمن الرحيم بعد التحية المطلوب ان شاء الله كود لوضعوه فى الكمبوبوكس الخاصة البحث بالاسم فى الفورم ولكم جزيل الشكر والتقديركود البحث.rar
جلال الجمال_ابو أدهم قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 بعد اذن اخى / خزاني يوجد مشاركة لهذا الموضوع سابقا تابع المرفق _ تعديل كود البحث او تحميل مباشر تعديل كود البحث
جلال الجمال_ابو أدهم قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 شاهد المرفق Classeur1طباعة فورم_بحث بالاسم.rar
جلال الجمال_ابو أدهم قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 ياسيدى الملف لايعمل حاول تجرب على كمبيوتر اخر لانه يعمل عندى و تم تجربته
طارق زكريا حسين جاه الرسول قام بنشر مايو 14, 2014 الكاتب قام بنشر مايو 14, 2014 اطلب منك طلب ان ترسل الكود الخاص بالبحث
جلال الجمال_ابو أدهم قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 كود طباعة الفورم عمل زر طباعه بالفورم اضف له الكود التالى 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 1
طارق زكريا حسين جاه الرسول قام بنشر مايو 14, 2014 الكاتب قام بنشر مايو 14, 2014 اولا اشكرك بحرارة استاذ جلال الجمال_ابو أدهم لهتمامك بالموضوع ولاكن اريد منك حاجة بسيطة حتى يكتمل البرنامج عندى جعل البجث من خلال كموبوكس وليس تكسيت بوكس (اى )اختار اسم من داخل الكمبوبوكس
محمد علي الطيب قام بنشر سبتمبر 30, 2014 قام بنشر سبتمبر 30, 2014 اولا اشكرك بحرارة استاذ جلال الجمال_ابو أدهم لهتمامك بالموضوع ولاكن اريد منك حاجة بسيطة حتى يكتمل البرنامج عندى جعل البجث من خلال كموبوكس وليس تكسيت بوكس (اى )اختار اسم من داخل الكمبوبوكس كود طباعة الفورم عمل زر طباعه بالفورم اضف له الكود التالى 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 و مرفق ملف اخر لعله يفتح عندك السلام عليكم ورحمة الله وبركاته بارك الله فيكم وجزاكم خيرا علي عملكم الجميل حتى يكتمل هذا الجمال جعل البجث من خلال كموبوكس اتمنى لك التوفيق..........
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.