Private Sub CmdAnnulla_Click()
Unload Me
Exit Sub
End Sub
Private Sub CmdInvio_Click()
On Error GoTo 4
If OptInserisci.Value = True Then
Inserimento.Show
End If
If OptCercais.Value = True Then
FrmTrovaisola.Show
End If
If OptCercaop.Value = True Then
FrmTrovaoperatore.Show
End If
If OptEsci.Value = True Then
ActiveWorkbook.Close
Application.Quit
End If
Exit Sub
4:
If Err.Number <> 1004 Then
Msg = "Errore " & Str(Err.Number) & " generato da " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Errore", Err.HelpFile, Err.HelpContext
End If
Exit Sub
End Sub
Private Sub Cerca_Click()
End Sub
Private Sub OptCerca_Click()
End Sub
|