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