استفاده از دستور رکوردست

[mahsa.admin]

از اساتید خواهش میکنم به فایل ضمیمه نگاهی بی اندازن

[zzzzzza]

کدام فایل؟

[mahsa.admin]

ببخشید فراموش کردم

[mahsa.admin]

واقعا راه حلی نیست

[mahsa.admin]

راه حلی دوستان ندارند

[amirzazadeh]

واقعا راه حلی نیست
سلام
در فايل ضميمه با استفاده از دستورات زير خواسته شما اجرا شده اميدوارم به دردتون بخوره:

Dim x As Integer

Set db1 = CurrentDb
Set rst1 = db1.OpenRecordset("select * from e where b=126")
With rst1
Do Until rst1.EOF
x = x + 1

Select Case x
Case Is = 1
A = rst1.Fields(3)
B = rst1.Fields(2)
Case Is = 2
C = rst1.Fields(3)
D = rst1.Fields(2)
Case Is = 3
E = rst1.Fields(3)
F = rst1.Fields(2)
End Select
rst1.MoveNext
Loop
End With
.............................
موفق باشيد

[mahsa.admin]

عالی بود واقعا متشکرم وبابت مبا حث پیش امده معذرت میخواهم