Thread: reset statistic
add reset statistic similar to mnuPopupVacuum Private Sub mnuPopupResetStat_Click() On Error GoTo Err_Handler svr.LogEvent "Entering " & App.Title & ":frmMain.mnuPopupResetStat_Click()", etFullDebug 'reset statistic If MsgBox("Confirm reset statistic?", vbApplicationModal + vbYesNo) = vbYes Then svr.Databases(ctx.CurrentDB).Execute "select pg_stat_reset()" End If Exit Sub Err_Handler: If Err.Number <> 0 Then LogError Err.Number, Err.Description, App.Title & ":frmMain.mnuPopupResetStat_Click" End Sub Bye !! Frank Lupo (Wolf) !! /\_ _/\ \ o o / --ooo-----ooo--- -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Un regalo, mille possibilità di scelta, una più preziosa dell'altra. Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=613&d=21-2
It's rumoured that frank_lupo once said: > add reset statistic similar to mnuPopupVacuum > > Private Sub mnuPopupResetStat_Click() > On Error GoTo Err_Handler > svr.LogEvent "Entering " & App.Title & > ":frmMain.mnuPopupResetStat_Click()", etFullDebug > 'reset statistic > If MsgBox("Confirm reset statistic?", vbApplicationModal + vbYesNo) = > vbYes Then > svr.Databases(ctx.CurrentDB).Execute "select pg_stat_reset()" > End If > > Exit Sub > Err_Handler: If Err.Number <> 0 Then LogError Err.Number, > Err.Description, App.Title & ":frmMain.mnuPopupResetStat_Click" End > Sub Thanks, applied. Regards, Dave.