Info
Form XEM DTOption Compare DatabasePrivate Sub CHONqH_BeforeUpdate(Cancel As Integer)End SubPrivate Sub CHONqH_Click()Select Case CHONqH.ValueCase 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.ShowAllRecordsEnd SelectEnd SubPrivate Sub cmdClose_Click()DoCmd.CloseEnd SubFORM QUAN LY .DTOption Compare DatabasePrivate Sub Command0_Click()On Error GoTo Err_Command0_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "DANH BA DT" DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command0_Click: Exit SubErr_Command0_Click: MsgBox Err.Description Resume Exit_Command0_ClickEnd SubPrivate Sub Command1_Click()On Error GoTo Err_Command1_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "xemDT" DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command1_Click: Exit SubErr_Command1_Click: MsgBox Err.Description Resume Exit_Command1_ClickEnd SubPrivate Sub Command2_Click()On Error GoTo Err_Command2_Click DoCmd.CloseExit_Command2_Click: Exit SubErr_Command2_Click: MsgBox Err.Description Resume Exit_Command2_ClickEnd SubPrivate Sub Command5_Click()DoCmd.Close acDataAccessPage, "DANHBADT2009"End SubFORM DANH BA DTOption Compare DatabasePrivate Sub Command16_Click()On Error GoTo Err_Command16_Click DoCmd.GoToRecord , , acFirstExit_Command16_Click: Exit SubErr_Command16_Click: MsgBox Err.Description Resume Exit_Command16_ClickEnd SubPrivate Sub Command17_Click()On Error...
