cuongvan09 > 25-06-12, 11:32 AM
(25-06-12, 11:10 AM)khanhduycsgt Đã viết: Code trong Frame9
Mã:Private Sub Frame9_BeforeUpdate(Cancel As Integer)
If Me.Frame9 = 1 Then 'Neu Frame9 chon radio button thu 1 thi khoa 2 textbox Tungay va Denngay
Me.Tungay.Enabled = False
Me.Denngay.Enabled = False
Else 'Nguoc lai thi mo khoa
Me.Tungay.Enabled = True
Me.Denngay.Enabled = True
End If
End Sub
Code trong form_load
Mã:Private Sub Form_Load()
'Ngay khi mo form thi 2 textbox nay se bi khoa, vi mac dinh Frame9 chon la 1
Me.Tungay.Enabled = False
Me.Denngay.Enabled = False
End Sub