ник: SergeyKV
Нет я все равно не понимаю почему запись не становится текущей... Опять та же ошибка в строчке с id ( ругается на id)
Private Sub НазваниеКомпании_AfterUpdate()
Dim rs As Object
Dim strSearchName As String
' On Error Resume Next
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 ' îáíîâëåíèå ôîðìû
Set rs = Me.RecordsetClone
strSearchName = Me!НазваниеКомпании
rs.FindFirst "[id] = " & strSearchName
If rs.NoMatch Then
MsgBox "Record not found"
Else
Me.Bookmark = rs.Bookmark
End If
rs.Close
End Sub
|
Скажите опять что все неправильно....