Code:
Private Sub mnudipositrpt_Click() 'Set rptDeposits.DataSource = Nothing 'Set rptDeposits.DataSource = rsDeposit 'rptDeposits.Show End Sub Private Sub mnufd_Click() Main.Toolbar1.Visible = False addfd.Show End Sub Private Sub mnufdeposit_Click() MsgBox "Form Will be Under Constructions. Please Try After Some Time", vbInformation End Sub Private Sub mnufdfullrep_Click() frmFdFullRepo.Show End Sub
Comment