مشكل كد زير چيست؟

[hrj1981]

Dim i As Integer
Dim ids As String
Dim dates As String
Dim j As Long
j = 0
Filenum = FreeFile
Close #Filenum
Open App.Path & "\chs.txt" For Output As #Filenum
Write #i, ids, dates
For j = j + 1 To Adodc1.Recordset.RecordCount
i = Adodc1.Recordset.Fields(0).Value
ids = Adodc1.Recordset.Fields(1).Value
dates = Adodc1.Recordset.Fields(2).Value
Adodc1.Recordset.MoveNext
Next
Close #Filenum

[vbhamed]

سلام

مشكل رو كه شما بايد بگيد
ولي از متغير i هم استفاده خاصي نشده

[ASKaffash]

با سلام
این کد یه جوریه برایتان قرمز کردم
Dim i As Integer
Dim ids As String
Dim dates As String
Dim j As Long
j = 0
Filenum = FreeFile
Close #Filenum
Open App.Path & "\chs.txt" For Output As #Filenum
Write #i, ids, dates
For j = j + 1 To Adodc1.Recordset.RecordCount
i = Adodc1.Recordset.Fields(0).Value
ids = Adodc1.Recordset.Fields(1).Value
dates = Adodc1.Recordset.Fields(2).Value
Adodc1.Recordset.MoveNext
Next
Close #Filenum
در ضمن ارتباط حلقه با نوشتن در فایل چیست ؟

[j.farazani]

سلام

اگه بگید مشکلی که خودتون با کدتون دارید چیه شاید بیشتر بشه کمک کرد

ممنون

[zacaria]

سلام
اگه اشتباه نکنم این یکی از تمرینات آخر فصل کتابتون باید باشه! درست حدس زدم؟
نمی دونم پرسیدن پاسخ تمرینات درسی جایز هست یا نه!
موفق باشید