Помогите написать процедуру

[ehoolu]

Помогите, плиз, у меня есть таблица Сотрудники (КодСотрудника, ФИО, Должность), форма Сотрудники(с кнопками Открыть, Создать, Закрыть), форма ПодчиненнаяСотрудники (КодСотрудника, ФИО, Должность). При нажатии кнопки Создать, открывается другая форма СведенияОСотруднике и заполняются поля-ФИО, Должность. Так вот как сделать, чтобы при нажатии кнопки ОК на форме СведенияОСотруднике не добавлялся сотрудник, данные которого уже имеются. Пишу на VBA
Рrivate Sub ОК_Click()
If Not IsNull(Me!КодСотрудника) And (IsNull(Me!ФИО) Or Me!ФИО = "") Then
MsgBox "Введите ФИО Сотрудника!", vbOKOnly + vbExclamation
Else
If ("Сотрудники.ФИО " LIKE “& Me!ФИО”) Then ‘--не работает
MsgBox "ФИО Сотрудника уже существует!", vbOKOnly + vbExclamation
Else
Forms!Сотрудники!ПодчиненнаяСотрудн ики.Form.Requery
DoCmd.Close acForm, "СведенияОСотруднике"
End If
End If
End Sub

[Abrakadabra]

Прежде чем исправлять Ваш код, попробуйте ответить сами себе на несколько вопросов (для понимания сути):

Сообщение от ehoolu

таблица Сотрудники (КодСотрудника, ФИО, Должность)

- У Вас должности сотрудников - константа, как дата рождения? Иными словами, разве сотрудник, принятый на определенную должность, не может быть переведен на другую? (подозреваю, что нужно вернуться к продумыванию структуры бд)...

Сообщение от ehoolu

If Not IsNull(Me!КодСотрудника) And (IsNull(Me!ФИО) Or Me!ФИО = "")

- Попытайтесь объяснить себе смысл этого выражения. "На всякий случай" налепили?

Сообщение от ehoolu

If ("Сотрудники.ФИО " LIKE “& Me!ФИО”) Then ‘--не работает
MsgBox "ФИО Сотрудника уже существует!", vbOKOnly + vbExclamation

- И не будет работать.. Вы где ищете?

[lg140980bav]

ehoolu, может быть, просто нужно в таблице данных о сотрудниках , добавить новое ключевое поле, обязательное к заполнению , к примеру , ИНН , а на форме СведенияОСотруднике выделить такое поле для заполнения 1-м :-)) (Ну чтоб наверняка не пропустить) при заведении нового клиента .
ИНН- 10 числовых символов, 2-х одинаковых гарантировано нет. Я так и сделал у себя . Нужен пример ,обращайтесь.

[Teslenko_EA]

Здравствуйте ehoolu.
проверить существование записи строкой
If ("Сотрудники.ФИО " LIKE “& Me!ФИО”) Then ‘--не работает
нельзя, возможно поможет следующая доработка:
замените строку которая "не работает" подобной строкой
If bRecExists(Me, "ФИО", Me!ФИО & "”) Then '(текущую форму Me заменить на форму данные которой обрабатываются)
и разместите в проекте функцию:

Function bRecExists(fCtl As Form, sField$, sVal$) As Boolean
Dim r             As ADODB.Recordset
On Error Resume Next
    Set r = New ADODB.Recordset
    s = fCtl.RecordSource
    r.Open s, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    r.Find sField + " LIKE  '" + sVal + "*'"
    'r.Find sField + " = '" + sVal + "'"' уславие поиска может быть таким
    If Not r.EOF Then bRecExists 'существует
    r.Close:    Set r = Nothing
End Function

думаю у Вас все получится.
Евгений.

[ehoolu]

Спасибо всем, у меня уже все получилось. Сдела так : в форме "СведениеОСоттруднике" на поле ФИО повесила процедуру :
Private Sub ФИО_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("ФИО", "Сотрудники", "ФИО=""" & ФИО & """")) Then
Cancel = 1
MsgBox "Такой Сотрудник уже существует!", vbOKOnly + vbExclamation
DoCmd.Close acForm, "СведенияОСотруднике"
End If
End Sub

А для кнопки "Добавить"(на той же форме) процедуру:
Private Sub ОК_Click()
If IsNull(Me!КодСотрудника) And (IsNull(Me!ФИО) Or Me!ФИО = "") Then
MsgBox "Введите ФИО Сотрудника!", vbOKOnly + vbExclamation
Else
Forms!Сотрудники!ПодчиненнаяСотрудн ики.Form.Requery
End If
DoCmd.Close acForm, "СведенияОСотруднике"
End Sub