[محمود اكرم]

كيف بعيدة
[ATTACH=CONFIG]2923[/ATTACH]
مع بعض الاخفاء

[wolf1120]

محمود اكرم كتب :كيف بعيدة
[ATTACH=CONFIG]2923[/ATTACH]
مع بعض الاخفاء

عدلي المثال اد كان الكود يعمل صحيح

[محمود اكرم]

سلام عليكم
الصراحة انا ما بستعمل vb6 بس من اجلك نصبته
وهذا الكود بعد تعديل بسيط

إقتباس :Private Sub Command1_Click()
Text3.Text = ""
Data1.Recordset.MoveFirst
xyz:
If Data1.Recordset.EOF = True Then
Exit Sub
Else
If Combo1.List(Combo1.ListIndex) = Text1.Text Then
If Text3.Text = "" Then
Text3.Text = Text2.Text
Else
Text3.Text = Text3.Text & vbNewLine & Text2.Text
End If
End If
Data1.Recordset.MoveNext
GoTo xyz
End If
End Sub
Private Sub Form_Activate()
xxx:
If Combo1.ListCount = Data1.Recordset.RecordCount Then
Combo1.ListIndex = 0
Exit Sub
Else
Combo1.AddItem Text1.Text
Data1.Recordset.MoveNext
GoTo xxx
End If
End Sub

[wolf1120]

محمود اكرم كتب :سلام عليكم
الصراحة انا ما بستعمل vb6 بس من اجلك نصبته
وهذا الكود بعد تعديل بسيط

متشكر كثير اخي محمود على التجواب معي لكنك خارج تما عن سؤالي
انا اريد فلتر وما دخل text1 , text2 , text3 في الموضوع انا لديا combo1 يحمل اسم المزود عند الضغط على زر filter اريده ان يعرص لي عدد الفواتير لاسم المزود في combo2 فقط لا اكثر


الرجاء من ذوي الخبرة في المنتدي تعديل هذ السورس

[محمود اكرم]

اخي العزيز هذا هو طلبك
333 With Edit.rar
ارجو انه هو المطلوب

[wolf1120]

محمود اكرم كتب :اخي العزيز هذا هو طلبك
333 With Edit.rar
ارجو انه هو المطلوب

الله يعطيك ماتتنمناه هذ هو المطلو ب بـــــــــــــــــــــــــــــــــــــــــــرك الله فيك وجعله الله في ميزانك حسنات