من يخترع لي هذا الكود وله كامل ووافر الشكر

عند الضغط قم بالبحث اما في قاعدة بيانات وقم بتعبئة القيم في ال List المقابل او قم باعادة تعبئها بالكود

ربما اقوم بصنع مثال لذلك قريبا حيث انة يحتاج الى وقت وللأسف لا أملك سوى القليل

أرجو أن يكون ما تريد ولا تنساني من دعائك

list1.2.3_A.zip

الله يوفقك في دنياك واخرتك وجزاك الله خير يا معلم booknet

مع الشكر والتقدير بس الكود فيه خطا بسيط اظن في الربط ولكن لم يعمل معي الى الان مع الشكر والتقدير وآسف للازعاج

Data1.Refresh

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF

List1.AddItem Data1.Recordset("Cuntry")

Data1.Recordset.MoveNext

Loop

Data1.Refresh

List1.ListIndex = 0

وكذلك

Data1.Recordset.FindFirst "Cuntry = '" & List1.Text & "'"

وهل ممكن تداني كيف تربطون DATA مع اكسس 2000

أخي العزيز العفو

البرنامج والكود يعمل معي بصورة جيدة واعتقد ان الخطاء في أنك لم تجعل الداتا التي أرستلها مع البرنامج المهم هل ممكن تقول لي ماهي رسالة الخطاء بالضبط.

أما عن طريقة ربط الداتا بالأكسس 2000 فإذا كانت بالكود فلا أعتقد انه هناك خلاف بينها وبين 97 أو 2002 أو XP

أما عن طريق الداتا كنترول فتغير "Connenct" الى الأكسس المطلوب

وشكرا

http://www.arabteam2000.com/picload/Files/...140.3700525.jpg

ارجو ارفاق الملف بعد الحل ولو فيه مشقة

هذا يعني أن البرنامج لم يتعرف على الداتا

من الخصائص اضغط على "DatabaseName" واختار الداتا وإن شاء الله تنحل المشكلة

السلام عليكم

من الافضل دائـما و ضع قاعدة البيانات في نفس مسار البرنامج ثم قل :

 
Data1.DatabaseName = (app.path & "/URDataBaseName" )

لكم ولمروركم كامل الشكر

وبعد العمل بنصائحكم التي تفضلتم بها ما زالت اعني نفس المشكلة

عطفا على مشكلة

Data1.Refresh

Private Sub List1_Click()

Data1.Recordset.FindFirst "Cuntry = '" & List1.Text & "'"

End Sub