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

 

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

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

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

ник: ГлазастыйМышь
вроде так, там опечатка в формировании фильтра

Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click

Dim stDocName As String
Dim text1, text2

stDocName = ChrW(1048) & ChrW(1047)


If IsNull([Forms]![Форма2]![TextBox1]) Then 
    text1 = "01.01.1900" 
Else 
    text1 = [Forms]![Форма2]![TextBox1]
End If

If IsNull([Forms]![Форма2]![TextBox2]) Then 
    text2 = "31.12.2200" 
Else 
    text2 = [Forms]![Форма2]![TextBox2]
End If

If IsNull([Forms]![Форма2]![ФИО]) Then 
    DoCmd.OpenReport "ИЗ", acViewPreview, , "[Дата] Between #" _
                        & Format(text1, "mm\/dd\/yyyy") & "# And #" _
                        & Format(text2, "mm\/dd\/yyyy") & "# " 
Else 
    DoCmd.OpenReport  "ИЗ", acViewPreview, , "[ФИО]='" & [Forms]![Форма2]![ФИО]  _ 
                        &  "' And ([Дата] Between #" & Format(text1, "mm\/dd\/yyyy")  _ 
                        & "# And #" & Format(text2, "mm\/dd\/yyyy") & "# ")
End If

Exit_Кнопка6_Click:
    Exit Sub
Err_Кнопка6_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка6_Click
End Sub


Ваше имя:

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

Сообщение:

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

Прикрепить:

 

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