Hi All
I'm a relative newbie to the world of VB, and I've written the following code, to delete the contents of multiple tables. The trouble is, if the user says No to the Y/N message, it still deletes the contents. What is missing so that it abandons the process if N is chosen, and another message comes up saying something like "No Records have been deleted"?
Many thanks
VB Newbie Mark
'------------------------------------------------------------
' mcro_delete_all_fund_tables
'
'------------------------------------------------------------
Function mcro_delete_all_fund_tables()
On Error GoTo mcro_delete_all_fund_tables_Err
DoCmd.SetWarnings False
DeleteYesNo
DoCmd.OpenQuery "qry_delete balanced equity dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete balanced equity pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete balanced equity SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete CHIG Dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete CHIG Pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete CHIG SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete esk dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete deep value pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete esk pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete tenax dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete esk SWFAl", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete tenax pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete uk managed growth", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete tenax SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete uk managed growth pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete worldwide dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete worldwide pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete uk managed growth SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete deep value SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete worldwide SWFAL", acViewNormal, acEdit
Beep
MsgBox "All Records have now been deleted", vbInformation, "Pulse/SW/Dealer CH Fund Reconciliation Process"
mcro_delete_all_fund_tables_Exit:
Exit Function
mcro_delete_all_fund_tables_Err:
MsgBox Error$
Resume mcro_delete_all_fund_tables_Exit
End Function
I'm a relative newbie to the world of VB, and I've written the following code, to delete the contents of multiple tables. The trouble is, if the user says No to the Y/N message, it still deletes the contents. What is missing so that it abandons the process if N is chosen, and another message comes up saying something like "No Records have been deleted"?
Many thanks
VB Newbie Mark
'------------------------------------------------------------
' mcro_delete_all_fund_tables
'
'------------------------------------------------------------
Function mcro_delete_all_fund_tables()
On Error GoTo mcro_delete_all_fund_tables_Err
DoCmd.SetWarnings False
DeleteYesNo
DoCmd.OpenQuery "qry_delete balanced equity dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete balanced equity pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete balanced equity SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete CHIG Dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete CHIG Pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete CHIG SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete esk dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete deep value pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete esk pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete tenax dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete esk SWFAl", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete tenax pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete uk managed growth", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete tenax SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete uk managed growth pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete worldwide dealer", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete worldwide pulse", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete uk managed growth SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete deep value SWFAL", acViewNormal, acEdit
DoCmd.OpenQuery "qry_delete worldwide SWFAL", acViewNormal, acEdit
Beep
MsgBox "All Records have now been deleted", vbInformation, "Pulse/SW/Dealer CH Fund Reconciliation Process"
mcro_delete_all_fund_tables_Exit:
Exit Function
mcro_delete_all_fund_tables_Err:
MsgBox Error$
Resume mcro_delete_all_fund_tables_Exit
End Function