Salvare il contenuto dei controlli in un LogFile

di il
4 risposte

Salvare il contenuto dei controlli in un LogFile

Salve ragazzi,
ho un problema che non riesco a risolvere da giorni.
Non so come ricostruire il contenuto dei controlli della maschera per memorizzarli in un file di log.
La riga è sbagliata con i valori Name e Value, cioè mi dà errore.
Potete dirmi come fare?
GRazie mille.
Vi elenco solo la parte del codice incriminato:

Private ctl as Control
.....
Private Function Record() As String
Dim ctl As Control
Dim Str As String

Str = ""

For Each ctl In Maschera.Controls

Str = Str & ctl.name & " = " & ctl.value & vbCrLf


Next
Record = Str
End Function 'Record

Ciao Rita

Grazie
Ciao Rita

4 Risposte

  • Re: Salvare il contenuto dei controlli in un LogFile

    Private Function Record() As String

    Dim ctl As Control

    For Each ctl In Maschera.Controls

    <b>On Error Resume Next</b>

    Record = Record & ctl.name & " = " & ctl.Talue & vbCrLf
    <b>Record = Record & ctl.name & " = " & ctl.Text & vbCrLf</b>

    Next

    End Function 'Record

    Giovanni
    ---
    http://www.y2ksw.com/vbulletin
  • Re: Salvare il contenuto dei controlli in un LogFile

    Ciao Giovanni,
    innanzitutto ti ringrazio per la risposta.
    Il codice da te inserito funziona benissimo, però io vorrei che mi venisse segnalato cosa è stato esattamente cambiato, cioè il record prima e dopo la modifica.
    Il fle di log (dopo le mie prove) si presenta così:
    ----------------------------------------------

    2004.12.21 - 18.44.18
    User = rita - Host = AVVENTUR
    Form = Anagrafica 1 - continua
    Azione: Eliminazione di 1 record


    ----------------------------------------------

    2004.12.21 - 18.44.22
    User = rita - Host = AVVENTUR
    Form = Anagrafica 1 - continua
    Azione: Modifica

    PRIMA DELLA MODIFICA:

    DOPO LA MODIFICA:
    ----------------------------------------------

    2004.12.21 - 18.44.29
    User = rita - Host = AVVENTUR
    Form = Anagrafica 1 - continua
    Azione: Inserimento

    ----------------------------------------------

    Ecco io vorrei che mi dicesse quale record è stato cambiato.
    Si tratta di ricostruire la stringa contenuta nei controlli.
    Comunque grazie mille.


    Grazie
    Ciao Rita
  • Re: Salvare il contenuto dei controlli in un LogFile

    Scusamiii Giovanni!!
    Non avevo impostato str = Record!!!
    La cancellazione e l'inserimento è ok,
    Solo la modifica è da rettificare.
    DEvo vedere come mai mi segnala prima e dopo la modifica con l'ultimo cambiamento.
    Cioè devo scoprire perchè il record prima della modifica è 'Carla' e dopo la modifica è sempre 'Carla' invece di avere 'Mario' come versione antecedente alla modifica.
    Dovrei avere :
    Prima della modifica:
    Mario

    Dopo la modifica:
    Carla

    Invece ho sempre Carla!



    Grazie
    Ciao Rita
  • Re: Salvare il contenuto dei controlli in un LogFile

    Giovanni ho risolto così:

    Record = Record & ctl.Name & " = " & ctl.OldValue & vbCrLf



    Grazie
    Ciao Rita
Devi accedere o registrarti per scrivere nel forum
4 risposte