[Akmorph]

Not a pro at this and working with some code that I recieved for a troubleshoot.. not sure if the Edit is throwing this off.. Let me know what you guys can . thank you

Public Function FillBlanks()
Set MyDb = CurrentDb
timesthru = 0
Do Until timesthru = 2
If timesthru = 0 Then
Set myTbl = MyDb.OpenRecordset("Select * from DetailData;")
Else
Set myTbl = MyDb.OpenRecordset("Select * from [DetailData-specialists];")
End If
myTbl.MoveFirst

Do Until myTbl.EOF
If IsNull(myTbl!region) Then
region = Lreg
Else
region = myTbl!region
Lreg = myTbl!region
End If

If IsNull(myTbl!DistrHQHCN) Then
DistrHCN = LHCN
DistrName = LName
Else
DistrHCN = myTbl!DistrHQHCN
LHCN = myTbl!DistrHQHCN
DistrName = myTbl!DistrHQName
LName = myTbl!DistrHQName
End If

If IsNull(myTbl!DistrictCodeName) Then
District = LDistrict
districtCode = LDistrictCode
Else
DistrictCodeName = myTbl!DistrictCodeName
LDistrictCodeName = myTbl!DistrictCodeName
LDistrict = Right([DistrictCodeName], Len([DistrictCodeName]) - 5)
LDistrictCode = Left([DistrictCodeName], 4)
End If

If IsNull(myTbl!datasource) Then
region = LData
Else
datasource = myTbl!datasource
LData = myTbl!datasource
End If
myTbl.Edit
myTbl!region = Lreg
myTbl!DistrHQHCN = LHCN
myTbl!DistrHQName = LName
myTbl!DistrictCodeName = LDistrictCodeName
myTbl!DistrictName = LDistrict
myTbl!districtCode = LDistrictCode
myTbl!datasource = LData
myTbl.Update

myTbl.MoveNext
Loop


timesthru = timesthru + 1
Loop
End Function

The Error I get is in the Watch windows
(Expression) .Edit (Value)<Can't compile module>(type)Empty (context) BlankRowProcessing.FillblanksLoc