Oppure

Loading
06/06/09 23:04
AMIGOS
è possibile salvare in automatico alla chiusura del form.....
senza creare l apposito bottone...?
aaa
07/06/09 7:10
Louis
Ciao Amigos,
per cancellare il contenuto delle Txt puoi usare il seguente codice:
Dim Ctr As Control
    For Each Ctr In Me.Controls
        'Se il controllo è una TextBox, cancella il suo contenuto:
        If TypeOf Ctr Is TextBox Then Ctr.Text = ""
    Next


Molto efficace!!
:k:
aaa
07/06/09 7:28
Louis
"è possibile salvare in automatico alla chiusura del form.....
senza creare l apposito bottone...?"
Potresti fare così:
dichiara una variabile booleana del tipo: Dim blVerSalva As Boolean
poi la inserisci prima dell'istruzione Unload con la quale scarichi dalla memoria la Frm
se blVerSalva = False chiami la routine Salva; insomma una cosa del tipo:

If blVerSalva = False And Val(Text1(5).Text)) > 0 Then
        intDom = MsgBox("Prova Apertura e salvataggio del file - Volete salvare il file in uso?" & Chr(13) _
        & "Click su OK per effettuare l'operazione" & Chr(13) _
        & "su Annulla per aprire un nuovo file, senza salvare quello in uso.", vbExclamation + vbOKCancel, ".....")
        ' Pulsante OK:
        If intDom = 1 Then
            ' Invia alla routine salva con nome:
            Call frmProvaSalvaApri.SalvaNome
        End If
    End If


Naturalmente dopo il salvataggio del file devi impostare blVerSalva = True
Poi è sempre bene controllare che il file debba essere salvato magari verificando che la Txt di una somma contenga un valore Val(Text1(5).Text)) > 0 o anche Len(Text1(5).Text)) > 0; bhe vi possono essere diversi casi ...
Spero che ti sia utile. :asd:
aaa
07/06/09 9:05
AMIGOS
grazie ragazzi......
efficacissimo il tuo codice louis...:k:
Ultima modifica effettuata da AMIGOS 07/06/09 9:11
aaa
07/06/09 9:21
GrG
Non scrivete più post di fila, grazie. (usate il pulsante edit e modificate il vostro post precedente)

Louis, ho visto che usi chr(13) per fare l'accapo, comunque c'è anche la costante vbCrLf di vb...
aaa