Форумы HiProg.com - MS ACCESS, VBA, VB

ник: bel
Что-то вроде этого должно быть?
У менч просто не работает... ошибка: Compile error: Syntax error

Private Sub Report_Open(Cancel As Integer)

If [Variant]> [Variant3] then Поле1=TimeValue(Format(TimeValue(CDate(Nz([Variant];#0:00:00#)))-TimeValue(CDate(Nz([Variant3];#0:00:00#)));"hh:nn"))
Else Поле1=0 and Поле2=TimeValue(Format(TimeValue(CDate(Nz([Variant];#0:00:00#)))-TimeValue(CDate(Nz([Variant3];#0:00:00#)));"hh:nn"))
If [Variant] = [Variant3] Then Поле1 = 0 And Поле2 = 0
End If
End If

DoCmd.Maximize
End Sub