AllowZero

Function AllowZeroLength(strDatabase As String, strtablename _
        As String, status As Boolean) As Boolean
    Dim db As Database
    Dim td As TableDef
    Dim fd As Field
    On Error Goto Error_Handler
    Set db = OpenDatabase(strDatabase)
    Set td = db.TableDefs(strtablename)
    'loop dei campi nel recordset selezionato
    For Each fd In td.Fields
        'Verifica il tipo del campo e testa solo Memo e Text
        If fd.Type = dbText Or dbMemo Then
            If status = True Then
                fd.AllowZeroLength = True
            Else
                fd.AllowZeroLength = False
            End If
        End If
    Next fd
    AllowZeroLength = True
    Exit Function
    Error_Handler:
    'Raise error.
    Err.Raise Err.Number, "AllowZeroLength", _
        "Impossibile processare il campo.", Err.Description
    AllowZeroLength = False
    
    'Reset
    Resume Next
End Function

strDatabase  = path del database
strTableName = Nome della tabella da processare
Restituisce    True / False

Function AllowZeroLength(strDatabase As String, strtablename _
As String, status As Boolean) As Boolean
Dim db As Database
Dim td As TableDef
Dim fd As Field
On Error Goto Error_Handler
Set db = OpenDatabase(strDatabase)
Set td = db.TableDefs(strtablename)
'loop dei campi nel recordset selezionato

For Each fd In td.Fields
'Verifica il tipo del campo e testa solo Memo e Text

If fd.Type = dbText Or dbMemo Then
If status = True Then
fd.AllowZeroLength = True
Else
fd.AllowZeroLength = False
End If
End If
Next fd
AllowZeroLength = True
Exit Function
Error_Handler:
'Raise error.

Err.Raise Err.Number, "AllowZeroLength", _
"Impossibile processare il campo.", Err.Description
AllowZeroLength = False

'Reset

Resume Next
End Function

strDatabase = path del database
strTableName = Nome della tabella da processare
Restituisce True / False