Function DAOnullToZero(tblName) As Boolean

' DAO を使用して、データの中のNull値を全て０に変換する
' 2001/10/20 pPoy

On Error GoTo Err_DAOnullToZero
    Dim rst As DAO.Recordset
    Dim fldValue As Variant
    Dim cnt As Long
    
    Set rst = CurrentDb.OpenRecordset(tblName)
    
    Do Until rst.EOF
        For cnt = 0 To rst.Fields.count - 1
            If cnt = 0 Then GoTo fldnext
            fldValue = Nz(rst(cnt), 0)
            rst.Edit
            rst(cnt) = fldValue
            rst.Update
fldnext:
        Next cnt
        rst.MoveNext
    Loop
    
    rst.Close

    DAOnullToZero = True
    
DAOnullToZero_Exit:
    Exit Function
    
Err_DAOnullToZero:
    DAOnullToZero = False
    Resume DAOnullToZero_Exit

End Function 



Sub Text()
' 呼び出し用です。

    If DAOnullToZero("[テーブル１]") = True Then
        MsgBox "無事終了", vbOKOnly
    Else
        MsgBox "失敗しちゃった", vbOKOnly
    End If
End Sub

Function ADOnullToZero(tblName) As Boolean

' ADO を使用して、データの中のNull値を全て０に変換する
' 2001/10/20 pPoy

On Error GoTo Err_ADOnullToZero

    Dim rst As New ADODB.Recordset
    Dim fldValue As Variant
    Dim cnt As Long
    
    rst.Open tblName, CurrentProject.Connection, , adLockOptimistic
    Do Until rst.EOF
        For cnt = 0 To rst.Fields.count - 1
            If cnt = 0 Then GoTo fldnext
            fldValue = Nz(rst(cnt), 0)
            rst(cnt) = fldValue
            rst.Update
fldnext:
        Next cnt
        rst.MoveNext
    Loop
    rst.Close
    
    ADOnullToZero = True
    
ADOnullToZero_Exit:
    Exit Function
    
Err_ADOnullToZero:
    ADOnullToZero = False
    Resume ADOnullToZero_Exit

End Function