Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
gestione scuola - Frmtrova.frm

Frmtrova.frm

 Caricato da: Albertking82
Scarica il programma completo

  1. Option Explicit
  2.  
  3. Private Sub Cmd_Click()
  4.    If Txttrova.Text <> "" Then
  5.      Select Case opzione
  6.        Case "sorariolulu"
  7.             Call cercasolulu
  8.             Close
  9.        Case "meseorlulu"
  10.             Call cercamlulu
  11.             Close
  12.        Case "sorarimar"
  13.             Call sormar
  14.             Close
  15.        Case "mormar"
  16.             Call moremar
  17.             Close
  18.        Case "sorirene"
  19.             Call sirene
  20.             Close
  21.        Case "mirene"
  22.             Call morirene
  23.             Close
  24.        Case "cognomeb"
  25.             Call cognomebimbo
  26.             Close
  27.        Case "annob"
  28.             Call annobimbo
  29.             Close
  30.      End Select
  31.   End If
  32. End Sub
  33.  
  34. Private Sub cmdCancellatrova_Click()
  35.  Txttrova.Text = ""
  36. End Sub