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