[Microformt]

الاخوه الكرام
السلام عليكم ورحمة وبركاته
اين المشكله
 عندي في قاعدة البيانات اكثر من أسم مستخدم  والقائمة تظهر اسم واحد فقط لماذا ؟
نامل المساعدة 
ولكم جزيل الشكر
 تحياتي

[مصمم هاوي]

تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء

كود :

C = rs.RecordCount

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("Select * FROM Aol")
Dim A, B, C As Integer
B = 0
C = rs.RecordCount + 1
For A = 0 To C
Combo1.List(B) = rs("Names").Value
B = B + 1
rs.MoveNext
Next A

[Microformt]

(01-05-20, 01:57 AM)مصمم هاوي كتب : تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء

كود :

C = rs.RecordCount

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("Select * FROM Aol")
Dim A, B, C As Integer
B = 0
C = rs.RecordCount + 1
For A = 0 To C
Combo1.List(B) = rs("Names").Value
B = B + 1
rs.MoveNext
Next A

 اخي العزيز
 السلام عليكم 
نفس المشكلة  كل ما اضاف المستخدم اسم جديد لا يظهر في القائمة ؟؟
 تحياتي

[مصمم هاوي]

(01-05-20, 02:03 AM)Microformt كتب :

(01-05-20, 01:57 AM)مصمم هاوي كتب : تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء

كود :

C = rs.RecordCount

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("Select * FROM Aol")
Dim A, B, C As Integer
B = 0
C = rs.RecordCount + 1
For A = 0 To C
Combo1.List(B) = rs("Names").Value
B = B + 1
rs.MoveNext
Next A

 اخي العزيز
 السلام عليكم 
نفس المشكلة  كل ما اضاف المستخدم اسم جديد لا يظهر في القائمة ؟؟
 تحياتي

كود :

Combo1.Clear
Set db = OpenDatabase(App.Path & "/db1.mdb")
Set Rs = db.OpenRecordset("Select * FROM Aol")

   If Rs.RecordCount = 0 Then
      Combo1.AddItem ""
      Combo1.Text = Combo1.List(0)
   Else

       Do Until Rs.EOF
            Combo1.AddItem Rs![Names]
            Rs.MoveNext
       Loop
   
End If
 

[karmina2012]

هذا تعديل يمكنك اضافة عدد لا نهائى من الاسماء وسوف تظهر معاك 
بدون تعب او كتابة أكود السورس مرفق