Private Sub btn_DeleteAll_Click() Dim msgRes As VbMsgBoxResult Dim strsql As String msgRes = MsgBox("Are you sure you want to reset your report?", vbOKCancel, "Reset Report") If msgRes = vbCancel Then Exit Sub strsql = "Delete from Act_SubTO_Date where [ActDate] = " & Forms("frm_Act_Enter").[Sub_frm_Act_enter_crntrpt].Form.[ActDate] AND [Activities].[STOid] = " & Forms("frm_Act_Enter").[Sub_frm_Act_enter_crntrpt].Form.[cmbsto]" End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.