ник: Дядя Федор
MatCode = Me.КодМатериала 'это число
MatName = Me.НазваниеМатериала 'это строка
GroupName = Me.НазваниеГруппы 'это строка
Prim = Me.Примечание
'SQL Изменена Материалы.НазваниеМатериала) =' " & MatName & " '
StrSQL = "SELECT Материалы.ГруппаМатериала, Материалы.НазваниеМатериала, Материалы.Примечание_
FROM Материалы WHERE (((Материалы.ГруппаМатериала)=' " & GroupName & " ') AND ((Материалы.НазваниеМатериала) =' " & MatName & " ') AND _
((Материалы.Примечание) =' " & Prim & " '));"
'ГДЕ ЗДЕСЬ должен применяться MatCode?
Set rst = CurrentDb.OpenRecordset(StrSQL)
If rst.EOF = False And rst.BOF = False Then
Set rst = Nothing
MsgBox "Тра-ля-ля"
End If
ЗЫ Дублирование записей можно исключить на уровне таблицы с помощью уникального ключа (см.вложение)