ник: bel
Помогите пожалуйста с формой.
У меня есть форма, в которой поля 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
Дело в том, что по датам отчет формируется, а вот по фамилиям выборку не делает.