Option Explicit
Private Sub cmdindatabase_Click()
Dim ris As Integer, spazio As String
Dim nume As Integer
Dim stringa As String
stringa = ""
spazio = " "
nume = FreeFile
ris = MsgBox("Sei sicuro di voler salvare i dati nel database?", vbQuestion + vbYesNoCancel, "Inserimento dati")
If ris = vbYes Then
FrmTABorarioluana.cmdcanctutto.Enabled = True
contatore = contatore + 1
ReDim Preserve orarilulu(1 To contatore) As orarioinsegnanti
orarilulu(contatore).settimana = Frmdatioreluana.Cmbsettimana.Text
orarilulu(contatore).mese = Frmdatioreluana.Cmbmese.Text
orarilulu(contatore).orarioda = Frmdatioreluana.Cmbdaorario.Text
orarilulu(contatore).orarioa = Frmdatioreluana.Cmbaorario.Text
orarilulu(contatore).straordinari = Frmdatioreluana.Combo1.Text
stringa = orarilulu(contatore).settimana & orarilulu(contatore).mese & orarilulu(contatore).orarioda & " - " & orarilulu(contatore).orarioa & spazio & orarilulu(contatore).straordinari
Open "orariolulu.dat" For Append As #nume
Print #nume, stringa
Close #nume
End If
End Sub