ник: belvesta
если я поля, в которые надо ввести дату, оставляю пустыми, то выскакивает ошибка. Что делать? Я написала так:
Private Sub Сформировать_Click()
Dim TextBox1 As Variant
Dim TextBox2 As Variant
Dim s As String
Select Case Me.АorХ
Case "Ателье"
s = "А"
Case "Химчистка"
s = "Х"
Case Else
s = "АorХ"
End Select
If Nz([Forms]![Форма1]![TextBox1]) <> " " And Nz([Forms]![Форма1]![TextBox2]) <> " " Then
DoCmd.OpenReport "Мониторинг-" & s, acViewPreview, , "Date1 Between " & "#" & Format(Nz([Forms]![Форма1]![TextBox1]), "mm\/dd\/yyyy") & "# " & " And #" & Format(Nz([Forms]![Форма1]![TextBox2]), "mm\/dd\/yyyy") & "# "
If ([Forms]![Форма1]![TextBox1]) Is Null And ([Forms]![Форма1]![TextBox1]) Is Null Then TextBox1 = DMin("[Date1]", FillReceipt) And TextBox2 = DateNow
DoCmd.OpenReport "Мониторинг-" & s, acViewPreview, , "Date1 Between " & "#" & Format(TextBox1, "mm\/dd\/yyyy") & "# " & " And #" & Format(TextBox2, "mm\/dd\/yyyy") & "# "
End If
End Sub