Option Explicit
Private Sub cmdApplica_Click()
Dim Testo As String
txtGas.Locked = True
txtTelefono.Locked = True
txtAcqua.Locked = True
txtSpazzatura.Locked = True
txtEnel.Locked = True
txtSKY.Locked = True
txtGiornali.Locked = True
txtAssicurazione.Locked = True
txtCondominio.Locked = True
txtMutuo.Locked = True
txtFinanziamento.Locked = True
txtPensione.Locked = True
txtMacchina.Locked = True
txtBenzina.Locked = True
txtADSL.Locked = True
txtRicariche.Locked = True
txtExtraUscite.Locked = True
txtAlimenti.Locked = True
txtVestiario.Locked = True
txtBeni.Locked = True
txtMedicine.Locked = True
txtCasa.Locked = True
txtMeccanico.Locked = True
txtViaggi.Locked = True
txtScuola.Locked = True
txtUniversita.Locked = True
txtRAI.Locked = True
txtExtra.Locked = True
txtStipendioMarito.Locked = True
txtStipendioMoglie.Locked = True
txtFondi.Locked = True
txtExtra.Locked = True
cmdApplica.Enabled = False
Testo = txtGas.Text & ":" & txtTelefono.Text & ":" & _
txtAcqua.Text & ":" & txtSpazzatura.Text & ":" & _
txtEnel.Text & ":" & txtSKY.Text & ":" & _
txtGiornali.Text & ":" & txtAssicurazione.Text & ":" & _
txtCondominio.Text & ":" & txtMutuo.Text & ":" & _
txtFinanziamento.Text & ":" & txtPensione.Text & ":" & _
txtMacchina.Text & ":" & txtBenzina.Text & ":" & _
txtADSL.Text & ":" & txtRicariche.Text & ":" & _
txtExtraUscite.Text & ":" & txtAlimenti.Text & ":" & _
txtVestiario.Text & ":" & txtBeni.Text & ":" & _
txtRegali.Text & ":" & txtMedicine.Text & ":" & _
txtCasa.Text & ":" & txtMeccanico.Text & ":" & _
txtViaggi.Text & ":" & txtScuola.Text & ":" & _
txtUniversita.Text & ":" & txtRAI.Text & ":" & _
txtExtraUsciteVariabili.Text & ":" & txtStipendioMarito.Text & ":" & _
txtStipendioMoglie.Text & ":" & txtFondi.Text & ":" & _
txtExtra.Text
Open App.Path & "\" & Month(Now) & "-" & Year(Now) & ".dat" For Random As #1
Put 1, 1, Testo
Close #1
cmdApplica.Enabled = False
End Sub
Private Sub cmdIndietro_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim Testo As String
Dim A() As String
Dim i As Integer
Open App.Path & "\" & Month(Now) & "-" & Year(Now) & ".dat" For Random As #1
Open App.Path & "\" & Month(Now) & "-" & Year(Now) & "-Temp.dat" For Random As #2
Get #1, 1, Testo
A = Split(Testo, ":")
'RIMETTO A POSTO TUTTI I DATI PRECEDENTEMENTE SALVATI
For i = LBound(A) To UBound(A)
txtGas.Text = A(0) + Gas
txtTelefono.Text = A(1) + Telefono
txtAcqua.Text = A(2) + Acqua
txtSpazzatura.Text = A(3) + Spazzatura
txtEnel.Text = A(4) + Enel
txtSKY.Text = A(5) + SKY
txtGiornali.Text = A(6) + Giornali
txtAssicurazione.Text = A(7) + Assicurazione
txtCondominio.Text = A(8) + Condominio
txtMutuo.Text = A(9) + Mutuo
txtFinanziamento.Text = A(10) + Finanziamento
txtPensione.Text = A(11) + Pensione
txtMacchina.Text = A(12) + Macchina
txtBenzina.Text = A(13) + Benzina
txtADSL.Text = A(14) + ADSL
txtRicariche.Text = A(15) + Ricariche
txtExtraUscite.Text = A(16) + ExtraUscite
txtAlimenti.Text = A(17) + Alimenti
txtVestiario.Text = A(18) + Vestiario
txtBeni.Text = A(19) + Lusso
txtRegali.Text = A(20) + Regali
txtMedicine.Text = A(21) + Medicine
txtCasa.Text = A(22) + Casa
txtMeccanico.Text = A(23) + Meccanico
txtViaggi.Text = A(24) + Viaggi
txtScuola.Text = A(25) + Scuola
txtUniversita.Text = A(26) + Universita
txtRAI.Text = A(27) + RAI
txtExtraUsciteVariabili.Text = A(28) + ExtraUsciteVariabili
txtExtraUscite.Text = A(28) + ExtraUscite
txtStipendioMarito.Text = A(29) + StipendioMarito
txtStipendioMoglie.Text = A(30) + StipendioMoglie
txtFondi.Text = A(31) + Fondi
txtExtra.Text = A(32) + Extra
Next
Testo = txtGas.Text & ":" & txtTelefono.Text & ":" & _
txtAcqua.Text & ":" & txtSpazzatura.Text & ":" & _
txtEnel.Text & ":" & txtSKY.Text & ":" & _
txtGiornali.Text & ":" & txtAssicurazione.Text & ":" & _
txtCondominio.Text & ":" & txtMutuo.Text & ":" & _
txtFinanziamento.Text & ":" & txtPensione.Text & ":" & _
txtMacchina.Text & ":" & txtBenzina.Text & ":" & _
txtADSL.Text & ":" & txtRicariche.Text & ":" & _
txtExtraUscite.Text & ":" & txtAlimenti.Text & ":" & _
txtVestiario.Text & ":" & txtBeni.Text & ":" & _
txtRegali.Text & ":" & txtMedicine.Text & ":" & _
txtCasa.Text & ":" & txtMeccanico.Text & ":" & _
txtViaggi.Text & ":" & txtScuola.Text & ":" & _
txtUniversita.Text & ":" & txtRAI.Text & ":" & _
txtExtraUsciteVariabili.Text & ":" & txtStipendioMarito.Text & ":" & _
txtStipendioMoglie.Text & ":" & txtFondi.Text & ":" & _
txtExtra.Text
Put #1, 1, Testo
Close
End Sub
Private Sub mnuFileIndietro_Click()
cmdIndietro_Click
End Sub
Private Sub mnuModificaUscite_Click()
txtGas.Locked = False
txtTelefono.Locked = False
txtAcqua.Locked = False
txtSpazzatura.Locked = False
txtEnel.Locked = False
txtSKY.Locked = False
txtGiornali.Locked = False
txtAssicurazione.Locked = False
txtCondominio.Locked = False
txtMutuo.Locked = False
txtFinanziamento.Locked = False
txtPensione.Locked = False
txtMacchina.Locked = False
txtBenzina.Locked = False
txtADSL.Locked = False
txtRicariche.Locked = False
txtExtraUscite.Locked = False
txtAlimenti.Locked = False
txtVestiario.Locked = False
txtBeni.Locked = False
txtMedicine.Locked = False
txtCasa.Locked = False
txtMeccanico.Locked = False
txtViaggi.Locked = False
txtScuola.Locked = False
txtUniversita.Locked = False
txtRAI.Locked = False
txtExtra.Locked = False
txtStipendioMarito.Locked = False
txtStipendioMoglie.Locked = False
txtFondi.Locked = False
txtExtra.Locked = False
cmdApplica.Enabled = True
txtGas.SetFocus
End Sub