Ben_Entrew
Registered User.
- Local time
- Today, 02:12
- Joined
- Dec 3, 2013
- Messages
- 177
Hi all,
I try to go throgh all columns and replace all blank fields with 0.
Somehow this doesn't work:
Can someone help me out here?
Thanks in advance.
Regards,
Ben
I try to go throgh all columns and replace all blank fields with 0.
Somehow this doesn't work:
Code:
Sub TEST()
Dim str As String
Dim rs As DAO.Recordset
Dim fld As DAO.Field
str = "Select * from Quantity_022014"
Set rs = CurrentDb.OpenRecordset(str)
For Each fld In rs.Fields
On Error Resume Next
If fld.Value = Null Then
fld.Value = 0
End If
Next fld
End Sub
Can someone help me out here?
Thanks in advance.
Regards,
Ben