Option Explicit

 

Private Sub cmddatibimbi_Click()

Dim ris2 As Integer, spazio2 As String

Dim nume2 As Integer

Dim stringa2 As String

spazio2 = "          "

nume2 = FreeFile

 

         If Txtcogb.Text <> "" And Txtnomeb.Text <> "" _

            And Txtindirizzob.Text <> "" And Txtcapb.Text <> "" And Txtpaeseb.Text <> "" _

            And Txttelb.Text <> "" And Txtprovb.Text <> "" Then

           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 bambini(1 To contatore2) As datibambini

           bambini(contatore2).cognome = Frmdatianbimbi.Txtcogb.Text

           bambini(contatore2).nome = Frmdatianbimbi.Txtnomeb.Text

           bambini(contatore2).data_di_nascita = Frmdatianbimbi.Cmbgiornob & "\" & Frmdatianbimbi.Cmbmeseb & "\" & Frmdatianbimbi.cmbannob

           bambini(contatore2).cap = Frmdatianbimbi.Txtcapb.Text

           bambini(contatore2).paese = Frmdatianbimbi.Txtpaeseb.Text

           bambini(contatore2).indirizzo = Frmdatianbimbi.Txtindirizzob.Text

           bambini(contatore2).prov = Frmdatianbimbi.Txtprovb.Text

           bambini(contatore2).tel = Frmdatianbimbi.Txttelb

           stringa2 = bambini(contatore2).cognome & bambini(contatore2).nome & bambini(contatore2).data_di_nascita & spazio2 & bambini(contatore2).paese & bambini(contatore2).cap & bambini(contatore2).tel & "     " & bambini(contatore2).indirizzo & bambini(contatore2).prov

           End If

Open "datibimbi.dat" For Append As #nume2

Print #nume2, stringa2

Close #nume2

         Else

            MsgBox "Devi specificare tutti i campi" & vbCrLf & _

            "Le caselle di testo devono contenere tutte i dati dell'alunno!", vbInformation, "Info"

         End If

         

   

End Sub