yuriuss

Народ, никак не получается!!!
И как если нашел сделать ее текущей???
Поделитесь куском кода! Очень надо!!!
Вот что у меня есть:

Dim objAccess As Object
Dim db As Object
Dim tb As Object
Dim rs As Object
Dim i As Integer, n As Integer

Set objAccess = GetObject('test.mdb')
objAccess.UserControl = False
objAccess.Visible = False
Set db = objAccess.currentdb
Set tb = db.tabledefs('TB_TEST')
Set rs = db.openrecordset('TB_TEST')

rs.MoveFirst

а что дальше??? Пробовал FindFirst но он не работает. Хотя может я просто не так записал!?
Как будет правильно???
Может есть способ альтернативный FindFirst'у ?
P.S. просто мне это нужно для Апдейта определенных полей в нужной строке.

Заранее спасибо!!!

slavasl

Привет я взял твой пример и добавил туда цикл
на всякий случай ещё поставил изменение и добавление.
Вдруг пригодиться ))
Проблема была в том что ты не определил ссылку на вид считываемых данных
надо Set rs = db.openrecordset('Customers', dbOpenDynaset)
Если вопросы будут пиши на мыло

Dim objAccess As Object
Dim db As Object
Dim tb As Object
Dim rs As Object
Dim i As Integer, n As Integer

Set objAccess = GetObject('c: est.mdb')
'=objAccess.UserControl = False
objAccess.Visible = True
'Set db = objAccess.currentdb
Set db = objAccess.currentdb
Set tb = db.tabledefs('Customers')
Set rs = db.openrecordset('Customers', dbOpenDynaset)

Crit = 'CompanyName='Alfreds Futterkiste''

Do While Not rs.NoMatch
rs.FindFirst Crit
test = rs('CustomerID')
MsgBox test
' Izmenenie znacenij
rs.Edit
rs('CompanyName') = 'Alfreds Futterkiste'
rs.Update
'''''''''''''''''''''''''''''''''''''''''''''''''' '''
'dobavlenie novih znacenij
rs.AddNew
rs('CustomerID') = 'VS'
rs('CompanyName') = 'Vjatseslav Stserbakov'
rs.Update
'''''''''''''''''''''''''''''''''''''''''''''''''' '''
rs.FindNext Crit
Loop
db.Close