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