اخى الكريم ابو هادى
اخوانى الاعزاء
حقا انه عمل عظيم كما ارجو الاعتذار لتطفلى حيث انى منقطع على المنتدى منذ مدة
ولكنى انبهرت بالعمل بالبرنامج حقا جميل
جازاكم الله كل خير
اسمحوا لى هل حقل الخاص بالبحث عن الدولة مازل تحت الانشاء ام يوجد كود ناقص به ولكن كنت ابتديت اعمل Search in list box
وقد عملت انا وانت ومحمد طاهر من قبل بحث فى صب قورم اتتذكر على
على العموم جرب الكود ده وعدل فيه طبقا لرؤيتك
Private Sub SearchCountries_Change()
Dim rst As Recordset
Set rst = Me.Countries.Recordset.Clone
rst.MoveFirst
rst.FindFirst "[EngStateName] Like'" & Trim(Me.SearchCountries.Text) & "*" & "'"
If rst.NoMatch Then
MsgBox "No entry found.", vbInformation
Else
Me.Countries.Value = rst.AbsolutePosition + 1
SendKeys "{F2 2}"
End If
rst.Close
Set rst = Nothing
End Sub