Access zapros

[fox5a]

Podskazzite kak takoj zapros realizowat w Access.Table

For Each d In Worksheets("Current").Range("a4:a34")
If d.Value = MyVariable Then
Text1 = d.Value
Else: Text1=""
End If
Next d

Kak organizowat s Recordsetom - object.Range? ili s SQLem

[GSerg]

Гы
А в чём суть? Что надо получить? А то тут просто прыгает значение text1, причём в итоге совершенно не ясно, сколько было найдено совпадений и где

[fox5a]

Chto-to wrode etogo

For Each c In Worksheets("Current").Range("c4:o4")
If c.Value >= 0 Then
c.Text = List1 '
ElseIf -200 < c.Value < 0 Then
c.Text = List2
ElseIf c.Value < -500 Then
c.Text = List3
Else: c.Text = List4
End If
Next c

End Sub