tranthanhan1962 > 04-05-15, 03:43 PM
Sub CoDan()
Set sct = Me.Section(acFooter)
MoRong = KHO.Value
If MoRong = True Then
sct.Visible = True
Else
sct.Visible = False
End If
DoCmd.DoMenuItem acFormBar, 7, 6, 0, acMenuVer70
If Not MoRong Then
Me.Painting = True
Me(KhoCtl).SetFocus
Else
Me(PhatsinhCtl).SetFocus
End If
End Sub