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 ---------------------------(end of broadcast)--------------------------- TIP 1: subscribe and unsubscribe commands go to [EMAIL PROTECTED]