|
|
|
| Робяты, в чем трабла?
Есть форма, с полем со списком Дата, есть Кнопка3 со следующим кодом на клик:
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "subf_280000"
stLinkCriteria = "[Дата]=" & "#" & Me![Дата] & "#"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
По сути понятнО, что при клике открывается форма с отобранными записями по полю со списком...
но, MSA пишет "Дата содержит синтактическую ошибку в выражении запроса '[Дата] = #13.10.2009#'.
Чё с синтаксисом не пойму... | |
|
| |
|
|
|
| а так
stLinkCriteria = "[Дата]=" & Me![Дата] | |
|
| |
|
|
|
| ААА, мать Акс, опять про даты.
Даты в Аксе, опять маму его, должны преобразовываться в вид - мм/дд/гг - вот тогда понимат.
Format(Date, "mm\/dd\/yyyy") вот так преобразуй и должно прокатить.
stLinkCriteria = "[Дата]=" & "#" & format(Me![Дата], "mm\/dd\/yyyy") & "#"
|
| |
|
| |
|
|
|
| Второй вариант прошел, спасибо....
Тока вот трабла, чо табличные формы открываются не как таблицы, а как обычная форма?
хренотень какая-то, извиняюсь... | |
|
| |
|
|
|
| DoCmd.OpenForm stDocName, acFormDS,, stLinkCriteria | |
|
| |
|
|
|
| Мдя уж, век живи, век учись
спасибки! | |
|
| |