nguyenhoangbanhan > 18-06-15, 01:23 PM
Private Sub chkAll_AfterUpdate()
If chkAll = True Then
chkMaVT = True
chkMaNh = True
chkten = True
chknguongoc = True
Else
chkMaVT = False
chkMaNh = True
chkten = False
chknguongoc = False
End If
End Sub
Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
CurrentDb.QueryDefs("qryDanhsach").SQL = Me.lstSearchResults.RowSource
DoCmd.OpenReport "rptDanhsach", acPreview
Exit_cmdOpenReport_Click:
Exit Sub
Err_cmdOpenReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenReport_Click
End Sub
Private Sub txtSearchFor_Change()
Dim vSearchString As String
vSearchString = txtSearchFor.Text
txtSrchText.Value = vSearchString
Me.lstSearchResults.Requery
End Sub
Private Sub Form_Load()
DoCmd.Restore
chkten = True
End Sub
Private Sub Command72_Click()
On Error GoTo Err_Command72_Click
Dim stDocName As String
stDocName = "rptDanhsach"
DoCmd.OpenReport stDocName, acPreview
Exit_Command72_Click:
Exit Sub
Err_Command72_Click:
MsgBox Err.Description
Resume Exit_Command72_Click
End Sub
Private Sub Command73_Click()
CurrentDb.QueryDefs("qryDanhsach").SQL = Me.lstSearchResults.RowSource
Call fPrintReport("rptDanhsach")
End Sub
Private Sub Command74_Click()
On Error GoTo Err_Command74_Click
Dim stDocName As String
stDocName = "rptDanhsach"
DoCmd.OpenReport stDocName, acNormal
Exit_Command74_Click:
Exit Sub
Err_Command74_Click:
MsgBox Err.Description
Resume Exit_Command74_Click
End Sub
Private Sub thoat_Click()
If MsgBox("Ban có muon thoát không?", 36, "Thông Báo") = 6 Then
DoCmd.Close
End If
End Sub