[محمود اكرم]

سلام عليكم
الصراحة انا ما بستعمل 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