I developed a find object database
frmmmain:
add menu tools FindObjDb
Private Sub mnuToolsFindObjDb_Click()
On Error GoTo Err_Handler
svr.LogEvent "Entering " & App.Title & ":frmMain.mnuToolsFindObjDb_Click()", etFullDebug
Dim objFindForm As New FrmFind
Load objFindForm
objFindForm.Initialise
objFindForm.Show
Exit Sub
Err_Handler: If Err.Number <> 0 Then LogError Err.Number, Err.Description, App.Title &
":frmMain.mnuToolsFindObjDb_Click"
End Sub
modify visibility menu in program similar mnuPopupProperties
Bye !!
Frank Lupo (Wolf) !!
/\_ _/\
\ o o /
--ooo-----ooo---
--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f
Sponsor:
Goditi il Cenone con tranquillità, scaccia i sensi di colpa: Oliviero Linea Dimagrimento
Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=1075&d=31-1