Form XEM DT Option Compare Database Private Sub CHONqH_BeforeUpdate(Cancel As Integer) End Sub Private Sub CHONqH_Click() Select Case CHONqH.Value Case 1: DoCmd.OpenForm "xemdt", acNormal, , "Ma = 'GD'" Case 2: DoCmd.OpenForm "xemdt", acNormal, , "Ma = 'BC'" Case 3: DoCmd.OpenForm "xemdt", acNormal, , "Ma = 'NL'" Case 4: DoCmd.OpenForm "xemdt", acNormal, , "Ma = 'BA'" Case 5: DoCmd.OpenForm "xemdt", acNormal, , "Ma = 'K'" Case Else: DoCmd.ShowAllRecords End Select End Sub Private Sub cmdClose_Click() DoCmd.Close End Sub FORM QUAN LY .DT Option Compare Database Private Sub Command0_Click() On Error GoTo Err_Command0_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "DANH BA DT" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox Err.Description Resume Exit_Command0_Click End Sub Private Sub Command1_Click() On Error GoTo Err_Command1_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "xemDT" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command1_Click: Exit Sub Err_Command1_Click: MsgBox Err.Description Resume Exit_Command1_Click End Sub Private Sub Command2_Click() On Error GoTo Err_Command2_Click DoCmd.Close Exit_Command2_Click: Exit Sub Err_Command2_Click: MsgBox Err.Description Resume Exit_Command2_Click End Sub Private Sub Command5_Click() DoCmd.Close acDataAccessPage, "DANHBADT2009" End Sub FORM DANH BA DT Option Compare Database Private Sub Command16_Click() On Error GoTo Err_Command16_Click DoCmd.GoToRecord , , acFirst Exit_Command16_Click: Exit Sub Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub Private Sub Command17_Click() On Error GoTo Err_Command17_Click DoCmd.GoToRecord , , acPrevious Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub Private Sub Command18_Click() On Error GoTo Err_Command18_Click DoCmd.GoToRecord , , acLast Exit_Command18_Click: Exit Sub Err_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End Sub Private Sub Command19_Click() On Error GoTo Err_Command19_Click DoCmd.GoToRecord , , acNext Exit_Command19_Click: Exit Sub Err_Command19_Click: MsgBox Err.Description Resume Exit_Command19_Click End Sub Private Sub Command20_Click() On Error GoTo Err_Command20_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 Exit_Command20_Click: Exit Sub Err_Command20_Click: MsgBox Err.Description Resume Exit_Command20_Click End Sub Private Sub Command21_Click() On Error GoTo Err_Command21_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append Exit_Command21_Click: Exit Sub Err_Command21_Click: MsgBox Err.Description Resume Exit_Command21_Click End Sub Private Sub Command23_Click() On Error GoTo Err_Command23_Click DoCmd.GoToRecord , , acNewRec Exit_Command23_Click: Exit Sub Err_Command23_Click: MsgBox Err.Description Resume Exit_Command23_Click End Sub Private Sub Command24_Click() On Error GoTo Err_Command24_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Command24_Click: Exit Sub Err_Command24_Click: MsgBox Err.Description Resume Exit_Command24_Click End Sub Private Sub Command28_Click() On Error GoTo Err_Command28_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Command28_Click: Exit Sub Err_Command28_Click: MsgBox Err.Description Resume Exit_Command28_Click End Sub Private Sub Command31_Click() On Error GoTo Err_Command31_Click DoCmd.Close Exit_Command31_Click: Exit Sub Err_Command31_Click: MsgBox Err.Description Resume Exit_Command31_Click End Sub Private Sub Ma_Click() End Sub FDHKLLOIP