Newsgroup: it.comp.appl.access
Titolo: produrre un log file

Salve a tutti.
Ho composto il seguente codice vba che mi consente di effettuare una 
controllo di tutti i nominativi inseriti nella Tabella corrispondente.
Ogni volta che trova un errore si ferma e mi avverte dell'errore esistente 
sul record; premo invio e vado avanti fino all'ultimo record.
Se fosse possibile, vorrei (al termine della routine) produrre un file txt 
che mi consenta di prendere visione di tutti gli errori riscontrati.
Che codice dovrei comporre unitamente a quello sottoriportato ?
Grazie mille.
Un saluto a tutti
Lucky
 
_____________________________________________________________
Private Sub Comando2114_Click()
On Error GoTo Err_Comando2114_Click
 
DoCmd.GoToRecord , , acFirst
 
    Dim Messaggio As String
    Dim PulsantiEIcone As Integer
    Dim Titolo As String
    Dim Risposta As Integer
 
step0:
If IsNull(Me![NOMINATIVO].Value) Then
GoTo Exit_Comando2114_Click:
Else
GoTo step1:
End If
 
step1:
 
If Forms![SchedeClienti]![PART_IVA] = "00000000000" Then
Forms![SchedeClienti]![PART_IVA] = " "
End If
 
If Forms![SchedeClienti]![COD_FISC] = "-" Then
Forms![SchedeClienti]![COD_FISC] = " "
End If
 
If Forms![SchedeClienti]![Soggetto NON IVA] = True Then
Forms![SchedeClienti]![PART_IVA] = " "
End If
 
'______
 
    If Forms![SchedeClienti]![Soggetto IVA] = True Then
    If Forms![SchedeClienti]![PART_IVA] = " " Then
        Messaggio = "Nel caso di un Soggetto IVA, il campo < Partita IVA > 
non dovrebbe essere vuoto o uguale a zero. Ricorda di correggerlo prima di 
compilare qualsiasi parte o documento presente nel programma."
        PulsantiEIcone = vbOKOnly + vbExclamation
        Titolo = "Attenzione !!!"
        Risposta = MsgBox(Messaggio, PulsantiEIcone, Titolo)
        If Risposta = vbOKOnly Then
        GoTo step101:
        Else
        GoTo step101:
        End If
    End If
    End If
 
step101:
 
'______
 
    If Forms![SchedeClienti]![Soggetto NON IVA] = True Then
    If Forms![SchedeClienti]![Soggetto NON IVA] = " " Then
        Messaggio = "Nel caso di un Soggetto NON IVA, il campo < Codice 
Fiscale > non dovrebbe essere vuoto o uguale a zero. Ricorda di correggerlo 
prima di compilare qualsiasi parte o documento presente nel programma."
        PulsantiEIcone = vbOKOnly + vbExclamation
        Titolo = "Attenzione !!!"
        Risposta = MsgBox(Messaggio, PulsantiEIcone, Titolo)
        If Risposta = vbOKOnly Then
        GoTo step102:
        Else
        GoTo step102:
        End If
    End If
    End If
 
step102:
 
'________
 
DoCmd.GoToRecord , , acNext
 
GoTo step0:
 
Exit_Comando2114_Click:
    Exit Sub
 
Err_Comando2114_Click:
    MsgBox Err.Description
    Resume Exit_Comando2114_Click
 
End Sub
________________________________________________ 
 
 

Questa è una CLASSE per generare LOG:
http://mirror.masterdrive.it/alessandrobaraldi/DettaglioFaq.asp%3FIdFAQ=127.html
 
 
Scarica il File, ridefinendo NOME ed ESTENSIONE(RAR) è un MIRROR statico.
 
@Alex

 ha scritto nel messaggio 
news:54940456-d5e2-4c75...@googlegroups.com...

Grazie Alex, ho trovato tutto.
Ma ora che cosa devo fare: dopo avere copiato il modulo di classe nel mio 
db,
quale codice devo inserire/modificare nella mia routine ?
Grazie
Saluti
Lucly 
 
 

Devi usare la Classe o parte del codice che può servirti...!
 
Se istanzi la Classe nella Form o in un Modulo poi puoi richiamarne il metodo per inviare il Messaggio di LOG al File...
Se non ricordo male, nel DEMO trovi un'esempio...
 
@Alex

 ha scritto nel messaggio 
news:6081a88f-cab8-4d35...@googlegroups.com...
Devi usare la Classe o parte del codice che pu� servirti...!
 
Se istanzi la Classe nella Form o in un Modulo poi puoi richiamarne il 
metodo per inviare il Messaggio di LOG al File...
Se non ricordo male, nel DEMO trovi un'esempio...
 
@Alex
 
 
ok Grazie Alex
Saluti
Lucky