Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Morgan_mk
Сделал так при нажатии кнопки прописал в модуле:
Private Sub Êíîïêà25_Click()
If Me!F1 = True Then strCriteria = strCriteria & " AND " & "[организация]='" & Me![организация] & "'"
If Me!F2 = True Then strCriteria = strCriteria & " AND " & "[отдел]='" & Me![отдел] & "'"
strCriteria = Mid$(strCriteria, 2)

DoCmd.OpenForm "Form_Архив", , , strCriteria
также прошу объяснить что такое " & "[организация]='" & Me![организация] & "'" , что они означают и в чем у них различие

End Sub

Выводит ошибку и ссылается на DoCmd.OpenForm "Form_Архив", , , strCriteria

Вот пример


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.