مشکل در خواندن اطلاعات از فایل اکسس

[MMR_1344]

با سلام
من برنامه ای برای خواندن اطلاعات از فایل اکسس و افزودن اون به کمبوباکس دارم مینویسم نمیدونم چرا بعد از خواندن اطلاعات مربوط به فیلد Name نمیتونه اطلاعات موجود در فیلد Famili رو بخونه فایل ژیوست شده

[akbarg64]

سلام.موفق باشید

[MMR_1344]

دوست عزیز
این برنامه شما فقط نام رو میاره من میخوام نام و فامیل رو درون کمبو باکس قرار بدم
در خط بعد از

Name=Rec1![Name]
Famili=Rec1![Famili]
هم وجود داره که اگه اون رو به برنامه اضافه کنی ارور میگیره

[M.T.P]

Private Sub AddComboBox()
On Error GoTo GO1
Dim Name As String
Dim Famili As String
Set Cn = New ADODB.Connection
AdoData
Com.Clear
Set Rec1 = New ADODB.Recordset
Rec1.Open "Select * from Personel", Cn, adOpenStatic, adLockReadOnly
While Not Rec1.EOF
If Not IsNull(Rec1![Name]) Then
Name = Rec1("Name").Value
Famili = Rec1("Famili").Value
Com.AddItem Name & " " & Famili
Rec1.MoveNext
End If
Wend
Exit Sub
GO1:
MsgBox Err.Description
End Sub

[MMR_1344]

دوست عزیز تغییرات شما رو هم اعمال کردم اما الان مشکن نشناختن اون سلول رو داره فایل رو ضمیمه کردم

[M.T.P]

دقیقا همه کد من رو جایگزین سابروتین AddComboBox کنید مشکلتون حل میشه.

[MMR_1344]

دوست عزیز در فایل ضمیمه اینکار رو کردم و باز با مشکل روبروست محبت کن اون رو ببین

[M.T.P]

دوست عزیز در فایل ضمیمه اینکار رو کردم و باز با مشکل روبروست محبت کن اون رو ببین

فایل ضمیمه شما رو دیدم همه تغییراتی که من اعمال کردم شما اعمال نکردید ، یک بار دیگه از اول مقایسه کنید :چشمک: