GKirill softmaster GKirillУ тебя, возможно, на форме есть кнопка и 2 поля с датами. Ты вводишь нужные даты в поля и жмешь на этот кнопарь. Поэтому этот код вешается на событие Click (или DblClick как удобнее) этого кнопаря.
Так и есть !!!
Хочу конечно MySQL
Если можно конечно его собрать
Если ты создал пустой запрос запрос к серверу, то делаешь следующее:
вставляешь этот код событие Click кнопаря
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
Private Sub Кнопка0_Click()
Dim strSQL As String
strSQL = "SELECT DISTINCT v.description, " _
& "date_format(log_date, '%H:%i:%s') AS h," _
& "date_format(log_date, '%d.%m.%Y') AS d," _
& "u.user_name,p.department_name,u.notes " _
& "FROM vv v, users u, departments p, access_log a, readers r, tokens t " _
& "WHERE (a.token_id = t.token_id) AND (a.token_id = u.token_id) AND " _
& "(a.reader_id = r.reader_id) AND (a.reader_id = v.reader_id) AND " _
& "(u.department_id = p.department_id) AND "
Dim df, mf, dt, mt As String
df = Day(Me.date_field_first)
If Len(df) = 1 Then
df = "0" & df
End If
mf = Month(Me.date_field_first)
If Len(mf) = 1 Then
mf = "0" & mf
End If
dt = Day(Me.date_field_second)
If Len(dt) = 1 Then
dt = "0" & dt
End If
mt = Month(Me.date_field_second)
If Len(mt) = 1 Then
mt = "0" & mt
End If
strSQL = strSQL _
& "(a.log_date>='" & df & "-" & mf & "-" & CStr(Year(me.date_field_first)) _
& "') AND (a.log_date>='" & dt & "-" & mt & "-" _
& CStr(Year(me.date_field_second)) & "')"
CurrentDb.QueryDefs("имя твоего пустого запроса").Sql = strSQL
Me.RecordSource = "имя твоего пустого запроса"
End Sub
Все так сделал форма получаеться пустой
тоесть с нее все пропадает
