Option Explicit

 

Private Sub cmdindatabase_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 orarimar(1 To contatore2) As orarioinsegnanti

    orarimar(contatore2).settimana = Frmdatimar.Cmbset.Text

    orarimar(contatore2).mese = Frmdatimar.Cmbmese.Text

    orarimar(contatore2).orarioda = Frmdatimar.Cmbdaorario.Text

    orarimar(contatore2).orarioa = Frmdatimar.Cmbaorario.Text

    orarimar(contatore2).straordinari = Frmdatimar.cmbstra.Text

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

     Open "orarimar.dat" For Append As #nume2

        Print #nume2, stringa2

     Close #nume2

  End If

End Sub