jeck09nt > 23-03-16, 11:05 AM
ongke0711 > 23-03-16, 02:30 PM
jeck09nt > 23-03-16, 04:40 PM
[/color][/color][/size][/size][/color]
[color=#333333][size=small][size=medium][color=#0072bc][color=darkred]Private Sub Form_Load()
[/color][/color][/size][/size][/color]
Set rs = CurrentDb.OpenRecordset("Select giatri from Syspara")
If (Now() - rs!giatri) >= 0 Then
With DoCmd
.SetWarnings False
.OpenQuery "QryUpdate"
.SetWarnings True
End With
End If
rs.Close
End Sub
[color=#333333][size=small][size=medium][color=#0072bc][color=darkred]
jeck09nt > 23-03-16, 04:42 PM
Private Sub Form_Load()
Set rs = CurrentDb.OpenRecordset("Select giatri from Syspara")
If (Now() - rs!giatri) >= 0 Then
With DoCmd
.SetWarnings False
.OpenQuery "QryUpdate"
.SetWarnings True
End With
End If
rs.Close
End Sub
ongke0711 > 23-03-16, 06:08 PM
If (Now() > rs!giatri) And Now() < DateAdd("yyyy", 1, rs!giatri) Then
"do nothing"
Else
With DoCmd
.SetWarnings False
.OpenQuery "QryUpdate"
.SetWarnings True
End With
End If
rs.Close
jeck09nt > 24-03-16, 10:11 AM