'Часто возникают вопросы типа "Почему у меня не работает выражение "select * from [Tbl] where [Date]=#" & me.Дата & "#" (или что то в этом роде).
'Чтобы корректно поставить условие по полю типа Date/Time
'необходимо всего лишь корректно отформатить значение -
'для Access формат даты должен быть следующим: #mm/dd/yy#. Для SQL-Server это выглядит чуть по-другому: yyyy-mm-dd (такой формат понимается при любых локальных настройках сервера).
'Для облегчения можно применять приведенную ниже функцию, например так: "select * from [Tbl] where [Date]=" & FormatSpDate(me.Дата)
'
'
Public Function FormatSpDate(ByVal parDate As Date, Optional bSQL As Boolean = False) As String
'If bSQL Then ' Для SQL-Server
' FormatSpDate = Format$(parDate, "'mm\.dd\.yyyy'")' Для SQL-Server
'или можно так
'FormatSpDate = Format$(parDate, "'yyyy\-mm\-dd'") ' Для SQL-Server
'Else
FormatSpDate = Format$(parDate, "\#mm\/dd\/yy\#")
'End If
End Function
|