[решено] Что-бы не повторялись данные в Access 2003

Задайте использование:

Цитата:

Цитата easteuropean

поле1 - "Название компании" »

в качестве первичного ключа. При попытке внести дубликат будет получено сообщение:

Скрытый текст

Более сложный метод, с использованием VBA — для отображения собственного сообщения, приведён непосредственно в документации в описании события формы «Error Event»:

Скрытый текст

Код:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    Const conDuplicateKey = 3022

    Dim strMsg As String



    If DataErr = conDuplicateKey Then

        Response = acDataErrContinue

        strMsg = "Each employee record must have a unique " _

            & "employee ID number. Please recheck your data."

        MsgBox strMsg

    End If

End Sub