Salvare il contenuto dei controlli in un LogFile

di Anonimizzato1503 il
4 risposte
/
Anonimizzato1503
Utente anonimizzato
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

  • /
    Anonimizzato476
    Utente anonimizzato
    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
  • /
    Anonimizzato1503
    Utente anonimizzato
    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
  • /
    Anonimizzato1503
    Utente anonimizzato
    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
  • /
    Anonimizzato1503
    Utente anonimizzato
    Giovanni ho risolto così:

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



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