ник: SergeyKV
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 = "[НазваниеКомпании] = " " " & strSearchName & " " " "
If rs.NoMatch Then
MsgBox "Record not found"
Else
Me.Bookmark = rs.Bookmark
End If
rs.Close
End Sub
|
Допустим пишу в поле "слон", становится текущей записью, запись "Слон", но тот же "слон" создается как новая запись в таблице и из за этого получается куча слонов! Вот в чем проблема