Несколько вопросов

1.Необходимо не дать пользователю вставить значение в таблицу через форму, если оно уже есть
Делаю так:

Private Sub ИмяКонтакта_BeforeUpdate(Cancel As Integer)
Dim str As String
Dim rs As Recordset
str = "Select Клиенты.ИмяКонтакта from Клиенты where Клиенты.НазваниеКомпании=[НазваниеКомпании] and Клиенты.ИмяКонтакта=[ИмяКонтакта]"
Set rs = CurrentDb.OpenRecordset(str, dbOpenDynaset)
If rs.RecordCount <> 0 Then Print "А нельзя"
End Sub

Как можно проще?
2. Как сделать стандартное окошко об ошибке, чтобы вывести "А нельзя", только использовать MsgBox?
ACCESS 2003

1. Сделать ключ.
2. Да.

Рога и Копыта
Рога и Копыта
Рога и Капыта
ООО Рога и Копыта
ООО "Рога и Копыта"
"Рога и Копыта" ООО
...
-- пытаюсь показать, что каждый из ваших менеджеров может ввести их сколько угодно.
Задачка не так проста, как кажется.

Во втором примере автоматом удалились лишние пробелы. -- Уже хорошо.

Владимир Саныч

1. Сделать ключ. 2. Да.

1. Не могу понять как в аксессе сделать ключ из 2ух полей, подскажите
2. Forms.MsgBox.1?

Kronix

1. Не могу понять как в аксессе сделать ключ из 2ух полей, подскажите

В кострукторе выделить 2 поля и нажать правую кнопку -там видно

Kronix

2. Forms.MsgBox.1?

msgbox "А нельзя!", vbCritical, "Да что ты гад делаешь?"

Спасибо!

3. Как сделать чтобы у listbox был такой же выпадающий значек как у ComboBox? Ну или наоборот, заблокировать ввод текста у Combobox?

совсем забыл про поиск=(

4. 2 комбобокса, значения второго зависятот первого, что-топодобноенаходил, но все равно не то. Пишу во втором комбобоксе:

SELECT Клиенты.КодКлиента, Клиенты.ИмяКонтакта FROM Клиенты WHERE Клиенты.НазваниеКомпании=[НазваниеКомпании] ORDER BY [ИмяКонтакта];

В списке появляются все значения, что не так?