الحقول الخالية مع اللست بوكس

هذا الكود لملىء ال listbox بالبيانات مع عدم التكرار

والمطلوب التعديل او الإظافة على الكود بحيث لاتظهر الحقول الخالية أي لايظهر رقم التلفون للأسماء الخالية ( اي اذا كان المستخدم أدخل هواتف اسم ولكن لم يدخل الإسم نفسه فلا يظهر اي بيانات الا بعد إدخال الإسم )

مع اجمل تحيه

With tb

.MoveFirst

Do While Not .EOF

List1.AddItem " " & !Name + " هاتف رقم/" & !hmt

.MoveNext

Loop

.Filter = adFilterNone

End With

For i = List1.ListCount - 1 To 0 Step -1

For j = List1.ListCount - 1 To i + 1 Step -1

If List1.List(i) = List1.List(j) Then List1.RemoveItem j

Next j

Next i