B
Beccy Howard
I have added this to my code to help ignore NULL values
when running the code, the only problem is now it is
somehow automatically inserting values in the LastDNAdate
field.
For example:
Before I run the module I have the following
LastDNAdate (column)
Row1 20030831
Row2
Row3 20030831
Row4
Row5 20030831
After I run the code I have the following:
LastDNAdate (column)
Row1 20030831
Row2 20030831
Row3 20030831
Row5 20030831
Row6 20030831
If IsNull(rkb![LastDNAdate]) Then
LastDNAdate = ""
Else
dnadate = Right$(rkb![LastDNAdate], 2) & "/" &
Mid$(rkb![LastDNAdate], 5, 2) & "/" & Mid$(rkb!
[LastDNAdate], 3, 2)
dnadate2 = DateValue(dnadate)
End If
when running the code, the only problem is now it is
somehow automatically inserting values in the LastDNAdate
field.
For example:
Before I run the module I have the following
LastDNAdate (column)
Row1 20030831
Row2
Row3 20030831
Row4
Row5 20030831
After I run the code I have the following:
LastDNAdate (column)
Row1 20030831
Row2 20030831
Row3 20030831
Row5 20030831
Row6 20030831
If IsNull(rkb![LastDNAdate]) Then
LastDNAdate = ""
Else
dnadate = Right$(rkb![LastDNAdate], 2) & "/" &
Mid$(rkb![LastDNAdate], 5, 2) & "/" & Mid$(rkb!
[LastDNAdate], 3, 2)
dnadate2 = DateValue(dnadate)
End If