Option Explicit

Private Sub cmddatabase_Click()

 Dim ris2 As Integer, spazio2 As String

 Dim nume2 As Integer

 Dim stringa2 As String

  spazio2 = "          "

  nume2 = FreeFile

  ris2 = MsgBox("Sei sicuro di voler salvare i dati nel database?", vbQuestion + vbYesNoCancel, "Inserimento dati")

   If ris2 = vbYes Then

     Frmtabormar.Cmdcancellatuttom.Enabled = True

     contatore2 = contatore + 1

     ReDim Preserve orirene(1 To contatore2) As orarioinsegnanti

     orirene(contatore2).settimana = Frmdatiirene.Cmbse.Text

     orirene(contatore2).mese = Frmdatiirene.Cmbmes.Text

     orirene(contatore2).orarioda = Frmdatiirene.Cmbdaora.Text

     orirene(contatore2).orarioa = Frmdatiirene.Cmbaora.Text

     orirene(contatore2).straordinari = Frmdatiirene.cmbstraord.Text

     stringa2 = orirene(contatore2).settimana & spazio2 & orirene(contatore2).mese & orirene(contatore2).orarioda & " - " & orirene(contatore2).orarioa & spazio2 & orirene(contatore2).straordinari

        Open "orariirene.dat" For Append As #nume2

         Print #nume2, stringa2

        Close #nume2

   End If

End Sub