|
|
SELECT [ ]., [ ].[ ], (SELECT xx2(([Forms]![ ].[Dat]), (Forms![ ].[])) AS h FROM [ ] WHERE((([ ].[id_])=Forms![ ]![] ) And (([ ].[])=([Forms]![ ]![Dat]+([Forms]![ ]![time1]))))) AS t1, (SELECT xx2(([Forms]![ ].[Dat]), (Forms![ ].[])) AS h FROM [ ] WHERE((([ ].[id_])=Forms![ ].[] ) And (([ ].[])=[Forms]![ ]![Dat]+([Forms]![ ]![time2])))) AS t2, (SELECT xx2(([Forms]![ ].[Dat]), (Forms![ ].[])) AS h FROM [ ] WHERE((([ ].[id_])=Forms![ ].[] ) And (([ ].[])=[Forms]![ ]![Dat]+([Forms]![ ]![time3])))) AS t3, (SELECT xx2(([Forms]![ ].[Dat]), (Forms![ ].[])) AS h FROM [ ] WHERE((([ ].[id_])=Forms![ ].[] ) And (([ ].[])=[Forms]![ ]![Dat]+([Forms]![ ]![time4])))) AS t4, (SELECT xx2(([Forms]![ ].[Dat]), (Forms![ ].[])) AS h FROM [ ] WHERE((([ ].[id_])=Forms![ ].[] ) And (([ ].[])=[Forms]![ ]![Dat]+([Forms]![ ]![time5])))) AS t5 FROM [ ];
Public Function xx2(Dat As Date, As Variant) If IsDate(Dat) And Not IsNull() Then xx2 = "X" End If End Function
Public Sub xxx1() Me!time1 = #6:00:00 AM# 'Format(DLookup("[]", "[ ]", "=1"), "hh:mm") Me!time2 = #6:30:00 AM# 'Format(DLookup("[]", "[ ]", "=2"), "hh:mm") Me!time3 = #7:00:00 AM# 'Format(DLookup("[]", "[ ]", "=3"), "hh:mm") Me!time4 = #7:30:00 AM# 'Format(DLookup("[]", "[ ]", "=4"), "hh:mm") Me!time5 = #8:00:00 AM# 'Format(DLookup("[]", "[ ]", "=5"), "hh:mm") End Sub
http://www.sql.ru/forum/1111288/formirovanie-obshhego-grafika-raboty
