| |
|
|
| | Помогите пожалуйста с формой.
У меня есть форма, в которой поля TextBox1, TextBox2 и ФИО, а также кнопка "Сформировать отчет".
Я в обработку на этой кнопке закинула вот такую штуку:
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]
If IsNull([Forms]![Форма2]![TextBox2]) Then text2 = "31.12.2200" Else text2 = [Forms]![Форма2]![TextBox2]
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") & "# ")
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Дело в том, что по датам отчет формируется, а вот по фамилиям выборку не делает. | |
| |
| |
| |
|
|
| | вроде так, там опечатка в формировании фильтра
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
|
| |
| |
| |
| |
|
|
| | Ошибка: Compile error:
Syntax error | |
| |
| |
