ник: belvesta
Никак у меня не получается. Этот американский формат не причем!
Что не так?
Private Sub Сформировать_Click()
Dim s As String
Select Case Me.АorХ
Case "Ателье"
s = "А"
Case "Химчистка"
s = "Х"
Case Else
s = "АиХ"
End Select
DoCmd.OpenReport "Мониторинг-" & s, acViewPreview, "", "Date1 Between " & "#" & Format([Forms]![Форма к мониторингу]![TextBox1], "mm\/dd\/yyyy") & "# " & " And #" & Format([Forms]![Форма к мониторингу]![TextBox2], "mm\/dd\/yyyy") & "# "
End Sub