20210823 03185700 1.0 INSPIRE Metadata Directive FALSE CalculateField Add_Points_Final_1120 AddrPtID [OBJECTID] VB # CalculateField Address_Points AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n\n" Project V:\StageDbs\Address_Points.mdb\AddressPoints V:\StageDbs\Address_Points_NonHARN.mdb\AddressPoints PROJCS['NAD_1983_StatePlane_Florida_West_FIPS_0902_Feet',GEOGCS['GCS_North_American_1983',DATUM['D_North_American_1983',SPHEROID['GRS_1980',6378137.0,298.257222101]],PRIMEM['Greenwich',0.0],UNIT['Degree',0.0174532925199433]],PROJECTION['Transverse_Mercator'],PARAMETER['False_Easting',656166.6666666665],PARAMETER['False_Northing',0.0],PARAMETER['Central_Meridian',-82.0],PARAMETER['Scale_Factor',0.9999411764705882],PARAMETER['Latitude_Of_Origin',24.33333333333333],UNIT['Foot_US',0.3048006096012192]] NAD_1983_To_HARN_Florida PROJCS['NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet',GEOGCS['GCS_North_American_1983_HARN',DATUM['D_North_American_1983_HARN',SPHEROID['GRS_1980',6378137.0,298.257222101]],PRIMEM['Greenwich',0.0],UNIT['Degree',0.0174532925199433]],PROJECTION['Transverse_Mercator'],PARAMETER['False_Easting',656166.6666666665],PARAMETER['False_Northing',0.0],PARAMETER['Central_Meridian',-82.0],PARAMETER['Scale_Factor',0.9999411764705882],PARAMETER['Latitude_Of_Origin',24.33333333333333],UNIT['Foot_US',0.3048006096012192]],VERTCS['NAVD_1988',VDATUM['North_American_Vertical_Datum_1988'],PARAMETER['Vertical_Shift',0.0],PARAMETER['Direction',1.0],UNIT['Meter',1.0]] CopyFeatures V:\StageDbs\Address_Points_NonHARN.mdb\AddressPoints_wZ V:\StageDbs\Address_Points_NonHARN.mdb\AddressPoints # 0 0 0 ChangePrivileges 'Database Connections\SQLTrans.sde\SQLTrans.TRANS.RoadsAndStreets\SQLTrans.TRANS.AddressPoints' AddressEditor GRANT GRANT ChangePrivileges 'Database Connections\SQLTrans.sde\SQLTrans.TRANS.RoadsAndStreets\SQLTrans.TRANS.AddressPoints' StreetsEditor REVOKE REVOKE CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address "LTrim( RTrim( [AddNumber] ) ) & " " & LTrim( RTrim( [StreetPreDir] ) ) & " " & LTrim( RTrim( [StreetName] ) ) & " " & LTrim( RTrim( [StreetSuffix] ) ) & " " & LTrim(RTrim( [StreetPostDir] ) ) & ", " & LTrim(RTrim( [UnitType] ) ) & " " & LTrim(RTrim( [UnitNumber] ) )" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf [AddNumber] <> NULL Then Addr = [AddNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull( [AddNumber]) Then Addr = [AddNumber]" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints SCCode "GD" VB # CalculateField AddressPoints DwellingType "GR" VB # CalculateField AddressPoints DwellingType "GR" VB # CalculateField AddressPoints DwellingType "OB" VB # CalculateField AddressPoints SCCode "GD" VB # CalculateField AddressPoints SCNotes "OK SS" VB # CalculateField AddressPoints DwellingType "SH" VB # CalculateField AddressPoints SCCode "GD" VB # CalculateField AddressPoints SCNotes "OK SS" VB # CalculateField AddressPoints SCNotes "OK SS" VB # CalculateField AddressPoints SCNotes "OK SS" VB # CalculateField AddressPoints SCCode "GD" VB # CalculateField AddressPoints DwellingType "PG" VB # CalculateField AddressPoints DwellingType "SD" VB # CalculateField AddressPoints DwellingType "SH" VB # CalculateField AddressPoints DwellingType "OB" VB # CalculateField AddressPoints DwellingType "AP" VB # CalculateField AddressPoints DwellingType "BN" VB # CalculateField AddressPoints DwellingType "GR" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints LastEditor "SS" VB # CalculateField AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & strMonth & Year(Now()) & "_" & lastbit\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField AddressPoints DwellingType "DP" VB # CalculateField AddressPoints DwellingType "DP" VB # CalculateField AddressPoints DwellingType "IN" VB # CalculateField AddressPoints DwellingType "ID" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "MH" VB # CalculateField AddressPoints DwellingType "CD" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "AP" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "IN" VB # CalculateField AddressPoints DwellingType "ID" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "HP" VB # CalculateField AddressPoints DwellingType "CP" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "BN" VB # CalculateField AddressPoints DwellingType "SH" VB # CalculateField AddressPoints DwellingType "OB" VB # CalculateField AddressPoints DwellingType "OB" VB # CalculateField AddressPoints DwellingType "OB" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "ID" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "ID" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "IN" VB # CalculateField AddressPoints DwellingType "ID" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "PG" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "ID" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MH" VB # CalculateField AddressPoints DwellingType "SC" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "SF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "CM" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints DwellingType "MF" VB # CalculateField AddressPoints AddressStatus "IA" VB # CalculateField AddressPoints AddressStatus "IA" VB # CalculateField AddressPoints AddressStatus "IA" VB # FeatureClassToFeatureClass V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints V:\StageDBs2\SQLTrans.gdb\RoadsAndStreets AddressPoints # "AddPointID "AddPointID" true true false 18 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,AddPointID,-1,-1;AddPrefix "AddPrefix" true true false 5 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,AddPrefix,-1,-1;AddNumber "AddNumber" true true false 20 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,AddNumber,-1,-1;AddSuffix "AddSuffix" true true false 5 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,AddSuffix,-1,-1;BldgName "BldgName" true true false 30 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,BldgName,-1,-1;FloorNum "FloorNum" true true false 10 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,FloorNum,-1,-1;UnitType "UnitType" true true false 10 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,UnitType,-1,-1;UnitNumber "UnitNumber" true true false 10 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,UnitNumber,-1,-1;StreetPreMod "StreetPreMod" true true false 30 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,StreetPreMod,-1,-1;StreetPreDir "StreetPreDir" true true false 2 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,StreetPreDir,-1,-1;StreetPreType "StreetPreType" true true false 20 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,StreetPreType,-1,-1;StreetName "StreetName" true true false 50 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,StreetName,-1,-1;StreetSuffix "StreetSuffix" true true false 5 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,StreetSuffix,-1,-1;StreetPostDir "StreetPostDir" true true false 2 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,StreetPostDir,-1,-1;StreetPostMod "StreetPostMod" true true false 30 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,StreetPostMod,-1,-1;Muni "Muni" true true false 50 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,Muni,-1,-1;State "State" true true false 2 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,State,-1,-1;ZIP "ZIP" true true false 5 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,ZIP,-1,-1;Plus4 "Plus4" true true false 4 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,Plus4,-1,-1;County "County" true true false 25 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,County,-1,-1;ESN "ESN" true true false 12 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,ESN,-1,-1;PostalComm "PostalComm" true true false 50 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,PostalComm,-1,-1;MSAGComm "MSAGComm" true true false 50 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,MSAGComm,-1,-1;LandmarkName "LandmarkName" true true false 100 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,LandmarkName,-1,-1;BldgElevOrig "BldgElevOrig" true true false 8 Double 8 38 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,BldgElevOrig,-1,-1;FloorElevInterp "FloorElevInterp" true true false 8 Double 8 38 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,FloorElevInterp,-1,-1;Latitude "Latitude" true true false 8 Double 8 38 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,Latitude,-1,-1;Longitude "Longitude" true true false 8 Double 8 38 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,Longitude,-1,-1;CADX "CADX" true true false 4 Long 0 10 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,CADX,-1,-1;CADY "CADY" true true false 4 Long 0 10 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,CADY,-1,-1;USNG "USNG" true true false 50 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,USNG,-1,-1;GTGCode "GTGCode" true true false 2 Short 0 5 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,GTGCode,-1,-1;GTGStatus "GTGStatus" true true false 25 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,GTGStatus,-1,-1;GTGDesc "GTGDesc" true true false 100 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,GTGDesc,-1,-1;GTGNotes "GTGNotes" true true false 125 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,GTGNotes,-1,-1;AddressStatus "AddressStatus" true true false 6 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,AddressStatus,-1,-1;DwellingType "DwellingType" true true false 6 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,DwellingType,-1,-1;LastUpdate "LastUpdate" true true false 36 Date 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,LastUpdate,-1,-1;LastEditor "LastEditor" true true false 50 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,LastEditor,-1,-1;SCNotes "SCNotes" true true false 75 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,SCNotes,-1,-1;SCCode "SCCode" true true false 50 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,SCCode,-1,-1;SCQCid "SCQCid" true true false 2 Short 0 5 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,SCQCid,-1,-1;GlobalID "GlobalID" false false false 38 GlobalID 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,GlobalID,-1,-1;Address "Address" true true false 100 Text 0 0 ,First,#,V:\DatabaseConnections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints,Address,-1,-1" # AddField V:\StageDBs2\SQLTrans.gdb\AddressPoints Creator TEXT # # 12 # NULLABLE NON_REQUIRED # AddField V:\StageDBs2\SQLTrans.gdb\AddressPoints CreateDate DATE # # # # NULLABLE NON_REQUIRED # EnableEditorTracking "Database Connections\SQLTrans.sde\SQLTrans.TRANS.AddressPoints" Creator CreateDate LastEditor LastUpdate NO_ADD_FIELDS DATABASE_TIME CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CP" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PG" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "PH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SH" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IN" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "AP" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MH" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber "551" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitType "SUITE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir "NORTH" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir "N" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "CATTLEMEN" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 2 VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CB" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber "900" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField "Database Connections\SQLTrans.sde\SQLTrans.TRANS.AddressesAndStreets\SQLTrans.TRANS.AddressPoints" MSLINK 0 VB # AddField "Database Connections\SQLTrans.sde\SQLTrans.TRANS.AddressesAndStreets\SQLTrans.TRANS.AddressPoints" MSLINK LONG # # # # NULLABLE NON_REQUIRED # CalculateField "Database Connections\SQLTrans.sde\SQLTrans.TRANS.AddressesAndStreets\SQLTrans.TRANS.AddressPoints" MSLINK 0 VB # CalculateField SQLTrans.TRANS.AddressPoints MSLINK 0 PYTHON_9.3 # CalculateField SQLTrans.TRANS.AddressPoints MSLINK 0 PYTHON_9.3 # CalculateField SQLTrans.TRANS.AddressPoints MSLINK 0 PYTHON_9.3 # CalculateField SQLTrans.TRANS.AddressPoints DwellingType NULL VB # CalculateField SQLTrans.TRANS.AddressPoints MSLINK 0 VB # CalculateField SQLTrans.TRANS.AddressPoints MSLINK 0 VB # CalculateField AddressPoints MSLINK autoIncrement() VB "rec=0\ndef autoIncrement():\n global rec\n pStart = 1 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 1 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" AddField AddressPoints OLD_MSLINK LONG # # # # NULLABLE NON_REQUIRED # CalculateField AddressPoints MUN911 "NPRT" VB # CalculateField AddressPoints MUN911 "SARA" VB # CalculateField AddressPoints MUN911 "VEN" VB # CalculateField AddressPoints MUN911 "LBK" VB # CalculateField AddressPoints MUN911 "ENWD" VB # CalculateField AddressPoints MUN911 "NOK" VB # CalculateField AddressPoints MUN911 "NCTY" VB # CalculateField AddressPoints MUN911 "SCTY" VB # CalculateField AddressPoints MUN911 "LBK" VB # CalculateField AddressPoints MUN911 "NCTY" VB # CalculateField AddressPoints MUN911 "NCTY" VB # CalculateField AddressPoints MUN911 "NCTY" VB # CalculateField AddressPoints MUN911 "SARA" VB # CalculateField AddressPoints MUN911 "SARA" VB # CalculateField AddressPoints MUN911 "NCTY" VB # CalculateField AddressPoints MUN911 "NCTY" VB # CalculateField AddressPoints MUN911 "SCTY" VB # CalculateField AddressPoints MUN911 "NOK" VB # CalculateField AddressPoints MUN911 "SCTY" VB # CalculateField AddressPoints MUN911 "NOK" VB # CalculateField AddressPoints FCODE "GIS" VB # CalculateField AddressPoints StreetSuffix "RD" VB # CalculateField AddressPoints StreetSuffix "DR" VB # CalculateField AddressPoints StreetName "CAMELLIA" VB # CalculateField AddressPoints StreetName "CAMELLIA" VB # CalculateField AddressPoints StreetName "CASTLEBRIDGE" VB # CalculateField AddressPoints StreetSuffix "LN" VB # CalculateField AddressPoints StreetName "FOSSANO" VB # CalculateField AddressPoints StreetName "GREENVIEW" VB # CalculateField AddressPoints StreetName "GREENVIEW" VB # CalculateField AddressPoints StreetSuffix "AVE" VB # CalculateField AddressPoints StreetSuffix "ST" VB # CalculateField AddressPoints StreetSuffix "BLVD" VB # CalculateField AddressPoints StreetName "ANTIOCH" VB # CalculateField AddressPoints StreetSuffix "MEWS" VB # CalculateField AddressPoints StreetName "LAKESIDE" VB # CalculateField AddressPoints StreetName "LICHFIELD" VB # CalculateField AddressPoints StreetName "MARA VISTA" VB # CalculateField AddressPoints StreetName "MACKAY" VB # CalculateField AddressPoints StreetName "RIDGEVIEW" VB # CalculateField AddressPoints StreetName "SADDLEBOW" VB # CalculateField AddressPoints StreetSuffix "DR" VB # CalculateField AddressPoints StreetSuffix "LN" VB # CalculateField AddressPoints StreetName "SPRING MILL" VB # CalculateField AddressPoints StreetName "TARTAN" VB # CalculateField AddressPoints StreetSuffix "AVE" VB # CalculateField AddressPoints StreetPreDir "E" VB # CalculateField AddressPoints StreetSuffix "AVE" VB # CalculateField AddressPoints StreetPostDir NULL VB # CalculateField AddressPoints StreetName "GUADELOUPE" VB # CalculateField AddressPoints StreetPreDir NULL VB # CalculateField AddressPoints StreetSuffix "RD" VB # CalculateField AddressPoints StreetPreDir NULL VB # CalculateField AddressPoints StreetPreDir NULL VB # CalculateField AddressPoints StreetPreDir NULL VB # CalculateField AddressPoints StreetPostDir NULL VB # CalculateField AddressPoints StreetPostDir "W" VB # CalculateField AddressPoints StreetPreDir NULL VB # CalculateField AddressPoints COM_NME NULL VB # CalculateField AddressPoints LV_AREA NULL VB # CalculateField AddressPoints MSG NULL VB # CalculateField AddressPoints UnitType "HNGR" VB # CalculateField AddressPoints UnitType NULL VB # CalculateField AddressPoints UnitType "UNKWN" VB # ChangePrivileges 'Database Connections\SQLTrans as Trans.sde\SQLTrans.TRANS.AddressesAndStreets\SQLTrans.TRANS.AddressPoints';'Database Connections\SQLTrans as Trans.sde\SQLTrans.TRANS.AddressesAndStreets\SQLTrans.TRANS.BuildingFootprint';'Database Connections\SQLTrans as Trans.sde\SQLTrans.TRANS.AddressesAndStreets\SQLTrans.TRANS.MajorRoads';'Database Connections\SQLTrans as Trans.sde\SQLTrans.TRANS.AddressesAndStreets\SQLTrans.TRANS.Streets' TransEditor GRANT GRANT CalculateField SQLTrans.TRANS.AddressPoints StreetName "PARAMOUNT" VB # CalculateField SQLTrans.TRANS.AddressPoints Address "[AddNumber] +" " + [StreetName] +" " + [StreetSuffix] +", " +" " + [UnitType] +" " + [UnitNumber]" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitType "UN" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitType "UNIT" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G456" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G083" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G109" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G110" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G132" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G511" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G614" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "SCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "SCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "ENWD" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix " NULL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "ST" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "NARRANGANSET" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "PELICAN POINT" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "ELM STREET" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "APPROACH" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir "S" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "TUTTLE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "AVE" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 259937 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber "900" VB # CalculateField SQLTrans.TRANS.AddressPoints OLD_MSLINK NULL VB # CalculateField SQLTrans.TRANS.AddressPoints MSG NULL VB # CalculateField SQLTrans.TRANS.AddressPoints COM_NME NULL VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 260495 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "MAINT" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber NULL VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "MECHANICAL" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber null VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G245" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34238" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "ABACO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "GRANAWAY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix null VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "FALLING WATER" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "DAVIS" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "ST" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber 825 VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ""AP_08152013_" & [OBJECTID]" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ""AP_08122013_" & [OBJECTID]" VB # CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON "rec=0\ndef autoIncrement():\n global rec\n pStart = 260505 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON "rec=0\ndef autoIncrement():\n global rec\n pStart = 260506 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints Address "[AddNumber] & " " & LTrim( RTrim( LTrim(RTrim( [StreetPreDir] ) ) & " " & LTrim( RTrim( [StreetName] ) ) & " " & LTrim( RTrim( [StreetSuffix] ) ) & " " & LTrim( RTrim( [StreetPostDir] ) ) ) )" VB # CalculateField SQLTrans.TRANS.AddressPoints Address "[Address] & ", " & [UnitType] & " " & [UnitNumber]" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "TOLEDO BLADE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "BLVD" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir "N" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G377" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PESARO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SAVONA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir "S" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "TAMIAMI" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "TRL" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34229" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "OSP" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "COM" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G315" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "LAUREL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "RD" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetPostDir "E" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G402" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "EDWARDS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "WR MOTE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G559" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34293" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CNP" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "ST" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "ISADORA" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "LANCASHIRE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34293" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G510" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "LOS MARIA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitType "APT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "TWIN" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34234" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "APT" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G032" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "AVELLINI" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G377" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 260642 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 261325 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CNPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CITY OF NORTH PORT" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NORTH PORT" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PETRINO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "STREET" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "ST" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34293" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "I" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IN" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "Inactive" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G559" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CITY OF NORT PORT" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NORT PORT" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PETRINO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "ST" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34293" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "In" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G559" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CITY OF NORTH PORT" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NORTH PORT" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "QUISTO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "ST" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34293" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IN" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G368" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G378" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PORTOFINO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G378" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PORTOFINO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G378" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PORTOFINO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G378" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PORTOFINO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G377" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "BURANO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G377" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "ASTI" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "UNIVERSITY TOWN CENTER" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34243" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G012" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34292" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GiS" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "SCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G456" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PIAVE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "LN" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "NOLEN" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G376" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PADOVA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G376" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SEVILLA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "PL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 261282 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 261499 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" PYTHON_9.3 # CalculateField SQLTrans.TRANS.AddressPoints OLD_MSLINK NULL VB # CalculateField SQLTrans.TRANS.AddressPoints OLD_MSLINK NULL VB # CalculateField SQLTrans.TRANS.AddressPoints LV_APT [UnitNumber] VB # CalculateField SQLTrans.TRANS.AddressPoints COM_NME NULL VB # CalculateField SQLTrans.TRANS.AddressPoints OLD_MSLINK NULL VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G376" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "COV" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PADOVA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G376" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PADOVA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G376" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PADOVA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber "7285" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Muni "CNP" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CNP" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G636" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "ONTARIO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "ENWD" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34223" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "ENWD" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "ENWD" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34231" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "CAVANO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G184" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G580" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "LENOX" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "BLVD" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34293" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "SCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir "N" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FCODE "GIS" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 261587 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 262721 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID NULL VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID NULL VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "RAPTOR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CNP" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34287" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G564" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Creator "cnpae" VB # CalculateField SQLTrans.TRANS.AddressPoints Creator "covae" VB # CalculateField SQLTrans.TRANS.AddressPoints Creator "cosae" VB # CalculateField SQLTrans.TRANS.AddressPoints Creator "tlkae" VB # CalculateField SQLTrans.TRANS.AddressPoints Creator "scae" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SUNDEW" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34238" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G244" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SUNDEW" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SUNDEW" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "ROSEATE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "LN" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "WHIMBREL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SANDHILL PRESERVE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34238" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G244" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G571" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NP" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "CNP" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34288" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CNP" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CIR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "TURNBERRY" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G570" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G376" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber 140 VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints UnitType "UNIT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "UNIVERSITY TOWN CENTER" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34243" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "CM" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G012" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber 140 VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber 140 VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34238" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G208" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PALMER RANCH" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "PKWY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "ANISE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "HYDRANGEA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CIR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CIR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CIR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "GROUNDSEL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "MAYPOP" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "MONARDA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "MONARDA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "sSV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "sSV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "sSV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "VACCARO" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34231" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G184" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "VARENNA" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34231" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "34231" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "G184" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SHELTERING SPRUCE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "ST" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34223" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "ENWD" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G593" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "ENWD" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "1" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "3" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints BldgName "11" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "10" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "12" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "9" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "8" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "7" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "6" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "5" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "2" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "15" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "16" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "17" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "18" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "19" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "20" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "30" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "31" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "14" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "29" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "21" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "28" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "22" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "23" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "24" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "25" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "13" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "26" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "27" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "4" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "0" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "4" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G286" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "OSP" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34229" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "NAVIGATION" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CIR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "EXPLORER" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "REVOLUTION" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "EXPEDITION" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "LN" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "FRONTIER" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 2 VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G184" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 263074 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 264290 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34240" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G108" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "AGUILA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "ADELAAR" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34243" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "SARA" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "TH" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G011" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "OARSMAN" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "CREW" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G401" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "BLUFFWOOD" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "BLUFFWOOD" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "BRADBERRY" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "NOK" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G401" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "STAVELEY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34293" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G510" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "SCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "BARNSLEY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints BldgName "1" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "2" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "3" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "4" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "5" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "6" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "7" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "8" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber "" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "9" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "10" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "11" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "12" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "POTOMAC" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CIR" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PORTSMOUTH" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34292" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "MF" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints LV_AREA "G482" VB # CalculateField SQLTrans.TRANS.AddressPoints MUN911 "SCTY" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints MSLINK autoIncrement() PYTHON_9.3 "rec=0\ndef autoIncrement():\n global rec\n pStart = 264296 #adjust start value, if req'd \n pInterval = 1 #adjust interval value, if req'd\n if (rec == 0): \n rec = pStart \n else: \n rec = rec + pInterval \n return rec\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "NARRAGANSET" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "VALENZA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "LOOP" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints Muni "CV" VB # CalculateField SQLTrans.TRANS.AddressPoints State "FL" VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34275" VB # CalculateField SQLTrans.TRANS.AddressPoints County "SC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VEN" VB # CalculateField SQLTrans.TRANS.AddressPoints DwellingType "SF" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "sSV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "I" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "OKALOOSA" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "DR" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "VENICE" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddressStatus "AC" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddressStatus "AC" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddressStatus "AC" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddressStatus "AC" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddressStatus "AC" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim strYear\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nstrYear = Year(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strDay & strMonth & strYear & "_" & lastbit\n\n\n\n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddressStatus "AC" VB # CalculateField AddressPoints DwellingType "SC" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Muni "NPRT" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName BACKSPIN VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber 137 VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "SANDHILL PRESERVE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "TROPHY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "WEXFORD" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName NEVIANO VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "wCV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName GROVE VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "GROVE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "GROVE" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber [AddNumber] VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName RTrim( [StreetName] ) VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber NULL VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP "34233" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints ZIP "34233" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName RTrim( [StreetName] ) VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber LTrim( [AddNumber] ) VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber RTrim( [AddNumber] ) VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "PASSIONFLOWER" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitType Null VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber Null VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber Null VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName Null VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 1 VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" Sort V:\DatabaseConnections\NewSQLTrans.sde\SQLTrans.TRANS.Addresses\SQLTrans.TRANS.AddressPoints V:\DatabaseConnections\NewSQLTrans.sde\SQLTrans.TRANS.Addresses\SQLTrans.TRANS.AddressPointsSort "Shape ASCENDING" UL EnableEditorTracking V:\NewDatabaseConnections\SQLTransAsTrans.sde\SQLTrans.TRANS.AddressPoints Creator CreateDate LastEditor LastUpdate NO_ADD_FIELDS UTC CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "sSV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "sSV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "AVE" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddSuffix "" VB # CalculateField SQLTrans.TRANS.AddressPoints AddSuffix null VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddSuffix null VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints BldgName null VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n" CalculateField SQLTrans.TRANS.AddressPoints AddSuffix null VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber null VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints PostalComm NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Sarasota" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints PostalComm NULL VB # CalculateField SQLTrans.TRANS.AddressPoints County NULL VB # CalculateField SQLTrans.TRANS.AddressPoints ZIP NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Muni NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber "2568" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber [AddNumber] VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber [AddNumber] VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints DwellingType Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber [AddNumber] VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber [AddNumber] VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "ROSEHILL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "RD" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "PKWY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "BIDWELL" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "sSV" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "'BLDG " & [BldgName] \n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "'BLDG" & [BldgName] \n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "'BLDG" & " " & [BldgName] \n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir null VB # CalculateField SQLTrans.TRANS.AddressPoints StreetPreDir null VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "PINEBROOK" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "RD" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "FIREWHEEL" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "PLACE" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "ELLIOT" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints BldgName "" VB # CalculateField SQLTrans.TRANS.AddressPoints BldgName "" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitType "UNIT" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "COVE II" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "1" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints PostalComm "Venice" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber "904" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "AC" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "MARSH POINTE" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "RD" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "HIDDEN WILLOW" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "WILLOW MARSH" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "SWEET LEAF" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "WAY" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetSuffix "CT" VB # CalculateField SQLTrans.TRANS.AddressPoints StreetName "MYRTLE BAY" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address "" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2000" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2000" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +4000" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +3000" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "2" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "3" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "4" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "2" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "3" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "4" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "2" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "2" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "3" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum 2 VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "C" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "C" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddressStatus "IA" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -300" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address "" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber "" VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber "" VB # CalculateField SQLTrans.TRANS.AddressPoints Address "" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitType "" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitType "" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "2" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "3" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] - 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] - 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] + 1" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +6" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +14" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] -2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +4" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +2" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddNumber 1129 VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitType NULL VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber]+ [BldgName]" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber]+ [BldgName]" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber [AddNumber] VB # CalculateField SQLTrans.TRANS.AddressPoints AddNumber [BldgName] VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber NULL VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" DeleteField C:\Users\mstranov\Desktop\ServerMoves\Trans\SQLTrans.gdb\AddressesAndFootprints\AddressPoints AddPrefix;StreetPreMod;StreetPreType;StreetPostMod;ESN;MSAGComm;BldgElevOrig;FloorElevInterp;USNG;SCCode;ESZ;MSLINK;CR_USERNAME;CR_DATETIME;AT_USERNAME;AT_DATETIME;SP_USERNAME;SP_DATETIME EnableEditorTracking V:\NewServers\SCGGISDB01PW\CONNECTIONS\SQLTransAsTransNew.sde\SQLTrans.TRANS.AddressesAndFootprints\SQLTrans.TRANS.AddressPoints Creator CreateDate LastEditor LastUpdate NO_ADD_FIELDS DATABASE_TIME CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints PostalComm "OSPREY" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField "Address Points" Address "$feature.AddNumber + $feature.StreetName + $feature.StreetSuffix + $feature.UnitType + $feature.UnitNumber" Arcade # CalculateField "Address Points" Address "$feature.AddNumber + ' '+ $feature.StreetName + ' '+ $feature.StreetSuffix + ' '+ $feature.UnitType + ' '+ $feature.UnitNumber" Arcade # CalculateField "Address Points" Address "$feature.AddNumber + " " + $feature.StreetName + " " + $feature.StreetSuffix" Arcade # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "$feature.UnitNumber + 100" Arcade # CalculateField AddressPoints UnitNumber "$feature.UnitNumber - 100" Arcade # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Concatenate([$feature.AddNumber, $feature.StreetName,$feature.StreetSuffix,$feature.UnitType,$feature.UnitNumber],' ') Arcade # CalculateField AddressPoints Address Concatenate([$feature.AddNumber, $feature.StreetName,$feature.StreetSuffix,','$feature.UnitType,$feature.UnitNumber],' ') Arcade # CalculateField AddressPoints Address Concatenate([$feature.AddNumber, $feature.StreetName,$feature.StreetSuffix,$feature.UnitType,$feature.UnitNumber],' ') Arcade # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address "" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "3" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[FloorNum] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "4" VB # CalculateField SQLTrans.TRANS.AddressPoints FloorNum "5" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "3" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints StreetName "FIREFLAG" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address "" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID "" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" RemoveDomainFromField V:\DatabaseConnections\SQLTransAsDBO.sde\SQLTrans.TRANS.AddressesAndFootprints\SQLTrans.TRANS.AddressPoints LastEditor # CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID "COMPLETE" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address "[AddNumber] + " " + [StreetName]+ " " + [StreetSuffix]" VB # CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints FloorNum "8" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField SQLTrans.TRANS.AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] -100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints FloorNum "[FloorNum] +1" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField AddressPoints Address Concatenate($feature.AddNumber,$feature.StreetName,$feature.StreetSuffix,$feature.UnitType,$feature.UnitNumber) Arcade # CalculateField AddressPoints Address Concatenate($feature.AddNumber,$feature.StreetName,$feature.StreetSuffix,$feature.UnitType,$feature.UnitNumber) Arcade # CalculateField AddressPoints Address Concatenate($feature.AddNumber,$feature.StreetName,$feature.StreetSuffix ,$feature.UnitType,$feature.UnitNumber, " ") Arcade # CalculateField AddressPoints Address Concatenate($feature.AddNumber,$feature.StreetName,$feature.StreetSuffix ,$feature.UnitType,$feature.UnitNumber,',') Arcade # CalculateField AddressPoints Address Concatenate($feature.AddNumber,$feature.StreetName,$feature.StreetSuffix ,$feature.UnitType,$feature.UnitNumber,' , ') Arcade # CalculateField AddressPoints Address Concatenate([$feature.AddNumber,$feature.StreetName,$feature.StreetSuffix,$feature.UnitType,$feature.UnitNumber],' , ') Arcade # CalculateField AddressPoints Address Concatenate([$feature.AddNumber,$feature.StreetName,$feature.StreetSuffix,$feature.UnitType,$feature.UnitNumber],' ') Arcade # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +200" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid):\n currDay = datetime.datetime.now().date().day\n currMonth = datetime.datetime.now().date().month\n currYear = datetime.datetime.now().date().year\n strDay = ""\n strMonth = ""\n lastbit = ""\n if currDay < 10:\n strDay = "0" + str(currDay)\n else:\n strDay = str(currDay)\n if currMonth < 10:\n strMonth = "0" + str(currMonth)\n else:\n strMonth = str(currMonth)\n if oid < 10:\n lastbit = "00000" + str(oid)\n if oid >= 10 and oid < 100:\n lastbit = "0000" + str(oid)\n if oid >= 100 and oid < 1000:\n lastbit = "000" + str(oid)\n if oid >= 1000 and oid < 10000:\n lastbit = "00" + str(oid)\n if oid >= 10000 and oid < 100000:\n lastbit = "0" + str(oid)\n if oid >= 100000:\n lastbit = str(oid)\n return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID getID( !OBJECTID!) "Python 3" "def getID(oid): currDay = datetime.datetime.now().date().day currMonth = datetime.datetime.now().date().month currYear = datetime.datetime.now().date().year strDay = "" strMonth = "" lastbit = "" if currDay < 10: strDay = "0" + str(currDay) else: strDay = str(currDay) if currMonth < 10: strMonth = "0" + str(currMonth) else: strMonth = str(currMonth) if oid < 10: lastbit = "00000" + str(oid) if oid >= 10 and oid < 100: lastbit = "0000" + str(oid) if oid >= 100 and oid < 1000: lastbit = "000" + str(oid) if oid >= 1000 and oid < 10000: lastbit = "00" + str(oid) if oid >= 10000 and oid < 100000: lastbit = "0" + str(oid) if oid >= 100000: lastbit = str(oid) return "AP_" + strMonth + strDay + str(currYear) + "_" + lastbit" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber "" VB # CalculateField AddressPoints Address "" VB # CalculateField AddressPoints AddPointID "" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddNumber "[AddNumber] +4" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +7000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +8000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +9000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +10000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +11000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address "[UnitNumber] +12000" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +12000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +4000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +5000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +6000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +3000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +2000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +1000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Concatenate($feature.AddNumber + $feature.StreetName + $feature.StreetSuffix) Arcade Concatenate()Concatenate() CalculateField AddressPoints Address Concatenate($feature.AddNumber,$feature.StreetName,$feature.StreetSuffix, ' ') Arcade Concatenate()Concatenate() CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints BldgName !UnitNumber! "Python 3" # CalculateField AddressPoints BldgName !UnitNumber! "Python 3" # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber !UnitNumber!.replace("-", "") PYTHON_9.3 # CalculateField AddressPoints FloorNum 4 VB # CalculateField AddressPoints FloorNum 5 VB # CalculateField AddressPoints FloorNum 6 VB # CalculateField AddressPoints FloorNum 7 VB # CalculateField AddressPoints FloorNum 8 VB # CalculateField AddressPoints FloorNum 9 VB # CalculateField AddressPoints FloorNum 10 VB # CalculateField AddressPoints FloorNum 11 VB # CalculateField AddressPoints FloorNum 12 VB # CalculateField AddressPoints FloorNum 14 VB # CalculateField AddressPoints FloorNum 15 VB # CalculateField AddressPoints FloorNum 16 VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitType null VB # CalculateField AddressPoints UnitType null VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints StreetName "ANTRIM" VB # CalculateField AddressPoints StreetName "ANTRIM" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints StreetName "BEECHLAKE" VB # CalculateField AddressPoints AddSuffix null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddNumber [UnitNumber] VB # CalculateField AddressPoints UnitType null VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber null VB # CalculateField AddressPoints StreetSuffix "AVE" VB # CalculateField AddressPoints StreetSuffix "DR" VB # CalculateField AddressPoints StreetSuffix "LN" VB # CalculateField AddressPoints StreetSuffix "PL" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints StreetSuffix "ST" VB # CalculateField AddressPoints County "SC" VB # CalculateField AddressPoints State "FL" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddSuffix null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] -1000" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1000" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1000" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & "BLDG" & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & "APT" & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber "3530" VB # CalculateField AddressPoints AddNumber "3540" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull( [BldgName] ) Then Addr = Addr & "BLDG " & [BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull( [BldgName] ) Then Addr = Addr & ", " & "BLDG " & " " &[BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull( [BldgName] ) Then Addr = Addr & ", " & "BLDG " & " " &[BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull( [BldgName] ) Then Addr = Addr & ", " & "BLDG " & " " &[BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull( [BldgName] ) Then Addr = Addr & ", " & "BLDG " & " " &[BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull( [BldgName] ) Then Addr = Addr & ", " & "BLDG " & " " &[BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull( [BldgName] ) Then Addr = Addr & ", " & "BLDG " & " " &[BldgName] \nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddSuffix null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints FloorNum 1 VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints AddNumber null VB # CalculateField AddressPoints StreetName RTrim( [StreetName] ) VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints UnitType null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints UnitType null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber 350 VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints FloorNum 2 VB # CalculateField AddressPoints FloorNum 2 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+100 VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints StreetName "BEACH WAY" VB # CalculateField AddressPoints StreetSuffix "DR" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber [UnitNumber]+"A" VB # CalculateField AddressPoints UnitNumber [UnitNumber]+"B" VB # CalculateField AddressPoints UnitNumber [UnitNumber]+"C" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber [UnitNumber]+"B" VB # CalculateField AddressPoints UnitNumber [UnitNumber]+"A" VB # CalculateField AddressPoints UnitNumber [UnitNumber]+"C" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber [UnitNumber]+"G" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints StreetName "VIA SIENNA" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints StreetName RTrim( [StreetName] ) VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber [UnitNumber]+100 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+100 VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "E"+[UnitNumber] VB # CalculateField AddressPoints UnitNumber "W"+[UnitNumber] VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address "[AddNumber]+" " + [StreetName]+" " + [StreetSuffix]" VB # CalculateField AddressPoints BldgName NULL VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints BldgName nul VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName nul VB # CalculateField AddressPoints BldgName nul VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName "DOLPHIN TOWER" VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints UnitNumber [BldgName] VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([BldgName]) Then Addr = Addr & ", " & "BLDG" & " " & [BldgName] \n\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +1" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints BldgName nul VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddSuffix null VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] - 100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +1000" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints StreetName "ROSEHILL" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints UnitType null VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints UnitNumber null VB # CalculateField AddressPoints StreetName RTrim( [StreetName] ) VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber NULL VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints BldgName NULL VB # CalculateField AddressPoints StreetName RTrim( [StreetName] ) VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints StreetSuffix "WAY" VB # CalculateField AddressPoints Address RTrim( [Address] ) VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[BldgName] +[UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] +[UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints Address "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber]+ [BldgName]" VB # CalculateField AddressPoints UnitNumber "[BldgName]+ [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName]+ [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints BldgName null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints BldgName "E" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints Address "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[BldgName] + [UnitNumber]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] + [BldgName]" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints FloorNum 1 VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber [UnitNumber]+100 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+100 VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber "[UnitNumber]+ A" VB # CalculateField AddressPoints UnitNumber "[UnitNumber]+ [BldgName]" VB # CalculateField AddressPoints UnitNumber "[UnitNumber]+ [BldgName]" VB # CalculateField AddressPoints Address "[Address] + [BldgName]" VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddNumber "2740" VB # CalculateField AddressPoints AddPointID null VB # CalculateField AddressPoints AddNumber "2760" VB # CalculateField AddressPoints AddPointID null VB # CalculateField AddressPoints AddNumber "2630" VB # CalculateField AddressPoints AddNumber "2610" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints UnitNumber [UnitNumber]+200 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+100 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+1000 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+200 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+2000 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+100 VB # CalculateField AddressPoints UnitNumber [UnitNumber]+1000 VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints UnitNumber "[UnitNumber] +100" VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber 275 VB # CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address null VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber [AddNumber]+100 VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber [AddNumber]+100 VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddNumber 4245 VB # CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" CalculateField AddressPoints Address Addr VB "Dim Addr\n\nIf Not IsNull([AddNumber]) Then Addr = [AddNumber]\nIf Not IsNull([AddSuffix]) Then Addr = Addr & " " & [Addsuffix]\nIf Not IsNull([StreetPreDir]) Then Addr = Addr & " " & [StreetPreDir]\nIf Not IsNull([StreetName]) Then Addr = Addr & " " & [StreetName]\nIf Not IsNull([StreetSuffix]) Then Addr = Addr & " " & [StreetSuffix]\nIf Not IsNull([StreetPostDir] ) Then Addr = Addr & " " & [StreetPostDir]\nIf Not IsNull([UnitType]) Then Addr = Addr & ", " & [UnitType] & " " & [UnitNumber]\n\n\n" CalculateField AddressPoints AddPointID ID VB "Dim ID\nDim strDay\nDim strMonth\nDim lastbit\n\nstrDay = Day(Now())\nstrMonth = Month(Now())\nlastbit = [OBJECTID]\nIf strDay < 10 Then strDay = "0" & strDay\nIf strMonth < 10 Then strMonth = "0" & strMonth\nIf lastbit < 10 Then lastbit = "00000" & lastbit\nIf lastbit >= 10 And lastbit < 100 Then lastbit = "0000" & lastbit\nIf lastbit >= 100 And lastbit < 1000 Then lastbit = "000" & lastbit\nIf lastbit >= 1000 And lastbit < 10000 Then lastbit = "00" & lastbit\nIf lastbit >= 10000 And lastbit < 100000 Then lastbit = "0" & lastbit\n\nID = "AP" & "_" & strMonth & strDay & Year(Now()) & "_" & lastbit\n\n\n" DisableEditorTracking C:\BatchDBScripts\DataConnections\PRODAsGIS.sde\PROD.GIS.AddressPoints DISABLE_CREATOR DISABLE_CREATION_DATE DISABLE_LAST_EDITOR DISABLE_LAST_EDIT_DATE Clip E:\Automation\SCGISdata\SQLProd.gdb\AddressesAndFootprints\AddressPoints E:\Automation\auto\DataAutomation\GIS_Prod_Admin.sde\GIS_Prod.GIS.NP_Area_Envelope E:\Automation\auto\DataAutomation\GIS_Test_Admin.sde\GIS_Test.GIS.NP_Area_AddrPts # CopyFeatures E:\Automation\auto\DataAutomation\GIS_Test_Admin.sde\GIS_Test.GIS.NP_Area_AddrPts E:\Automation\auto\DataAutomation\GIS_Prod_Admin.sde\GIS_Prod.GIS.NP_AREA_DATA\GIS_Prod.GIS.NP_Area_AddrPts_1 # # # # GIS_Prod.GIS.NP_Area_AddrPts_1 002 447845.764746 636297.002016 949641.501676 1111349.282918 1 Server=cnp-gis-05; Service=sde:sqlserver:cnp-gis-05; Database=GIS_Prod; User=gis; Version=dbo.DEFAULT ArcSDE Connection Projected GCS_North_American_1983_HARN NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet <ProjectedCoordinateSystem xsi:type='typens:ProjectedCoordinateSystem' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/2.7.0'><WKT>PROJCS[&quot;NAD_1983_HARN_StatePlane_Florida_West_FIPS_0902_Feet&quot;,GEOGCS[&quot;GCS_North_American_1983_HARN&quot;,DATUM[&quot;D_North_American_1983_HARN&quot;,SPHEROID[&quot;GRS_1980&quot;,6378137.0,298.257222101]],PRIMEM[&quot;Greenwich&quot;,0.0],UNIT[&quot;Degree&quot;,0.0174532925199433]],PROJECTION[&quot;Transverse_Mercator&quot;],PARAMETER[&quot;False_Easting&quot;,656166.6666666665],PARAMETER[&quot;False_Northing&quot;,0.0],PARAMETER[&quot;Central_Meridian&quot;,-82.0],PARAMETER[&quot;Scale_Factor&quot;,0.9999411764705882],PARAMETER[&quot;Latitude_Of_Origin&quot;,24.33333333333333],UNIT[&quot;Foot_US&quot;,0.3048006096012192],AUTHORITY[&quot;EPSG&quot;,2882]]</WKT><XOrigin>-17791300</XOrigin><YOrigin>-41645400</YOrigin><XYScale>3048.00609601219</XYScale><ZOrigin>0</ZOrigin><ZScale>1</ZScale><MOrigin>0</MOrigin><MScale>1</MScale><XYTolerance>0.00328083333333333</XYTolerance><ZTolerance>2</ZTolerance><MTolerance>0.001</MTolerance><HighPrecision>true</HighPrecision><WKID>2882</WKID><LatestWKID>2882</LatestWKID></ProjectedCoordinateSystem> Linear Unit: Foot_US (0.304801) 20210824 22011700 20210824 22011700 FGDC 150000000 5000 Microsoft Windows Server 2016 Technical Preview Version 10.0 (Build 14393) ; Esri ArcGIS 12.7.0.26828 Address Points 20121201 002 0.000024 260.557825 -82.641987 -82.060992 27.391104 26.944824 1 Sarasota County, Florida, including the cities of Sarasota, Venice and North Port, the Town of Longboat Key and unicorporated Sarasota County. On the Florida west coast, bounded by Manatee County to the north, Desoto County to the east, Charlotte County to the south and the Gulf of Mexico to the west. Address Point Locations. The dataset contains locations and attributes of Address Points in Sarsota County, Florida, created as part of the Address Point Data Creation Services Project for the Sarasota County GIS Department and participating county government agencies. <DIV STYLE="text-align:Left;"><DIV><DIV><P><SPAN>This dataset is a compilation of situs address point data for cities of Sarasota, Venice, and North Port, the Town of Longboat Key, and unincorporated Sarasota County, Florida. The dataset contains address, location and quality attributes. The address attributes are compliant with National Emergency Number Association (NENA) and US Postal Service data standards. </SPAN></P><P><SPAN>Point locations are located 1) in the center of the building footprint for single-address buildings, 2) relative to its actual location for multi-address buildings, and 3) relative to its actual location and offset to the north for multi-address, multi-floor buildings.</SPAN></P></DIV></DIV></DIV> Created by Geographic Technologies Group (GTG), 1202 Parkway Drive, Goldsboro, NC (www.GeoTG.com) for Sarasota County (Florida) Government, GIS Department, 1001 Sarasota Center Blvd, Sarasota, FL (www.scgov.net). Address Addresses Address Point Street Address Building Number Suite Apartment Number Unit Number Location Street Name Street Type <DIV STYLE="text-align:Left;"><DIV><P><SPAN>Sarasota County Government or Geographic Technologies Group (GTS) make no claims as to the completeness, accuracy or content of any data contained hereon, and makes no representation of any kind, including, but not limited to, the warranty of the accuracy or fitness for a particular use, nor are any such warranties to be implied or inferred with respect to the information or data furnished herein.</SPAN></P></DIV></DIV> Florida, Southwest Florida, Gulf Coast Florida, Sarasota County, Sarasota, City of Sarasota, Longboat Key, Lido Key, Bird Key, Siesta Key, Casey Key, Manasota Key, Town of Longboat Key, Venice, North Port, Nokomis, Englewood, Laurel, Osprey, Vamo Saraota County Government GIS Project Manager Sharon Schulte Jim Pugh Geographic Technologies Group Project Manager 1202 Parkway Drive Goldsboro NC 27534 JPugh@GeoTG.com United States 919-861-0678 Kathy Solie Sarasota County Government GIS Department Manager 1001 Sarasota Center Blvd Sarasota FL 34240 KSolie@SCGov.net United States 941-861-0678 Sharon Schulte Sarasota County Government GIS Project Manager 1001 Sarasota Center Blvd Sarasota FL 34240 SSchulte@SCGov.net United States 941-661-6603 Enterprise Geodatabase Feature Class dataset EPSG 6.3(9.0.0) Simple FALSE 0 TRUE FALSE 0 GIS_Prod.GIS.NP_Area_AddrPts_1 Feature Class 0 OBJECTID OBJECTID OID 4 10 0 Internal feature number. Esri Sequential unique whole numbers that are automatically generated. Shape Shape Geometry 8 0 0 Feature geometry. ESRI Coordinates defining the features. AddPointID AddPointID String 18 0 0 AddNumber AddNumber String 20 0 0 AddSuffix AddSuffix String 5 0 0 BldgName BldgName String 30 0 0 FloorNum FloorNum String 10 0 0 UnitType UnitType String 10 0 0 UnitNumber UnitNumber String 10 0 0 StreetPreDir StreetPreDir String 2 0 0 StreetName StreetName String 50 0 0 StreetSuffix StreetSuffix String 5 0 0 StreetPostDir StreetPostDir String 2 0 0 Muni Muni String 50 0 0 State State String 2 0 0 ZIP ZIP String 5 0 0 Plus4 Plus4 String 4 0 0 County County String 25 0 0 PostalComm PostalComm String 50 0 0 LandmarkName LandmarkName String 100 0 0 GTGDesc GTGDesc String 100 0 0 AddressStatus AddressStatus String 6 0 0 DwellingType DwellingType String 6 0 0 GTGNotes GTGNotes String 125 0 0 LastUpdate LastUpdate Date 8 0 0 LastEditor LastEditor String 50 0 0 SCNotes SCNotes String 75 0 0 Creator Creator String 12 0 0 CreateDate CreateDate Date 8 0 0 Address Address String 100 0 0 20210824 /9j/4AAQSkZJRgABAQEAlgCWAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsK CwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQU FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCAPEBB0DASIA AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQA AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3 ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWm p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEA AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSEx BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElK U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3 uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD7x1OF Jw4SNvPGDkIfmAHr+P6fSsmFGklVUIVz0JOOa3re5W9iEkWBIvVW7e309/b8KSa382PZNM4R8DDF QSfTpX0FDFSw8fZTX3nnVKKqPnTOfZSrEEEEcEHtRWm1qbiNYmJ81f8AVkrglRxyOwz3NZ88LW8r RvjcvpXt0cRGr7vU4J03DXoMopdp2buMZx1GfypK6k7mQUUUUAFFFFAFy3v/ALLEVXfJuXGGOAp9 u/6iokvrhGBEz5Hqcj9agorBUKabbW+5p7SVkr7Fv+1br/nr/wCOj/CpIdZmjPzhZB78GqFFRLCU JKzghqtUTvc37PU0ushgImBAALdfpVyuUq7banJGwWUtLF0KnHP5jmvGxOV681H7jupYvpM3qKhi nF1AHhYc/wB4ZwfQimy3SxOkRZfObbwRgEZ5/rXhKlK/LbU7+dWuWKKKKyLCiimu4jRmY4VRkn2p rUB1FIpyoJBGex7UtIAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii igDmLe4e2lDocEduxHpXRW8yXKCRCSDxg9vbFczU9pdvZy7l5B+8p6EV9jjcH9YjzR+JfieLQrez dnsdFJkLkEgDk4GSR6Vh6q+65AKKhA6Drzzzz/nPfrW5HIsqB0IZT0IrI1xgZ412jIXO7156fp+t eNlzca/K13O3Eq9O6M2gDce34miivrTxwoooKkLnBweM0AFFFFABRRRQAUUUUAFFFFAFrTppYrkC NS+7OUzjPFTnU4mlG6EyxhQoMmCR6n6/4VnBipyCR24orknhadSbnJG0asoKyNyDVY5pwudqscAE HOeMf1q29xHGEJbO/wC6FBJP0xWFa3f2cKECl8k5YcZ6DnPpn8/xrQms7gzLMHLSHHyrwikevOcY z+deDiMJSpzSbsvzPQp1pyj3LiySOwIjAT1dsH64x/PFKVd1AJTB+8pXII9OtSUV47lbZHba+4UU UVmUFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAcpRRRX6KfNFu wvzZOQQWjbqoPT3rR1S2N3Ajx/OV5AB6g+lYdauj3h3C3bpyVP64rx8ZQdOSxNJarc7aNTmXsp7M yqK0dWsvKczIp2scsc5wazipABIIzyM969GhWjXgpx6nNUpunJxYUFiQASTjgZ7UUVuZhRRRQAUU UUAFFFFABRRRQAUUUUAAOD0B9jW7p+ordARt8soHf+L3/wDrVhUKxVgQSCOQR1FceKwscTGz36G1 Kq6T0Oroqppt59rg+Y/vF4bj8jVuviqlOVKbhLdHuxkppSQUUUVmUFFFFABRRRQAUUUUAFFFFABR RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAcpRRRX6KfNBSo5jdWU4ZTkH3pKKTV1ZgnY6G3lX UbM7gPmyrAdj/nmql5Mk+61k2wMmCpByucdOnHWqVheGzm3YLI3DAfzrUu7KO92yKG3MuQ4wB04z 3r5yVKOEr+9pF6p9meoputDTfqYs0Xkvt3I/+0hyKZV2ZZbB3tgFkWQDGV5Pv+dRvYSIyRnmd8kR jHA9c/hXtQrxaXM99vM4JU2noitRQqlmAAJJ4AHeiuq5kFFFFABRRRQAUUUUAFFFFABRRRQBc0q4 MN2oJwr/ACke/b9f51v1yldNayebbROSGJUZI9e9fNZrRtJVV10PUwc7pwJaKKK+fPRCiiigAooo oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKz/FvxIsP hl4S1DXtYWeXTbJVLJbIGkJZwqhQSByzDqa0KxfGnhKw8d+FtS0HUkLWd9EY3K43IequueNysAwz 3Apeyo1pRjiFeN1fvbrbzsduCnThiIOt8F1f0vqeb/Cf9qm2+Mfjq80iDQZ9IEUDzW1w1wJTIisB 86hRsYhgeCw7Z6E+yyzNO5kdiznqcYr8yPEOieKPg14xudPmuLrRdXtxgXNjO0fmRt0ZHUglWH8s EAggfUH7Gvj3xJ4vtfEdnrWqzara2HkNDJeSGSZWkMmRvOWK/J3PHbvX2+b8OUMLQ+vYFr2SS7t6 6bn6VxJwxSoYd5ngJL2Vk7Xb30umfS8UrQtuQ7WxjPcUyjNAOa+Isk7n5TZtBRRRTEFFFFABRRRQ AUUUUAFFFFABVs+JtN8PaTLc6xqFppVlAQDdXk6wxjccAFmIA5IH4iqleI/tg+H5da+DdxcxSlBp l5DePGFz5qkmIj2x5u7P+zVU8DTzGrDDVHZSaV+12ezk9COKx1LDzlZTaX3ns5+NHw+Bx/wnPhwf 9xaD/wCLrp9K1ax13T4b/Tby31CxnBMVzayrLHIAcZVlJB5BHHpX4/19JfB79r28+E3wXu/Ddno+ k3GsWl2h06W6hkcSxyvI87SgEAlMKowy/fXg7WJ9rOPD+thKEZ4CTqSckmtFZPr8j9bzDgyVGmpY STnK6TT7dz75or5w/ZM+J19bfC/4gfEbx34o/tbTI7o+XZXjk/ZpVUu0cZkGBv8AMiVI0OOgxk4F v4Y/t/eGfGXiqz0bXvBzeHVvZo7e3vIblLqMSO20eYDHGVXJHzDd15AHNfnOJyPM6dXEQw1F1Y0N JSXe12knZu3kfKVcgxkZ1VSjzqno2v6u/kfQlFdL4g8NWuvaDqOnAmx+2W8kH2q1VVlh3qV3oSCA wzkEg8ivzC8b6trv7Mfi8+H/AAP8U316GBHS5itYiILaYnDoYXMkRbp8yksCGBCkc58L4GPFEqlC hPkqx2TTs11bkk0vmPKsleauVOnO010adreq2P0Yor8tvDv7QPxF8M63a6nB4w1i7lt2LCDUbyS6 gkBBBV45CVYEE9RkdQQQCPQ9C/bh+IemaxfXN8bDWLK43+VYz26xi1zkr5bxhWOMgfPuyB6nNfeY jw7zSk/3UoyVu9n+KPdrcFY6H8OUZfgfoNSZr8sdY+O/xA8QRavDqPizUbu31WMw3dtJIPJZCQSF jxtjzjB2BcjI6E55y61aNvDWl2sV9qL3lvNc74JCBbQxSLGAIsMTlsSb8gAgr15J9Gn4b4jRVq6T b6JvpfXbrodkOB62ntKyTfZX6fI/XHNLmvx7+3XP2H7H9ol+yeZ532fefL34xu29M44z6VYtfEGq WN5ZXdvqV5b3VkoS1ninZXt1yThGByoyzHAx1PrXXLwzmlpil/4D/wAE6HwLK2lf/wAl/wCCfr5R X5Sj4y+P1P8AyPHiP8dWn/8Ai6T/AIXJ4+/6HjxJ/wCDa4/+Lri/4htjP+f8fxOb/UfEf8/l9zP1 bor8stF+PnxG0HUY7218a61JNGCAt5ePcxHIIOY5SyHr3Bx1HNdJ/wANe/Fv/obf/Kbaf/Gq56vh xmUX+7qwa821+hhU4IxsX7lSLXz/AMj9KaK+Vbr9vO28LQaVp9/4KGs350q0ubu+h1I26PPLbJKQ sexsLlwCd3HPHGDxPxF/b41nxHoUVr4U8Op4P1ETK8l+bxb4mMBsoEkhCjJ2ndz0IxzmvmcNwdnm JnFKhaL+03G1u+9/wuePS4VzSrJL2dk+t1b/AD/A+4KK/NqD9sH4swyhm8ULMoz8j6da4PHtED+t R/8ADXvxb/6G3/ym2n/xqvof+Ic5r/z8h97/APkT1P8AUnMP54/e/wDI/Smivzguv2p/iN4n8JXu iXHiC+l1e7vbb7JcadAltMIwJN8YaEK2WYw4ABJwwz2P0J8efH3xL+GXwC+GfiG0v/7I1W7ijg1k 3MUctwZ2hDxgrJFhSQkhcYyrYGTgmvExfCOLwWIo4WtUip1JOK1dtFe+17dNtzzq/DGKw9WnQnOP NNtLe2iv2+XqfTdFcF+z58WPDPxR0DR9Jn8Sx6l43i0qC81O2ghMOGZELEfLsYguobYeCei/dHsT eGbUAnfNx/tD/CvzvH4hZbiZYXExcZLumr+av0fQ+ar4Wrh6jpVFZo5qivgD9or45+PNf+MWqeHd EvtU0SHS9Ql0uystHnmimumEmxXYIQZGcgbQB0YADkk/Wf7N+n/Eo/DtD8Q4Lk6mZR9kFxGPtH2b y02mUr/Fndnd8/8Ae5r7XMsgnleApY3EVYpzSajf3rM9nHZHUwGFhiak1eX2eup6ZRVOTWtPi8QJ oT39suuPF566Y0yi5MfPziLO7bwecY4rTFhdHpbTf98Gvk5v2aTnpfVeh87KEo7ogoqHXLpPDejX 2rakJLXT7GB7m4naNiI40UszYAJOACeK5D4dfGbwb8Wb67svCmtJq15axiaW3EEsUgQnG8LIilgD gEjIBZc43DO9OjUq0ZYinFuEd2lovV9DWOGrTg6sYNxW7tojtaK43x98YfB/wv1Sw07xRrSaReXy 74IpYZWyudu5iqkIM92wOD6Gs/Wv2gfhz4f1qDSr7xfpsd7LIYtschlSJwcFZXQFYiD13la66eXY yrGM6dGTUtU0nqlvY2hgcVUSlGlJp7aM9CornLb4k+Er02It/FGizm/ZktBHqETfaGU4ZY8N8xBI BAz1rKn+N3gSDVtF00eKNPuLrWXMdh9lkM8czBtuPMQFFO47RuIyeBWccDipXSpy08mSsHiXtTf3 M7iip/7Puv8An2m/79mj+z7r/n2m/wC/ZrzPbU19pfeclmQUVP8A2fdf8+03/fs1yWhfErw14l8a ar4T0zVEu/EWlgm7sEjcNGAQGwSoVsFgDtJwTg4ropRdaMpU1dRV3bWy7vsaQpVKicoxbS38jpqK n/s+6/59pv8Av2aP7Puv+fab/v2a5/bUv5l95nZkFFT/ANn3X/PtN/37NH9n3X/PtN/37NHtqX8y +8LMgoqf+z7r/n2m/wC/Zo/s+6/59pv+/Zo9tS/mX3hZkFFT/wBn3X/PtN/37NH9n3X/AD7Tf9+z R7al/MvvCzIKKn/s+6/59pv+/Zo/s+6/59pv+/Zo9tS/mX3hZkFFT/2fdf8APtN/37NH9n3X/PtN /wB+zR7al/MvvCzIKKn/ALPuv+fab/v2aP7Puv8An2m/79mj21L+ZfeFmQUVP/Z91/z7Tf8Afs0f 2fdf8+03/fs0e2pfzL7wsyCip/7Puv8An2m/79mo5YZIG2yI0bHnDgg4pqrTlopILDKKKK05l3EF FFFHMu4BRVHWte03w3p73+raha6XYxkB7m9mWGNSTgAsxAGScVna14/8MeHDajVvEek6YbtPMtxe X0UXnL/eTcw3Dkcj1renQq1bOEW79kbQo1KluSLd/I36Kz9D8Q6X4nsFvtH1K01WyZioubKdZoyw 6jcpIyPSq934x0Gw12DRbnW9Ot9ZuADDp0t3GtxIDnBWMncc4PQdjQqNRycFF3W67CVKo5OKi7rf yNiiiisTIKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKKKKAPmf8A bX8AJqPhrTfFltbu95YSC0upI14+zvkqzeyvgD/rqa+bPgz4n1bwp8TNAudHklFxPdxWkkERH+kR yOqtEQxCnPGMkAEA5BAI/SLU9NttY066sLyFbi0uomhmhfo6MCGU+xBIr87PG2iv8CfjRNbabN/a B0S6hubZ7pCu8FElVXCkZxu2kgjOCcDOB+ncN4363g6uWTV2k3G+zXb5N/j5H7hwfmSzDL6uU1Fe UU7X2af+TPf/ANpH9pibw5dar4M8PQFb8RiG61Qyf6neuWSMD+LDAbiRtORjIyPm7wL8YPF/w5dR oet3FvajObKU+bbkFgT+7bIBOOWXDcnnmsLxbrv/AAlHirWdZ8k2/wDaN7Nd+SW3eX5jl9ucDOM4 zgVlV9fl2TYXC4RUalNNtJyvrdn3uWZBgsFglhpUk725r63Z9v8AwJ/amg+IuopoXiOCDTNdmY/Z ZLZWFvccZ2fMWKvgHqcHHByQD9A5zX5qaf8ACjxFd/C6++IlssS6Fp9+ljK/mlJlc7cOoIwVDOi5 Bzk9MAkfVX7H/wATNX8ceF9X0vWZ5r+40iWMpf3EpkllSXeQrE8kqUbkk8MBgbefzvO8nw1OM8Xl 8k4QfLJfyvT/ADWh+UcU8NYfDU55hl7XJF2lHs/L8ND6Booor4Y/KQooooAKKKKACiiigArz/wCP nha98afCPxDpGniJryWKOSNZpREp8uVJCCx4HCHrgepA5HoFfHf7ZPxH1iDxhB4X0/V5rfSlsFe7 tbaQp5kjs4KyY5YbAh2nj5s45r2snwtXGY2nCi7NO935an1HDWBrY/MqcaLScXzXfkz521nSINHE Ea6naX9027z4rMs6wEHG0yEBXPU5jLLjBDHPEN/p0dna2c8d/bXguE3OkBcNAw6o4ZVOehyuVOeG JDAUqK/f4U5xUead7b7an9UxjJJXZ6j4i+M6aj8CPC/w3sNNFvBYXM1/qF3KTvnnMkhTZtIG0I+D uBOQMfdyV/Zq+G2g/Ff4s6b4f8Sak2naZJHLMyRtskuSilvKVsELkAsSf4UYAgkV5bT4pnglWSN2 jkU5V0OCD6g149XKIRwVfC4OTpyqcz5t2pS3epwzwUY0KlGg+Rzu79bvqfqd8af2mPBnhD4T69fe HPFOnanqi25s7FNHuobp4rmRGELMoYgKCpYk9kOATwfyvZixJJJJ5JPekBxRXh8KcJYbhWjUp0Zu cpu7b39DhyfJ6eUQlGEuZy3ZNZpFJdRrMcRZy3zbSR6A4OCegJGATzxURIIGAc98nrT7WD7VcxQ7 0i8xwnmSttRcnGSewHc061a3jnJuYpJotjgLDIIzuKkIclW4DbSRjkAgFc5H27dm2tfI95vchooo rQoKKKKALdlqlzp9vfQW8vlxX0It7hdoO+MSJIByOPnjQ5GDxjoSDUooqVGMW2lvuJRSu0FFFFUM fLKZWDN1ChepPAAA6/SmUV+hH/BNtkf4a+KkIyy6sDyOADCn4dq+Q4pz7/VrLZY9UuezSte2+m9m eJm+Zf2VhvrChzapWvb9Gfny8bREB1ZCQGAYYyCMg/lUts9siTi4ilkZoyIjHKECPkfMwKncMbhg Y5IOeMH9Jv2tfjv8PofhR4o8LReKILjX72B7aKz0eUSyrIrqGSRlDLGOoZXKkrvA5r80qw4Wz7Ec R4OWKxGGdCzsk29VvdaLQnKcwqZnQdarScNdPPbXZFpbuIaY9sbKAzmUSC9LSeaqgEeWBu2bSTnl d2QOQMg+waHqDePP2eY/h/4bsNc13xPY61/b9zaRW/mxpblGgIgCsWIDSRFhtBzIx5AJGx+yV8Lv C3xhl8b+GNVuJbTxFd6Wp0u6FussdsqyqZJPm/i3eUP4TtLgMCcj6F+CWs+Bv2SPA2sQeNPFvhzU /FYvJIpItC23N4iKoCWzEKJeGRv9YAqlgMivluKc+pUpywuGoyqYmlOMox11ut9npuumqPFzfMYK ToUoOVWEk0tddN/T9Td+EcPwm/ZuXwhB4iFt4Y+JWu6Naw3fnLMzHdtBDkAxRAyJhmO3JQkk4Jr6 jPzD6ivlC2/4U1+3dfpO8eqaZ4h0TG6CRo7a8ntc5wcGRXh3uQSDuRj1XeN31dFGsMaxoAqqAAo7 AV/LvFS/fwqYj2ixTu6kZ7L+Xl8rH5ZmSfOnV5va/aUuna3W1j86/jp8C/F/wZ+MHiD4p21n9u8L 2t+2tQ6is8amK5mkzHG8W8OQs7qDgEFOp5IFv4N/ty/EsPqCa5pUXjaw0+znv7qaC3FvcxIqgKSY xsEYcqCfLJAcsTha++PFHhyx8X+HdS0TU4jPp+o28lrcRglS0bqVYAjkHBPI6VwPwO/Z18K/AKy1 OHw+19dT6k6Nc3eozLJIyoDsQBVVQo3MeFyd3JOBj7OHG+W4/KHRzrCqrXgoxhpa8V53unvtvpoe 2s6w2Iwfs8bRU6kbKL20Xnunvt9x+fH7QPxK0j4s+M7TxXbeGtf8K+ILuwiu2me586KUxq4VokKK QvyL++VgMIT5ecku+Dnx3+NUniSbSvCmtav4m1bU4Dbx2+oSveiA5H75RKxWMr3ZvlAJ3dse4/8A BQ74dX9tqeh/EO31eC0traOPTUtMyJP9o8ySVXiKgjO3cTkrjyhgsSAPZv2WotD+Ev7PvhJda8Q6 NB/a0jzw3TTJBHO8zlo41Z1RnfYACGBbIIHCjH6FiOIcuocMYfE0MIq3N7sYSvLlau2rtXaVlpc+ gq5lhaeVUqkKKm37qi7u1vNrVLTQ+LfiR+0t8bbQ634K8Xa5LbSlJbDUbKXT7VWdHXDLuWPoVbhk PIYEE5Brhfgx8Y9Y+B/i2bxBotva3V1LaSWhivPM8vDFSCQjLnDKpweOvQ4I+hv+Ci3gOw0fxz4e 8URywwTa1aywTQxQHzJZIAuJWbO0jbJGnOCAoxuHC/IFvby3dxFBBE808rBI4o1LM7E4AAHJJPav 0rhyGV5vkUa1PDxhCqrzilyq60f3NH1OWwweNy5VFSjGM17ySsrrR/ij07whf+ANQ8F+L7/x7Br1 14o1K6UabqlgocRSEM8shVpEWT5iocNk4ddu0ksOR8JeHLXxBfXM94L6y0Gxtmmv762hFw1udhCH Hyr88u1VUlc7gN3Vq+pvjf8ACjw3oH7LXw7fxDeQeCfE1paSTxabb6azNqNzJChZJhgOkpEcQaRj hTkEH5cfMfgDxfB4G8Y6RqMb3T6epSPVYAFdb23ZgZ4DG3ysjL8m1iQSN3HAGeUY9Zjg8RicBzX5 pJJ/CuXT3Ha2qXS6T+ZGBxP1vD1K+Hvdt6PZW0912tql5q/zOpl0vwjr+n+H9P8Ahz4Y8UeKfE9i 8lzqj3dq2y6iyoBENtK7ooYqMq64zyWJBDvFfwYvfhtoHgvXJ9eh8P8AifU7hS+h3spt7/S8ORFc sQdyoTGX3FVKfKPmOSPsL9iKw8EWXgfxT440nRL3wyl1dyRXH9qXi3McMMQ34gk2IfKG8glgTlMF m218wftNeKLD4tfG9td8D6bPrlrqMUNvaXEdvLMby4iCl9sDjIKrtQxleR8+07wT8tl2dYrF5tWy yEZQpUk+ac7O7s7xb+FK7fw62XY8nCY+tXxk8LFOMIXu5Wd32fRb9Oi7H6Y+CbDUNK8IaJZ6rqQ1 fU7eyhjur8DH2iUIA0n0Jyfxrb6V8Dfsv/Gf4iJ+0xN4a+IWr6xLd6jBJbSaXeIRHDOkYkRliUBY xsRjuQAENk5BzX3zX8w8U5JXyLH+yrTjLnSmnHaz7H5hmWBngK/s6jTur3W2vYCMivBvDfgr4QfC 340+JvFcPiuwsvFWquYLrTr3V4QsEs7LIwWNiHV5GXdhiep2gDiuq+IP7Q3hb4cfEXw14L1Vb19W 19kWBraEPHFvk8uMyHcCAz5A2huhzivK/iv+wR4Y+I/iy+8Q2PiHUtEvtRvPtV5E6rcwsDzIIwdr IWPOSzBeQFxgDtyWhDCRlHM686FKtDRpXUlfr5GmDpxp3WJm6cZrRpXvr+R9Rg5FFRQQLbW8cKAh I1CqDzgAYqTPFfCSsm7PQ8YWiiildgFFFFF2AUUUUXYBRRRRdgFFFFF2AUUUUXYBRRRRdgeTfG39 pjwj8BrrS7XxB9tubvUMsltp8SyPHGDgyPuZQFzwOSTg4BwceqwTLcwxypu2OoYblKnBGeQeR9DX G+Mvgt4J+IPiTSte8Q+HrTVdV0wbbaefdwuchXUHbIoOSA4YAkkYyc9sBgV7OLqZe8LQjhYyVVJ8 7b0bvpZeSOuq6DpwVJPm15r7eVgooorxuZ9zkCiiijmfcD5S/wCChs+rt8MdHtbXQZNT0Zr3z9Qv 4mfNiUAEZwpwA++RdzhlGBxuKmvEpfhNq/7VPiFofD2lDQPCvhvRlsdA12VJpIL+GHCxwyOxwWLF 2LKoZAGV0ZsAe8ft7eD/AB34u8A6PD4StrzUdKiuGOq6dpwZ5587PJby1GZEVgxI5wSjY+UleK/Z BHxl+GXibSfAniDwldx+Db6KS++1XUZI08MjMAJFJVSzjmFvmBfOFyc/0bkOM+ocK08ZhKtNYim5 tJy1s7XfK3rKy0W1n3P0HBVvq2Uxr0JxVWLlo3rbq7Pd6aeXmZ3/AAT68Ua94c8Y+LfhveaXELW1 ea9urpDua3uUaOBoy6koynbxjurEEjp9C+Lv2V/B3jT4vWPxEv5dTXWLWW3n+zRXC/ZpZIceWzKV LDG1chWUHbyMls63wd/Z88L/AAQvvEN14ea+eTW5llm+2ziXylUuVjQ4B2je3LFmPGWOK9Nr814h 4l+s5vVx+VScFUilJrTmulzaa2uz5zMcwVXGTxGFvFSVn0vor/ezmPE3F/H/ANch/M1k1r+J/wDj /j/65D+ZrIrTAO+Gg32PlpbhRRRXoEhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHKUUUV+inz QUUUUAFFFFABXhn7Vfwls/GXga98RW1mz+IdIgEkcsbhTJbq26RGB4IVS7jvkYHUg+50EZFdeExV TB1416T1i/6XzPSy3H1ctxUMVSesX966r5n5P1q+GXkk1WOyjl0+2Go4snudTiRoYFkYKZCzK3l7 eu9fmUA4PXPsv7VnwYTwB4jTxBo9pHbeHdTYIYosKtvc4JKKvZWClhjgHcOAAK8Fr9/w2KpZpg/b U9mvWz8/Rn9W4HHUc1wccTRekl9z/wCAek+IfjVruqfCLTvhleQWa6Vo999ot7m3iaOVsGbcsgyA wJlznaDleck5r6f/AGO/BtnoPwvOsxTpc3etTNJM6Iy+WsZKLFz12kOcgDlyOQAT47+01o2kaR8L vgm8Om2OneIbrQfN1H7OB58yCK3WB5W2qxJCvgHO07lBIGT7/wDsqWr23wM8PbypMhuJBsYNwZ5M dO/t2781+b5jXo1ckVfDQ9mqlR8y7tN3fzaufmfFdeEsjjUw8eRTm7rvq7v5tXPW6KKK/PT8MCii igAooooAKKKKACvAvj/+zG3xT1geINEv7bTtZ8lYZoLmMiK52nAdnUFlYKSM4bIVB8uM177RXZhM ZWwNVV6ErSR6eXZliMrrrEYaVpfp2Py98ceCNW+HniW70PWbfyby3PDJkxyofuyIcDKnsevUEAgg YNfdP7V3whHjrwede0yzM3iDSVDYiXMk9tkl4+oztyXHU8MAMtXwtX7nkeaLNMKqj+NaSXn3+Z/T XDucxzrBKt9taSXn/kwooor6E+oCipbaFJ5gjzx26kE+ZKGKggEgfKCeenTvzgc1FSvrYAooqW1t 3vLmGCPYJJXCL5jqi5JwMsxAA9yQBQ2krsNiKiiv05+CPwA+E3jf4F6VJF4QT7BrsFvd3a3N48s5 niBXd5ysCpDGQfJsGHYFV3MtfE8U8VYfhWhTr4inKSm7aW0+99tjwM2zinlEITqQclJ20sfmNRXr 37WnhnS/Bv7QPinRtEsYNN0u1FosNrboFRAbSFjge5JJPckmvIa+oy/GRzDCUsXBWVSKkl6q562F rrFUIV4qykk/vVwop8Ko8qLI5jQsAzgZ2jucd61/GfhG/wDAniW90PUvKN3alT5kD745EdA8ciHg 7WRlYZAOGGQDkV0utCNRUm/eabS8la/5o1dSKmoX1epi0UUVsaBX1F+yD+094V+BWgazpXiGy1SV 9SvUmW4sYUkSNNgUl90injr8oJ+vSvmGSCWFIneN0WVd8bMpAdclcj1GQR9QfSmyIEkZVcSAEgOu cN7jIB/OvBznKMLn2ElgsVfkbvo+qZ5uPwNHMqLoVr28vI9D8d+FdH8WfF7WdM+F4vNd0q4ZrjTo mV2nmAh82VEDKHYriTAYbiEA+Zjzy3iTwL4l8HJA2v8Ah7VdDWckRHUrKS38wjGQu9RnGR09RXc/ sueJtG8F/HPw3ruv3aWGk2H2mee5dyoQC2lxwASxJIAQDLEgc5r0X9sT9pLwl8dYtGsfD2k3vmaT cTFdVvP3QeNsArHGGOVfajbn2sNoGBk14KxuY4HNsPlNCg6mHUFzVHunqtXom9Fc89V8Vh8bTwUK blT5VeT369duiv6njPwk+Id18M/FkuqWt/eaaJ7C6spJ7BFeVRJCyowVmUHbJ5b/AHh9zrXJX19c ane3F5d3Et1d3EjSzTzuXkldiSzMx5JJJJJ65qCivsI4OjDESxSj78kk36X/AMz240KcarrJe80l f0Pon9gmS0T9orTRcrK0z2N0LYxkgCTZklsMMjYH6huSOO4/T8V+d/8AwTn8F2erfEjWvEdzdW/2 nSrLyrSzMi+azSnDyhd24KqjbkjBMvXIr9EK/jPxXrQq8RSjDeMYp+u/6n4nxXUjPM5KPRJMKKKK /Gj485f4ifDPw18VvD/9i+KdLTVtOEqzrE8jxlJFyAyshDKcEjII4JHQmvjf4k/su/GP4qeJbvw7 PJYaZ4I8Peanhbz5Yvs62++NI4SY8zbvJAJaRW5jIz82a+8KCa+vyXijHZEmsPaXbmV1FvdxWybW jfY9XBZlXwLvSs+19bX3a7N7PyPjb9pT4aeMvG8vwt8BXPht/EiraJb3fjOKGRjZzny0mkwjBUTC B2Ei4cHCkMuR0Hwb/YF8PfDjxVba/rmvT+KLuxljuLGFLb7JDFKh3B3Ady5BCkDIHByGzx9UYBNL jBr0Z8bZrHALLsNP2dOz5rdW3d/4fRWRu85xccMsLTlyw1vbrd3+XorI4L4ufBHwn8bNEi07xPYG 4NvvNpdwSGOe1ZlwWRh+B2sCpKrlTgV58v7DnwoHhZdJbRrh7pbRrUaublhdcuX8w4xGZAx4Yp0A XG35a9+BzRXgYXiHNsDSjQw2JnGEXdJN2ucVLH4qhBU6VWSS1smz4j8Uf8E2oFh1J/D3ja4WMgSW ljqNoG3MqH5ZJUZRyx4cR/KCflavE/g34uf9mDV/Gep6jq9kPF1tZvpsHhYCaYPdeanzTSRjydsY DnAk3csvyniv1HxxivDfHP7GPwy8f+Mx4kvtMuba7lne4voLK6aKG+dsZMi8lTkEkxlCSxJJJr9Q yXxAliKVXB8RzlOlJL4Yxu7dG+z77+aPpsHn7qQlQzOTlB22Svp0fk+vXzPm/wCBv7SniL4v/tR+ Ep9Q0rQ7U3NtJZSmDTo2lXbBLIWScqZlyQfl3lQCcg5Jr9Awc1yPhb4R+CfBF5Fd6D4U0bSb2KPy lurSxjjm24wQZAu45xzk8966418HxVnGBzjF06mXUPZU4RUbejev4nhZni6GMrRlhqfJFJK3p1Mv U/Cujazqmn6lf6VZXuoaezNZ3VxbpJLbM2NxjYglCcDOMdBWpnFA4oB5r46VWc0oybaW3keS5N6M KKKKzJCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACgnFcl8WPEOveFPh1rureG NIOu69aW5ktLAAt5rZGflBBbAy21TubbgckV4T+zB+0D4h/ab0fxvofiGC10ae3tkjivtEDxOizL IhIEjPh1K5DZx7cc/S4PIcTjMBUzOLSpU2lJ31V2le29tT0KWCq1cPLFK3JFpPXVX8tz6iDKw6g0 uOelfGHw401v2LfibpHgbbqnjb/hN54AL2KI2lvZ7XKZSMlxK/z7pDuXagQ96+zh0qc5ypZXUi6N T2lKavCVrcy66XutdNRYzDLDTXJLmg1dPa69N1rpqLRRRXzhwHM+J/8Aj/j/AOuQ/mayK1/E/wDx /wAf/XIfzNZFfpGX/wC6w9DkluFFFFegSFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAcpRRRX6 KfNBRRRQAUUUUAFFFFAGB488G2fj/wAI6noN8FEN5C0ayMm4xPj5JAPVWww+lfnN4x8HTfDTx7c6 FrcQvRYTp5y28nl/aIiFcbWwdu5COcHBPQ4r9OK8U/aj+EQ+Ingt9U0+0uLvxDpEZa0gtiuZkZ0M isCMvhVYqoIOeBknB+u4ezX6jW+r1n+7no/JvS/+f39D9E4Pz15diPqdd/uqmno31/zPB/2ofFtp 8X9O8F/EXSbMadY3FnJotzpkfziwuIJGk2s4AB3rOGXgEhScem5+xJ41u7XxLq/hZkkmsLqA3ykd IJEKqx+jBlBPqq+teT+FPizrPw+8I+J/BU2jaZqGl6vKv22z1e2k8yGWPIypR0ZWBA65wVGMc5z5 9F8V/DPTtF8RWd/Nplprtu5stQ0u+2tMilDKh2MHGxyFYMANyHGdua+1p5co4CeUyso3fsm3e6+J ed1qvNK/c/XMTlkcTl08slZJt8jve/VfNfpc/S+ivKP2dfjEnxZ8G/6W7HxBpoSLUAY9qyE7tkq4 4+YKcgYwwbgDaT6vX5LicPUwlaVCqrSi7M/m3G4Orl+Inhq6tKLCiiiuY4QooooAKKKKACiiigBG G5SPWvzZ+Lnwj1b4QeIo9N1KSO7guEM1reQKwSVAxGDkcOMAsoJxuHJyDX6T187/ALbelW1z8NdK v3EK3drqSJHJIDvKPG+5EOO5VWIOBhPUAV9bw1j54PHRpL4ajSf6fmfoXBWaVMDmCw6+Cro/XofE 9FFFfuZ/SYUUUUAKT046enekopVAZgCQoJ6noKAJ9PsJ9Uv7aytU825uZVhiTIG52ICjJ4HJHWv0 6/Yv+G/j34ZfD3VNM8bme1/0zOnaZNcRzi3i2KWZHR2AVmJ+TIwUJx85J/OXwClrpfiXTdX1a4Wx sbFxfxiaKU/bWhYMIIyinDORt3HCrySeAD92fBX9vfwxrXhaaT4kahZ+HtcjuWjji0+yupI5Ydql XwqybTksuCx+7nAzX4b4m0s1zDBxwuX4f2lNNOVotyTvpy/rY/PuKoYzE0lSw9Pmgt7Jt38v1PjD 9oj/AISofGnxV/wmvk/8JJ9pX7QLYqYtnlp5OwqB8vleXjIDYxu+bNedV6p+1F430X4j/HXxP4i8 PXhv9HvTbeRcGJ4t+y2iRvlcBhhlYcjtXlpVRErbhuJIK85A456Y9e/b8/1fJOdZZhlVhyS5I3ja 1nZaW6W7H2OXuX1Olzx5XyrS1rabW6Da1vEHi3WPFbW76zqNxqs9upSO4vH82YJ2UyNlio7AkgZO MZNZNFevKlCU1OSV1s+19zucYtqTWqCiiitCjcbWdd8U6doXhpGn1C3sZJE02wghDMHmcM4UKNzs zAdcngAccVofE/wVD8PPFbaCt6by9tbaAX4AUrBdtGrTQqykhwjEjdxyCMcZPMwW08wDwxSOA6pu RScO2dq5Hc4OB3wfSvU/iz8CPFnw08N6X4p8YalZG98R/vkspJZX1AuwEkhmV0G1l3AOdxIZgOck 18/WxNLB42jR9qoqfNaCWspOzv8Am3tvdnmTq06GIhT50ua9o93vf8zyaijPFFfQHphRRRQB9Yf8 E6fCV9qXxY1fX4wo07TNOaCZyw3GSZhsXbnPIjkOcY+XHev0YzX5p/8ABPbV7iy+O0tnHLItve6X Ossa42sVZGUtn0wenPPpmv0sAxX8S+K0ai4jlztWcY29PP53PwripSWZzv2VvuCmhlzgEZ9M0MQB gkDPrXzN4F/ZZ8SaB+1DrPxL1TxJFc6VLPcXFrBA8guJBKpVYZQRtEcanAwxz5acDoPzjL8DhcVS rVMTX9m4RvFWvzvsj5yhSpVIzdSfLZXWl7vt5H03RRSbhnqK8RJvY5BaKKKQBRRRQAUUUUAFFFFA BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAIQGBB6GuP8AfCDwh8 LZ9Wm8LaJBo76rMJ7vyWYiRgWKgBiQijc2FXCjJwBXY0V0wxNalTlRhNqMrXSejttddbGkak4xcE 3Z7rvbuIVBOSBn1rKsvFmialrV9pFpq9jc6tYhWurGG5Rp4AQCC6A7lzkYyB1rzL4p/Ef4ieGPiv 4K0Lw14N/trwzqkgXU9UMbsLcFwrfOrYi2J8+XBDZwvINfIvx8j8AfDTxj8U7rS/F+o674p8Q+bY SaPbwGEae00iTTF7ggrImU2bFGQGKE5+dfvcj4Ulm3LCrUac4px5VzW96z5rfDbfWx7WByt4ySg5 WbV1ZX62d+3fWx+jgORwfxoDqTjcM/WvMf2bvDB8I/Ajwhp5uL24zp63O7UE2TJ5uZdhTJ2Bd+0L k4Civza8B6T421Hx+/iXwtaah4sv9F12O5k/s/zZQ7vIzeY7AKwSXyiC+Bxndt+UHfJODaec1MbF YpQjQdk2tJXbS3atdr8TbA5PHHOvaqoqn1a0d7266bfifqd4n/4/4/8ArkP5msiuD+DPjzxr8RPC B1Px34bHhnV0neCO3EEkHmxDBEnlyEsvJZeTztyOCK7yumGEngF9WqNNx00d18mfLYilKhVlTluu 2oUUUVRzhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHKUUUV+inzQUUUUAFFFFABRRRQAUUUUA eG/tSfBqLx54Om1rStPWTxJpuJVMEY826hHDxHBG4gfMvU5Uqo+Y18KNNI0KxF2MSMWWMk7QxABI Hqdo/Ielfq6RkV8eftc/BK30GVPGWg2Mq291NI2r7XLokrsCsuDkjczMDzjO3AGef0bhfOVSksDX 2b919n2+fTzP2TgniJRccsxT3fut9PL/ACPFfhF8R7j4V+ObLXoY3uIUDRXNsrlfOiYfMv4HDDPG VFfpBous2niHSbPUrCZbizu4lmhkX+JGGQf1r8rK6rwj8UvFXgY2i6Lrd3Z21vObgWiynyHYgBt6 dGBCjg/hg19Nn+Qf2o41qLSmtHfquh9dxPwss6ccRQajUSt6rofptRXJfDT4naJ8UvD6ano1yHK4 W4tpMLLA5/hdcnHQ4OSD2Jrra/GKtKdGbp1FZrdM/nXEYerhakqVaNpLdMKKKKyOcKKKKACiiigA rA8eeC9P+IXhPUNA1QSGzvEALRNtdGBDKyn1DAHnIOMEEZFb9FXCcqclODs1qjWjWnQqRq03Zxd0 fld4g0Wfw3r2paRdFGurC5ktZTESVLoxUkEgcZB7VQr3L9rvwTqui/FO/wBfmtCNI1YRG3uU5Tek KIyN6NlCcdwc+uPDa/ovLcUsbhKde920r+vX8T+vMrxkcfg6WITvzJX9baoKKKK9I9QKnkeJ7OEA nz1Zww8sAbeCp3Z5OS3UcYHJzhYKKTV7CaCiiimMKKByaKACiiigAp6RNIrsMYQbmyQOMgfjyRTK 0fDelQ674i0vTbi+h0y3vLqK3kvrkgR26u4UyOSQNqg5OSOB1FZVqio05VJbJX+4zqTVODm9kbfg LxN4j8Mpq0mha7P4bt7iFYru/hkkjxht8aB4wXDMyYG3rls4UMR3/wAdP2h4/jb4B8B6bfafcjxF oEUkV3qU8wZbjcsalwABy5jDHI+XGAWyTX3L8Xf2cNI8Y/ALRvBc/iCTR7Xw3FbzRatLEsgxBC0Z aRMrlSjOeGGDg9Bg/l1babPqN/Da2MMt3JcziC3VU+aVyQFUDn5jleOeor8t4dzXKuLK0sz9nyVa En91mrt2V7rp0sfI5Xi8JnFR4xw5Z03+DTV27K9106FSprOdLa7gmkt47uON1dreYsElAOSrFSrY PQ4IPPBB5q94h8Laz4SvUs9c0i/0a7eMSrb6hbPBIyEkBgrgEjKkZ9j6VnrbTPbSXCxObeN1jeUK dqswYqpPQEhWIHfafQ1+oRq0q9PmhJOL6p/k0fWqcKkbxd0+zL9jq1pa6/8Ab5tFsruz813OlSyT rb7TnCblkEuFyMHfngZJ5z3Pif4j+A72aA+H/hLpekxqpEq6hrWoXhc9ipWaLaOvBB/CvM6K46+X UcROM5yldK2k5L70mrvzephUwlOrJSk3p2lJfgnqfVv7Hnxw8DeEPiJ5GoeDYNE1jWGi0yy1DR3u ZkAkkGUlWe4kIBcR4ZBnrnivXfiJ/wAFB7XwL481zw7H4Jl1CLS702hu21HyTJtJDsE8o4+Yccnc OcjpX57pI0MivG7I6kMrKcEEdxVnVtUutc1S81G+ma4vbyZ555n6u7MWZj9STXwGP8PcqzLMZY3F pzi42s5SbTWzTvfbofO1+G8JicU69W8k1s29+973Ptz9oj4s+BPj54s8A+EY9a8TaHdG6s7yK5sr BJISbuON4gw81XWRVkTDqGC724bPHuv7Rn7Sdn+zla+GhPos2uPq0sibVufKMcUQTe+Srbm/eJhT jOT8wxzwX7HXwW8Bav8ADHwV47l0MXXiiFJlXULx2J3pPIgIj3lDtxtViu4BV6YGPJP+Cks163jv whHJeQSacmnytDZKf3sUhkHmOwx91gIgOesb9Mc/jGEyzKs24gw3DyjJ0aHtFJS0vLW/K1ra6vqz 4bD4XC4zMaWXWfs6fMnfS71va2u+up7Lqn/BQv4ZWWm2Fxbwa5fzXSMZbW3s0ElqwxhZN8iqSc8F Cw4PNfG+n/tN+OtI8b2uuDxn4h1W0t9Ua8bT7m6aGK4gLqTGU3yKoZQw2YZU/hzXjxGDVvTLa1u9 Wtbe5uzZ2Us6Ry3Zj3mKMsAz7AecDJxnnGM1+4ZXwFkeS06qhTc1Na83vaa7aXW/TU++wvD2AwUZ rl5lLe+v3afkfdOh/wDBS3S7i9RNX8DXdhaFDums9QW4cP2Gxo4xt9TuyPQ1Rt/+CmitPGJvh2Y4 SwDvHrO5lXPJAMABOO2R9RXxx4GezfxfoMOpXh07TTfRie8SNC8KMyhnywxwBkE5C4yB64BGDXnx 8N+GJVpweGeyfxStrfbXfTU51wzlTm4+zey6y8/M/Vj4K/tdeD/jl4qm8P6NYaxY38ds10P7QgjV HVWUEApI/PzDrj617ex2qT6CvzV/4J4ymP49XQHR9FuFPB6ebCe307/zxX6IeKfGvh/wXZJc6/re naJbSv5Uc2oXUcCO+CdoLkAnAJx7Gv5r4z4cw+TZ6sBgIScLRdt3rufl+dZfTwOOeGw6bVl5s+Zf hf8A8FB9E8c+M7LQdW8K3ehjUbiO0tLqC6F2DI77VEi7EKgkgZXdyfTmvZ/jT+0L4W+BFvo0viL7 ZKNUmaKFLGJZGVVALyMCy/Ku5c4yfmGAa/Lf4nfDe4+G+umCLUrPXtFuGf8As/XNMlWW2vEUgNhl JAdcgOmSVJHUFSdyz+BnxJ07TPC/iHR/Dup6jbasiX9nLp1pJP5bJIQnmrtwp6MCw2srggn5sfru O8PeG6sqONo1/Z0pJ+638Ts/tN3VuqsfZYjh7LJOGIhV5YNbX3du72800frxFIssSuudrAEZBB/K nZ4qrpi3Kabaresj3giQTNEMIX2jcQPTOcVaziv5WqxUZyitkz8sZX1DULfS7G4vbuZLe1t42lll kOFRFGSxPYAAmud+HXxR8L/FjQ31fwrqseq2CStA8ixvGySAAlWR1VgcEHkcgivN/jT8fYfA/wAS fC/w8vPBk/iGx8VhbaW5aQLDtlk8powjIVlIBy6llAVlz96vkr4xeIvEXwk+O/8Awrz4SR3nh2x0 yeI22maZcSyfbrieCKR3mDsfM4KqN2Qqpxjmv0vIeDZ5zS5Jv2dSUeeMm1yci0bfVO9rH0WAyiWN XI3yya5k21y8q0d+t7n6SmRQeWA/GszQ/FWi+JpL2PSNWsdUexmNvdLZ3KSmCQdUcKTtbg8HB4r8 b/F2seKbvxJPP4g1TUdQ1nS5vsj3l1dtcSQujsQol3HowcjB7Eiu++C/7TOt/A3UdXutC0XSbg6v Mkl4Lzz3barMQkbeZ8ow7ctvOeSTwK+6xXhDiKWClWw+IVSpZNJJJeerfbbQ+grcH1qdFzp1OaXZ Ky89bn6M/G79oPwx8A7fR5fESXsx1WZ4oI7GJZGAQAvI25l+Vdy5xk/MMA81z/wx/bC+HXxLsNSu /wC0W8LxWEkUUh8RSQ2gcyBymxvMZST5b8Zz8p4xXPftLfBPUP2pPCPgm+8L6vpVvbRsbszXSF98 MyKd0cignjA+TADZBJG0Z+Yfiv8AASH4CaCkPjtLrxDp2q60z6c3hmb7ILVApEjSeZC6b3Bj2w84 8ptr43Z8LI+HeHszy6GHq1JfXW2nFPVWfROy28/8jzsDl+XYrDRpym/bu+i8m+jstvM+w/iB+158 OPhzr2i6bqGqSXsWqQ/aV1DS1W6t4IicK7lGJIYg42BjweBxn1OLxdo83hUeJI9QhbQjafbhfBv3 fkbN/mZ9NvNflL8YtB+GFt4h8Pj4f+IZrrw41p5V/NcRSteJMjFncxyLGpLIyBQpVSysMqOa++f2 fLjwrZfsp6dLJfXWt+FIdPuzdzavbbGeFXl85Gi3OAigOgUMwwOppcTcH5dlGX4TE4f2nNOXLJSj ZvV/JPTRX13FmeUYfB4ajWp815OzTVv+GflcwPEP/BQT4WaNetDZtrGuRCISC5sbIKjMWwUxM0bb gOeVxjoSeKxdX/4KN+AbexuG07RNdvb1fMEMU0UUMcjAfKWfzGKqx4ztJGDlemfi74yTeAr3V7bV PhvbatpOiXsTRT6ZqSH/AEeRCuQsm994YFXILHaSOeQq+r6D8Z9XutI8BaH4M8JeFNS8e39pdXEu sDSoEuobgySosis21FlEcId3YENx2HP6BPgHJKGFoYinh5y5t1OfLy2V3zaWS0d7fI+hlw9g6dKn VhTk77qUuW2l9dNPO3yPf9Z/b80HTPh54Y8R2+gG/vtTneK/0mHUEMmmqjEbnYKeWxlFZU3gE5GK +ntE1ux8R6Va6lpt3BfWVygkintpVkjcHuGUkH8DX4yeJPC2peH9Qdbu5sbuVrcXbz2Gow3SMrNs PzxuwLBiVIBJ4J5HNfb3/BN7w1ead4c8Y6ncXwEVxdxWq6YJQXgeMNvkdM/IW3hRkA/uz2xXz/Gf AuU5Xk39pYCpZxfm+ZSeivfTlXXqcGd5FhMHg1isPPr63u9Fv0X3n2XRRRX86H54FHUUhOB1xXmv 7QB+IrfD2X/hVxgPiX7RF/rDFu8nJ3+X5o8st0+9gbd2PmwD3YLCPGV4UeZQ5nbmk7RXq+htRp+1 moXSv1eiXqel0EZrH8GjWR4S0b/hIjAdf+xxfb/swxH5+weZt9t2a2K5qsPZTlC6dna62foZyXK2 gooorIkDwK8B8HftAeIbv9o/xL8PvE+maZoGlQR7tImnuBHc3nzKEKguRN5g3sAgBXaVbkGvficD mvnXx3+x/ZeOvj7ZfElvE89skNzaXU2lfZg/mPAFChZd42KRGmRtY53EHkY+u4f/ALNaxMMz91OD 5ZWbtK6ta3fzPUwP1ZqpHEu14uzs372ltu59E4zS0h+VSfQV5l8HP2hfC3xxvfEFt4dW9D6LMsUz 3UIRJVYuEkjIY5VtjYzhuOQK+fpYKvWo1MRSg3CFuZ9r6K/qcMaU5wlUirqNrvtfY9NxuHrXzN8T dZ/Z5+EfjzxBqmu6Pp1z42eJNQuLQ2bXEkjlhtaNX/cpKxwxwVY8sepNfRHiPxBY+FNA1DWNSmFv p9hA9xPKf4URSzH8h0r83Pjb4o8F/tRfGbwdL4Uh1XStR1pk07UmmsY2dG3hYpSivhyFJ3N5nCIn TaRX6NwJlUsfiKlXESqQw8YvmlB2WmtpeTt99j6DI8J9YqSlVco0knzOPlrZ+X/APb/hL+3Jqniz w38QtT1vQ7GSbQrNb/T9M0wyLPcRFyjbyd/ypmMvIAAoJO0jpl/sk2s9h8E/i348sdRvdPvtRN00 MuqHfFbvDFJIsxdR+9OZfncIOUIC8Gvc/h78Gfhd+zXHZXsb2OkavewR6Y+rapfFHvX4JVRI+0M7 Ju2oB06YAr0q48Z+HINe/wCEfm1rTY9ZeIzf2Y91GLgx4JLeWTu24BOcY4Nd+PzvAU3Xo5Lg5KlU lGTb6xha6tqrX1vfrqaYjHYde0p4Ki1Cbi9e0elteut7nyV+xFrXibxT4T8Raxr/AImv9ehe8S2g hv55J3gdE3Od75OGDpwDgbfU19K1leHP+ESOnt/whP8AY39g+Ydn9heV9m34G/HlfLnPWtWujMsZ HH4qWIjT9mpW921rabHzWZYhYnFTqqPKn07BRRRXmHmhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF FFAHKUUUV+inzQUUUUAFFFFABRRRQAUUUUAFQX9hb6rY3FndwpcWtxG0UsMgysiMMMpHcEEip6Ka bTuhxk4NSi7NHxz+0R+y7a+EdJuPE/hCOf8As6Db9q0oZl+zxhW3zK7MWKjC5UgkZZshRgfMtfq3 d2kF/azW1zDHcW8yGOSGVQyOpGCpB4II4xXwx+058CE+GWqx65osUcXhi+kWFLdXYtazbMlDuJLK 21mBzxyMDC7v1ThrP3VaweMld/Zb/Jvv2P3fg/il4q2Ax0rz+y318m+55L4T8Z634F1VdS0HUp9M vFG0vCRh1/uspyrDPOGBHAr7e/Zo+L3iT4t6Pq9zrthawxWUkcMN5aKyCZypLqVLH5gNpJGB844r 4ICMULYO0EAtjgE9P5H8q9z/AGfP2kX+FcR0TWbZ7zw67NIjWyDzrdz1IyQGUnqCcjqPQ+3xHlix mFlUoUlKora9beXf0PoOLMnWY4KU8PSUqqtr1t5dz7soqhoWvWHibSLXVNLuo72wukEkM8RyGH9D 2IPIIIPNX6/EZRcW01qj+apwlTk4TVmgoooqSAooooAKKKKAOL+M3go/EH4Z69oscbS3c1uZLVUZ VJnT54xubgAsoB6cE8jrX5zeJvDWo+D9dvNG1aBbbUrN/LnhWVJPLbAO0shIyM8jPByDyDX3l+1N 4hTQfg1q6PDdy/bylmGtH2GMsc7nba2E+XBGPm3bcgsCPz/uY1iuJETzNqsVHmrtbj1HOD7ZOPU1 +scGxrKjUk37je1uumt7/hb5n7/4fQrRwM5SfuOWi+7W9/0IqKKK/SD9WCiiigArZ8FppMni/RRr 3/ID+2wm/wDmZf8AR948zlfm+7u4X5j25xWNRWVan7WnKndq6tdbr08yKkOeLje1+xs3FwnhPxcb jQdUF8mnXglsNSWAp5mx90cnluOOgO1gfTmsaiiinTUEr6uyV+rt3CMFHzfcKKKK1LCprKyuNSvY LS0gkubq4kWKKCFSzyOxwqqBySSQABXpPwQ/Z68SfH251eDw7dabatpaRPMdRkkRSJCwXaUjfn5D wce2ece/+C/+CcPiETrc+IfGtjo80MyPEujwyXDMoIJIkcxbGz0IVsdfavi834tyfKZVMPia6VSK +Gzb1WmiR4GNzrBYJypVaiU10s3+R9Gfsv3XiHxd8EYdI8c+EU0GK0Q6RDp1zbyILmzSJEUvFKS2 CCynJO7aTjBry/x18HtO+GHxl+Gdj4K+D9tqWiR3f2ifWma5la1kMq5ZpBIQPLADjzgwPRMEGvrq NVt4kTdwoABY5Jx718C/twftG6sPHNl4a8F+LJrTT9PhL30ui3bRubosymJ5EIPyKB8oOMscjKjH 8s8K/X88zutDAx5KdTmbV5KCumr6PfXr3PybKY4jH4ycMOuWMrtq8uVetvXqeMfET9pXV/iZ4+0H xH4i8M+HLuTRWdBZi1Zo7qItnypiztvA+bb2BZjjmu3/AGjvE/wQuvhrHZfCzy7fV7/WYL/UbeK3 u0XasNwPlMyhVVWmwFTA+bgYHHzXeXlxqF3NdXU8lzczu0ks8zl3kcnJZmPJJJySahr+q1wzhYzw 06UpU1R+zGXuvW/vJ72eqP1x5RQ5qUoNxUOiej1vquuoUUUV9ee4FFeufBX9mPxV8d9J1LUdAvtH tILCZYJRqNy6OWK7uFRHOMdzjPOM4OOF8feDH+H/AIovNBn1XT9Wu7J2huZNNMpjilVirRkyRoSw I5IBHPXOQPIpZtgq+Kngqc71I7qz09XscFPHYerWlh4SvKO67H1X+yP+z5H8S/DPg3xmnibVNKPh vWp3k08W4Ec5DRP+6kDgqGGFdsHOCoA27m2v+Cleh6Wlv4J1bzIotZdri18sQ/PcQAI2TJ6RsRhT /wA9yRjBz4f8KP2qvGX7P3h1/DOkaRpM1o8hvfM1CC582QyxqUcfvVAQr5ZACjI56sTWX8df2mtb +P2i6Baa5pGm2V1pck0hubFWHmB9oCgOWZAAvI3EMcHA2ivyDDcP57PiunmtVp4aLly2avyyu/nd v1PjKOW5hLOI4uf8NOVndbO/6s8cPNTtJ9ovWlECHe5cwxghcZyVAHIH9KgpWILHAIHYGv3Vq5+g tABvJ6dzzxSUUUxn0X+wf4h0nw38b5bjV9UtdKgm0qa3ilu50hSSVpYtqAt1JwcAcnFc/wDtR/BX xZ8LfFy6v4q1qy16XxFdXU0N3bM/mMEZOZFZQEOJFwqswGCAcAZ828PeCrzxD4Z8Va5HuSx8P20E 80mzKs8txHCkecjBId2zzxGR3zWAiB1cmRUKrkK2cucgYGB15zzjoe+Afi6eVc2d1MzoVlayhOLj fZXVpdPiTZ8/DB3zCeLp1NNFKNr7LTXpumeq+ENQ8YfDv4fSarqXhi2vvA1/NJHbDXNNhmia9kt2 EU0HmLuJAjBLL8hCEHnFYVh8d/iJpWl6Tp1l4z1q0sdK4tIILt0VF+XCHB+dRtACtkAZAABIPP6l 421/V/D2n6Feaxe3Gi6eP9G0952MERy53BM43fvGG7GcHGcYFeoap+yV4y0P4Rj4iaje6NY6IbOO 9+zzTy/adkm3y12iIqGYsoA3dWGSOcZ4inl2Dl/wrqmp1ZWjpv0Wjv72urFVhhaLtjlHmnKy037b 9ddT9E/An7Q3w98d3S6XpfjDTbvV0kFs1s8hgkmlA5ESyBTIODygI969Kr8fP2dUtJPjp4GW9sZ9 Rg/taA/Z7b72/dlGP+yr7Wb/AGVNfsEDwK/krj3hfDcMY2nSws3KM1za2018v8j8iz7K6eVYiNKn JtNX1MnxZ4p0nwR4evtd1y7Sx0uxjMs9y6lti/QAknOAAASSQAK/PH9rT42eC/H3xM8G+JPh8ZtT 13TCjyXz28iRTFJQ8EXlOAzMrbyflGQ4GW/h+9/iuPCcnw610eNxA/hUW5N+JwzLsBBBG35twbBX b827G3nFfkx8XtL8L6V4+1NfBmqQar4amYT2TQRzIYI35EL+cNxZRwTk54zg5Vft/CnK8NisRPEV o1PaRTS0/dtNap+et7Hu8J4SjWqyqTUuZXX91prZ+euxd1fwppPjK5F54NRdNgjiT+0bXXtXtbZY Lpi5KwSSunmRYGFyWf5W3dQTwBGDj0rpvG+uaL4guIrzT7K9g1SRmOoXNzcrJHdSbVzMiBFMRdvM dkLOAWAUgDFcyTkD2r+n8uhWp0bVr26J6yXq7u/lotNz9UwsZxh7+3RPf5u+vkfZ/wCzD+2lrlvc eGPAGs6ANeNxdxafaX1iyW7WsB2oiGFIwrBMZJyuF69Ocz/godrOo6b8YvDEkFwVig0jzIY2dXUM 00gkzEc8MoVTuBVwMYOCK+frDx54i8K3g0rwzr+qeFLCWGIsltdXEKzyGNGM+1fmzIQCCBnayjO2 r/xg+I2vfGWHQfEmpaZcrFpenQaJPqrgulzcpvdmaTaAHYMW2ckDJ55NfmtDhajhOIqea4ejGFOS kpK+7ls7PRN7Wjc+VpZRHD5nHF04KMGndX6vy6X7I9y/ZV+B/hH9orwR4gg1zwnHoX9nTQxW2vaN eTrPLIVBlVlleRCQFQn5do807VB5r7htfD0Pw6+G40jw1pn2uPSdPMVjp5dVM7Ih2oWOBucjlj3Y k14Z+xT4t0PSv2bbrVBoreH7PSZbh9Russ63jxxI0lyCcn7oAI6AoQOBgdn8Of2h/BP7SOi6xoWg anqGkatLZzK9rPGIbyGMjZ50bAuhILAjBbBxkCvwjiirmmY5tX92bw1CorptyUdld6vf10ufn2az xOJxVRtS9lCWzbaXTv1Py6uddu49P1jTooIbCxvbyK4ms4t37t4xKERd7F9qiVxySeFycgVet/HO taHrcdyktmbu0s20rfFbwkPBsMTLvQfMShZfNB37Tw/SsS8s5dE1S7s7u2Intnkt5IbhHRkcZU5X 5WDKecHuOR1FR2MENzKyTXS2g2krI6My7hzg7QSM84IB5xnAyR/YUMPhqtJOUVKLXa97pL12R+2q lSlG7SafzCA2jEiUTJ+6bDIQ37zkrwcfKeAecjk8/dP1J/wTn1e8tvjJrGnRTOLG60d5Z4QBtZ45 YwjHjt5jgdPvV8p19cf8E6odEl+KWs3E13cpr4010trJYf3Bg8yLe/mbidwIUbSAMHOSeB8jx2qc OHcWpK65drXs77nicRcqyyqmun6n6IUYzRXlPxp/aU8HfAm70q18QyXc13qDZS3sIhI8UQODK4LD CA8cZY84BwcfwpgsDicxrKhhYOc30XkfhNGjUxE/Z0otvsiH9qbWvF2jfB3Vx4M0W51rVb0fYnWz RpJreKQFXmREIZmXIA25wWDEEKao/sk/B29+DXwmtrHUruebUdTddSuLWZSgsneKMGALuIypU5YY ye3Ar2aGZLmCOVDujkUMp9QRkVJ0Feo83qU8reVQgknLmk+rtsn6eRv9aksN9VSSV7t9X2+4KKCQ KK+escIUUUjNtUn0FCTk7IZmeKdDXxN4a1XSHuprFb+1ltTc2zbZYg6Fd6HswzkH1AryT9mb9mr/ AIZ3tddj/wCEnm8Q/wBqPEwX7P8AZ4odgYZCeY+WO7ls9FUdqwfDfxHb9r/wb8SvBh0rVPA/2SQa f/aDHezZZuGRlUq37vEkX918bgTmvWPg18Nv+FR/DfRvCn9qTa1/Z6Ov22dSpfc7NgLk7VG7AXJw AK+0r/Wcmy6tl1WtyznKPNTsndWupc+v3JnrVFVwlCeGnOzbV42vpa6fN+h2pGRWXovhbRvDk19L pWlWWmy30xuLt7S3SJriU9XkKgbmOTycnmtQUE4r4+NScIuEW0nuu55Sk0rI8q/amS0f9n7xsL6x utQtxYFvIsywkDhgUfK8hVba7HkbVbIIyK+Afgr8QPGX7MF94e8WT2GPCPirmaBkjaS7ghcoxXOH Rl8zcvKq25c5HT9I/i74k1vwj8Ntf1jw5pQ1vW7O2MltYsCRI2RkkAgsFGW2g5bbgckV8g/Cz4E6 L8V7S6+OfxA123vdPvYb271LQIoxJHCBG6H96JCyhVAdUwHTCDdlcn944Hx9DDZHiKGYQUqE52a1 lKUnHSKS+F315nppY+5yTE0qOBqU8Sr05Stbdt20SXTvzeVibx78dPhN+01rc1n4ztNX0Hwt4aIu 7TxBbTv/AKSZGRGhkgETFdx6bdzYjYgoN1e83P7OHw8+JPjuH4nR3F5etqenCIJbXW20uIpLYwiQ ADereUwA2soGAcZyT8SfC74G+BvjJH4r1O28T3vgDQNFMMaXfiIwTpIZXYIzSAwqpIXHl4OCwO9s 4r3bStC1/wCBnwj+IXhzVfjPph1CfTkm8NQpqJa4htYlc7okZg8fmRqEURFghGVLEV7edZXQwvs8 JkuJnSnG0XTak7Rny82qTV9eaVn8jpx+FpUZRo4GrKEl7ri76KVr6pP1ep7V8Nvg1oXwN0e68P6B JeXFtJcm6knvpFeV3ZVHJVVGAFAAA7epNdbXjH7JXj3VviB8H7S61qe+vtRs7mW0k1C/fe10AQys GPLAKyoScnKHk17PXyGYUcRh8VOji581SLs33a6n59mEKtPFVIVneSbTfcKKKK8488KKKKACiiig AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC iiigAooooAKKKKACiiigAooooA5Siiiv0U+aCiiigAooooAKKKKACiiigAooooAKbJGsqMjqHVhg qwyCKdRTGm4u6Pgr9pj4Q3Hwy8X3Oo6ZaC18LaswEAtyfLifAZ4XHbLKXUdMDj7pxxg+GNzrPgPW vG+h3FtPoWlXUcF5YzXI+3WSyECNnXaquhY7A68sQTsXDBf0H8d+A9H+I3hu40XW7YXFpL8ysvEk LjO2RG/hYZPPoSCCCQfgz4i/DvxL+z74tjQXYkhuEY299DGTBcxbiDFKjjY2QF3xHcpDAHcDX6nk 2cVcZRjh4ztWhtfacVuvWy36b66o/oPhjiF5nh4YVztXh3+0l+tuvzMX4e/F7xV8MLtZND1OSO2L bpNPnzJbS5Kk5jJwCdoG5cNjgEV9X/Cv9rfRPFNjOfFq2/haWHyYUui8ksN1MwbcFAQmMfLn5iVA I3OOM81+0H4/8I+Nf2c/BUnhDwnp1lPqt68LW1lp0RbTJwwaaFXjUbHkYRbQAGePkg7hjwrR/AHj v4uX1/BpWjB4tLnCz2ETR2dvaysoRsRMygMwhG/aMkqN3OKyccNn2FlisVRVCSck25JNWdr7Wd3p r8jpx2X5dnOGlisbSVJptOV7NWdvR3emp+keoabNpkscc23MkayKUYMCp9x+I/D0rI1jW9P8PWD3 uqX1tptmhAa4u5lijUk4ALMQBk8Vyfxt+LI+EPhJdZmtDrbm5S0ihjcwIxbcxbOG2L8rHGDyQO+a +YZPi9F+0V8U9K8MeKb19A8A310EWOEKJoJAjeW/mbWy7OQmCCmH6AjcPhctyrFYrDPFVF7kU22l rpvZbt26H5HlnDlfMU8S1y0I3u93Zb2Xc+yNE8Q6X4lsvtekajaapa7inn2c6ypuHUblJGeRxV+u U+Hfwo8PfCDTLvSPDc97d2M1wbg3GoMrSuxVV6qqjHy8DH6murrzZum3ek3y9Lqz+aPmcXCjTryj h5NwT0b3CiiqesatbaFpF7qV4/l2lnC9xM+M7URSzH8galJt2RzRi5tRjuz5a/bvJ3eCBzjF7x/3 4r5Qr1v9o/4t6f8AFzxRpN/pD3yadb2HlG0vVCGKYyyFyAGZfmURcg84APSvODoW3w0msNf2i+Zd PapYkv57bVVmfG3aFG9RywJJ4BwcfvGQU3gstpU6ytJt6W7ts/qfhrDzwGVUKFZWlr+LbMuiiivp z6wKKKKACiiigAoorWPhq9XwqPEDCFdPa8+woTMvmPKE3sAmd20ArliAPmABPOM51YUrc7td2Xmy JTjG13uZNSQQNcybEKA7WbMjqgwASeSQM8cDqTgDJIqOird7aFnXfCbx5qvw2+IWia9o94tlc29w iu8mPLeJiA6SAkAoVJzyMdQQQCPRv2yfitB8U/jNdvpt7Ff6FpUEdlZT20haOXjfJIOSCS7Mu5eC qL1rwuivArZJhK+ZRzOcU5xi47d7flr955k8vo1MWsXJe8k19/8AX4nvf7R/7R1n8dPCHgqztLC9 0abRmuY7myuLxrtZAVhWKUzMAZGwsgJYZyWyTnJ8EooJya6ssyvC5Rh1hcJG0U2+71be+/U2weDp YGkqNFWir/i7hRRRXrHaFaPhvTLfWvEWl6dd38Wl2t3dRW8t9PjZbI7hWlbJHCgljyOnUV0fhX4m 3HhPwB4w8MW2n20w8SfZlmvJ1EjRRxM7bVVgRklhhhgrjI5wV5bT/sSSGS+WWaFQV8iCTy5GJVsM GKMAFbaSMZI4GM7l89zxE41YuPLbSLTTb0Wttlrpr2OZyqSU1a3Z7303+89w+Ongbwl8Jfh/ofhr Q/G8HjXUJ9XuL68k0yWJIoFWKONUljV5CHB37WJH3pAQcDHJ/s2/C64+Lfxg0DR1t1n06GdbzUTI u6NbaNgzhv8Af4Qe7jtmuS8JX9vpkjS3bN/ZVyy2eqRwPH9oa1Z0YmFWwd42Egg4yAG+ViG+jfhP 8TvhB8DNN1jx74OsvFGt69CYtKXTPEM9vCNsxLmRGiRgOIGGeT2wN2a+AzGeOynLKuDw8ZVsRO6U 7L4pPS+yjvp0tZnzOKeJwWDlh6adSpK9pW6t9dkt9Oh6L+2F+zH4s8dePdE1vwD4SsLuJLNYruSG aGF2kjIEYkjlZUZQgVVwCcAhuAldNrf7Ivwqg+GfhGw8XtZeB9bAjWa9sL9IWubt4x5kIkn3+YNw JVeSNvy4BYHLb/gpF4Xj8Q2sDeFtRfRnt43mvop0M0UrIC0YhIAYKx2lt46EgHjPTyT/AAv/AG7T NZZ1yL/hErwN5iEQLOku4ZH3wY38ruFkG3jbk5/EKuJ4py3DYanmkZUKFG7546y10XN71nq7W0tc +EqVc1wtKlDFKVOnD7S312vrby6WPg34y/BzXfgj4xl0HW1SUFRLa30APk3MZ/iXIByDww7Edxgn kEsL+bSpLtbe5fTYJQjzhGMMcjDhS3QMQp46kL7V+rHxk/ZW8G/G/XdI1XXZNTtrjToRbhLC4WNJ og24I6srYwS3K7ThuScLj5e/ba+FXiDwuPDWi+ENC1RfhvpWmvMLawjkmtbadZJGlllILENscHfJ 2LYJ+fH6jw34jYbN/q2Ck17Z/G5e7HTt3b7f8MfXZZxNTxbpYeXxv4m9Fp282fHlFPgQSTxqRkMw BBcJ3/vHgfU17B+0T+zpP8A28MyDW4NfsdbtXljuoY/LxIhUsANzArtkjw27n5uBgZ/Wq+ZYXD4i lhak7Tq35V3srvXY+xqYujSrQoTl707287bnnPhSwn1V9VtItYtNHhewkkuHvbjyY50jKyiL1dmZ EKoASWC8cZGr8I/h9N8UfHFr4btruzsrq9hnWGe+lCRCQRMUBHUksAoC5IzuwQpB4+MoHG9WZcHh Wwc445we9K8Lxu6OpR0+8r8EHOMY9aqtQqzjVVGfK5LR2Ts7Wv59NxzpzamqcrN7O2z7+ZreJPCd /wCF/EWt6NcItxc6PPJb3clrmSNSknllt2OF3EAEgcsBwTivv39hTXvEvxD+Fus6f4sm0/WPCdos WladZyRQsyxrGVkilVRyu0x48wFmyTkjGfzy03Tp9X1K0sbVRJdXUqQRIzhAzsQqgsxAHJHJIA71 23gnxb438KXP9gaD4nv/AArdw3ck0ljLf/2fEZwEVhKzsqbsR4Ky4HyY5LbT8Xxbks87yz6n7SCq xs+ZrVW3a6q7W/Y8LOsBLH4X2PNHnVnd9O7Xa57P8cfDGkePPi/r2meG9Kt/hlp3geJpb6+aAwWz IJE/0hI4YgyysWXYMt5qqpBTHzfU37K3xu8V/G7SvEOoa3oMWm6JbSrHpN9GrqbpMuGDbiQ7JtXc 64GWIwMGvnHSfjV8V/jl8S9F+FvibTNLFhLMIdc09bMbLq1AV3meTcxUhVLxyRMgLMhUnK1sxfD7 xX8BrXW7f4G+OrLxreG9a51bRrd7aa7tLeEMFQwbmLsSxR2QK5KxhVHNfk2b4COLwNPK8ZKEa8VF 0225RUb+83O2jk1fW6tZI+LxlBVcPHB4hxjUSXK220l1bl0cmut1ayRz37KPh271T43fET4ceM7g a1pV3aXf9r2TTM8FzdR3MS+dnghwSxDjawOOQQBVn9sv9mLRPhfBo3i3wvpYtfC6NFZ6lp9rJKZg 2Ttl8x/MVQygIWI4cqTvL8eO/GP4U+M9C8Oaf8QPHD3UeseJ72VjZ3Fu4kgABP75mx5bHjZFg/ID 02lR+iX7K3jBPHPwD8IXxM7zQWgsZmuX3u8kP7tmJ9CVyM84IzW/EGPxPD1WhxDga3PSk1CcI6Rc krN363to7dDfMMRVy6pTzPD1OaEvdlFaRbSs/wAt7dD8wPEHwp8Q+H9e8PaVNZFrrxFb211pce9Q 88c5AiyufkJY7SGxyD1HNdRpTeLPh/oj+F7z4UWUuo62JUtrzXPD88moOduD9n3nGUBBG1eDgnNf q5qXhXRtZ1PT9Rv9Jsb3UNOZms7q4t0klti2NxjYglCcDOMdBWmUU/wj8q8HEeLc8TThTr4RSS1f vNap6bdNrnFU4unWjGNSinbfVrXofjn8Ir+y8L+KrDxBrvgybxhoMc4tDalWETXDj5FztKu4GSIz 97HbrXrd/wDsc/FvSvh34oVrRRZWl/FeQaLDcC4kvlRZVM0QQ/eCuMIwVnGeAVVW/TDy1H8I/Knd RXn47xXxdauq2Fw6htfmbldRd1ZaJdbtLr5GFfiyvOp7SlTUdr3be21tkut7L8jxr9kbw5rXhz9n 3wzpviOzu7LUUE5e0vwRLFGZ5DGpVuV+TbhT0Hp0HWeD/gh4G8AeKb/xD4d8N2ej6tfQiCaW0BRP L+U7VjB2ICVUnaoyRk5Ndx14pa/I8ZnGKxWIxFeMnBVm3KKbs7u9vNI+QrYqpVqVJ3tzttpbau5w Pjb4C/D74iNdyeIPCWmX11dlDPerAIrp9uNv79NsnRQOG6DHTiuPl/Yt+DU/nbvBsY86QSNsv7pc EZ4XEvyjk/KMDpxwMe3GjFXQz/NsLBU6GKnGK6KTS/MqnjsVSjy06skvJtHjln+x/wDCCw1CK8j8 E2jzRTNOqTTTSxFmABDRs5Rl44UgqOwGTXVeDvgh4G+H/ii/8Q+HPDdno+q3sIt5pbQFE8sbTtSM HYgJVSdqjJGTk13DnCMR1Ar8u9S/bZ+NOnXmrWVzriWd0Zihhl0yBZLFlc7o1BTr/CRIGPHY819n kOXcQcYxrQpYx2ikmpzlqm9ut1oezgMLmGc88YVtrX5pPVP7+x+nWraraaFpl3qN/OltZWkTzzzy HCxxqCzMfYAE/hXxD8V7DSv2rfjz4B1HwZqeieIPD1t5cOpW80i294kcc/mTb4JQkskZjYBdoYZ3 /dySenb9qjW7H9lu417x/odmNe1cvYaTZXVu6xaxC0aZneLP+rKuxbBCsB8uNy14X+xB4Un8Y/tD Qa9aW1tpmn6JDPfS28JZo13o0SRJ5jM3WTOWJ4Q85xX1/DPDWIyXCY7NasuWpSUoxlo4S0s7db3e j27nqZdl1TBYfEY2b5XC6T3T6Pz32Z9zePv2hfC3w1+IfhjwVqi3r6trzIsDWsIeOHfJ5cZk+YEB nyBtDdDnFT/tG+NtT+HnwV8UeINGu4LHVLS3U29xcLuVGZ1QEDBBb5vlBBBbGeM18W+Hv219V0fx hf3HxF8KWfi2/sNQb+zWltora40YbmEyRsYt2RhAA21vlO5q9Q/aY1PU/wBqrw7Y6V8IdTHiG20i 6kTX9Jjn+yPuO0wMwm2LIitHLyCRuKkZxkecuC55fmWBeOpqFLR1KjadN637aXuo67s51ks8Li6C xMeWF05SbvF9flfbXqX7DTvi3+0l8BPh5r/h/wAeR6HraXF0dTmiaWyF0qytGjExLyyhDlNoRi55 G0Z+uLdGigjR5DKyqA0jAAsQOpxgflXxP+yd+05p/wAOPh1qPh/4l30+ixaJerYWMk9hIWAKsWty saFi0ZRiSV43qCeQK+uNT+I3hvSPBDeMLrVoE8NrbLefb1yyNEwBVgACTnIwACSSABmvm+LsBmFL GvBRw9qSnL2bjHRqTukmlra69Dzs1w9enX9h7O0VJ8tlvd3snbX9DpKM5rzTwN+0j8N/iPqs+neH /FNteXsMH2lopI5ID5eMkgyKobA5IGSvfFK/7SPwxXX9K0WLxrpN5qOqS+Rax2M4uVZyQArPHuVC SQBvIz2zXxsskzOE3TlhpqSV2uV3S3vseQ8JiIycXTldavRnpIUL0AH0pc0E8cV81W37VV/4X/aD 1zwV8QbGx8JeHArHSNTut6GfDKFZpcmMo43tn5Qu3ax3cU8vynF5t7V4ZczguZrq15LdhQwtXFc3 sldxV2utvLufSvU0EZrmtK+JXhPXtIvtV0zxJpWpadYKXurqyvI5o4AF3EuysQvAzz2rkfBP7T/w y+IniKz0PQPFEV7qt4jvBbNbTwlwucjLoo3YUnaTnAzjFZwyjMakZzhh5tQ+J8r09exMcNXkpSjB tR30enr2MD9tTXE0X9nHxUPtrWU92ILWIocNKWmTdGOedyBwf9ndX5eX82raXYpo11Pcw2LGPUFs WlPlFpIlZJdmdu4xsvzYzg4r9SP2ytGt9W/Z38VPJpSarNZxx3MCsjM0Dh1UzLt5BRGc56Yzu+Ut X5m6Z4T8X/EvXHj03RNR1rUPLh3JZ2bERRFVWIkKu2OPaFAPCgAdq/qDwoq4alktR1XFJTbblbe0 bW/H5n6nwlOlDAzc2klJt3tvZWObkgmgjjd45I451LIzKQJFDEZHqNykfUH0q1aS21/cu2rX13Gq wbY5YYRcOSqhY0IaRMLgBcgnaAMKeleo33iL4hfFvwlovw2i8GrqU/haXyY5bHSpPt9sMshjmYHC LnAbKrkxqWJIJr0z9myK0+BvxT1DwP8AFjwfYWw1EW96NR1loHg09ollMcu9iY9rGQoHVgQ528k4 H6Xj8+WGwdWryRlXjdqEZRcnFNe8r+WtrH0mIzL2NCc+VOpG75U03a+/3a7HuX7IGl67oPwcg0vX 9BudBuLS8nWKO8jeKaeNiH8xkYAry5UeoQH6+21b1WeK6vWmgkSaGRUeOSMhlZSoIII4II71Ur+Y MXjpZlXljJx5XN3a7Nn8/Yyu8ViJ1mrOTbsFFFFchxhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF FAHKUUUV+inzQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVyfxN+G2lfFLwrPo2qx5HzS20wLA28+ xlSQAEbtu8naeD3rrKK0p1J0pqcHZrZnRh8RVwlWNai7Sjqmfl/4q8IeIPhp4iWw1i0n0jVIdk8Z VxnGcq6OpIPI6qeCCOCDXSfCT4ov8JP7Z1SzD3GsXlt9ktYCf3EeWBM0o/iI2gKvfLZxxu/QfXfC GjeLlhi1bRbHWTGT5KXlqk+1jgfKGBwTgdK/L+G1u9Z1Rbe3tnuL25l2pb20XLux4VUUevAAFfsW VZnSz6jUo4mCXKlza6PV/hpqf0VkmdUeJsJUpYqnbltzdn/wND0Hwnp3iv8AaL+I9la6rqF5quXE l3O8gVbW23L5hRcbU9gBgsRxXuPwr/Y8ufC/jqPVvEWp219YafMs9jHYsyvLIrhkaUMuAABkqpPP fAOfTP2bPg/qPwm+HqnWbYW+ratM9zMoKtsVTsWPepIbAUt7Fz9T6vmvjcz4gnOpPD4CSjRXu6W1 tu1+Wh+e57xVXjWqYPL7Ropcui380A4oqpq2sWGg2Et9qV7b6fZRY8y4upVjjTJAGWYgDJIH41zP iH4s+G9D8Dap4rg1GDWdL08hJH0yZJ8yEqoTKnAbLp1PAYGvkIUp1GlBXu7fPsfnVLCV8Q17ODd3 ZerOxJxSMokUggMp4IPIIr8+/ix+0r4o+KMbWSsNC0YlgbKylbdMpGNsz8bx14wBzyDgGvqn9lvR NV0X4Q6YdU1H7el3/pVomSRbQMq7Y8kZ4IJx0G7A6V9BjsjrZbhY4jESSk3bl6/efVZpwxXyfBRx eJqJTbty/wDBOb+Pf7NL+PodAXwfa6HoX2ATJNG0X2dZFcqy48tD0Ic4I/jJ7mqOkfsh6c/wkGja xMX8VQSXV7b3dlcEQCd0CxxtujyYT5cJb5dwIbawBIP0dRXFHN8bChDDxqNRi7rv1679TlpcT5lR oU8PCppB3Xfru+2p+dfxX+Ffi/wdo+l6/wCMDeTarqVxLBNJcT/aSixpGIQ8oLDcw8zC5PyxjHQg eZ19u/tqT2Unwys7WSeEXy38dxFbm4jSQqFdGYIx3OBvAIXkFgTwDXxFX7Dw7jamOwKnUSTTa00V un3bH79wxmNbM8ujXrKzu1ptbpYK0bbVIIPD1/pzWMMtxc3MEyXrY8yFY1lDIvGcOZFJ5x+7HB4I zqK+jqU41FaXdP7ndH1UoqasworS0Tw5qPiNr4adatcmxtJL64wyr5cEYy7nJHTI46nIAzWbTVSE pOCeq3XYFJNtJ7BXQv4ojb4fReHfskbTLqb3/wBrZBvRTEqbFbqASuWH+ynXHHPUVnVoQrOPOvhd 16kzpxm05dHcKKKK3NAooooAKKK6vQPHkGkeG20W98L6Jr1t9ra8SbURcrNG5RUKq8M0ZCkKCR3I BOcDHJiatSjDmpU+d9k0n+NkYVZzpq8I83lp+pzt7pl5py2zXVpPbLcxCeBpo2QSxkkB1yPmXKkZ HHB9KrV6Z8Vfj1q3xc8P+HtH1LRNE0210BDFp50qGaMxRFVUx4aVgVwidsjaMEc557w/42svDnhv U9Oj8M6XqV5qcD282oaqhnktwc7WtgCoiYZyWO8kgdACDw0MTjZYZVK1C1S9uVNbX3v6fic9KriH RU6lO0r7Jra+9/Q5SiiivZO89h/ZY07wLr3xQXRPH9ql1peq2ps7USSPGFujJGY/mQhlJ2soII+9 g8GuB8a+APEngLUGt/EOg32iM8skcX2mBlikKHDeW54kUZHzKSMEHJzXOVal1O7m0230+S4keyt5 ZJooGPyxu4QOwHYkRpn/AHRXiRwVelj5YqnUvCaSlF3drX1jrZX0vprY8+OHqwxMq0Z+7K10+lr6 rXS/XQq1+jP7DXxkm+Jk3i6yl8MeHfDxtPs9wX0Cya2+0M+8EyDLbmG0fMSDz0POPg7wl8L/ABb4 9tJrnw54d1DWoIZ47aR7KAyBJHDFQcdBhTlui5GSNwz+n37Nf7Otj+z34Z1CzTUP7Y1TUplmur8w eTlVXCRhdzfKuXOc8lz7AfkXipmeVLK3haklKu9IpPbVN3tpt3+R8ZxbicG8N7Ju9Tpbps3f5dz2 LqfpXzt+17438e+FrXwxaeANf0bSb+9nlS4t9QurOGe4GFCCIXRCsuSQ235ssmOCa9O+Mvxj0P4H +Dz4h15Lqa2adLaOCyRXlkkbJAUMyjgKzHJHCnvxX5fftEfFm/8AjH8T9S1m5lZtOjY2+lxNF5ey zDFoiRjOWDbyTk/N6AAfjvh1wtis1x0ca4L2UL6yXNFva1tL79z4/h3KquNxCrcq5I3+JXTfax9V +Gf2MtS+J3wn+z+PLDS/BXjWC/d7S/0ewtlJtiE+WeO2KRyZO/GCCuFOeWBoftP/ABg8OfCLwPo/ whsNH07xbf6bpcUI1HUfKnGnSqgjRzCyODKV3Ng7dodTyGxXlkX7aPjq1+F/g/wv4b1XUf8AhKra WaPUNSureK6kulL4t4oy4ct8rYJK7squCcmvAb/U5vEepX+ua1eve3lxdLLcgttmuGcszsG2lVHB 5wcFlwpGcfs2U8L5piMa8Tnk06NOUnTpxutb2TXVRdrpXaPscFlGLq1vbZhJckG3GKvvf8FpdK7D QvFN/wCHbHWrWylaKPVrP7FcbWIzH5sch6Hv5e3nszDvVXV9Nl0XVLqxnaKaWBjH5sL+ZG4HR0Yc MpGCrDgggjtX178Zvhl4a8XfBjwrrPwk+GYvm8T3guLy6si89xp8gGDEMMfLUsXU8eUuzkAlCOK+ H37DXxN1fxLZ2PifTG8O+GXlWW+uhf28hKJnhER3y5DMFJXA3HPofscLxXlnsZ4uu1Rd2nCTXO3G y2Tv0sl10PapZ3hPZyr1GqervFtcza02v5bHzV1q9rms3niLV7zVNRn+0397K088u0LudiSTgAAf QDA7VrfEe60m58c6z/YMEVvocM5trERDAeCICOORu5Z1QOxPVmJ711PhTQtI8KfDKbxzqtpaazf3 d++kadoepBlhkTyszXRCuruFDbAVK7HKtuyAB9RXx1OlQp4mUHzzSUV9q8tbeXn00PZq4iMKcajj 70tEuuvT/M7Twf8AFW//AGePBsNl4C12PXNd8V2MN/eyNBui0farho0QsVaYHdudxgLGvynOR0H7 PPjTwV8LPh54i8daVf3Gr/FyKxnT+xL5W+ziNp0zMmFBfagEj4fIVZOFGWr568V+JovE11aywaJp mgxW9ststtpcTqjAMzb2Mju7Od2CzMScCo/DF1/YuvWepT2kV3b2Mkd1PZXEojW6i3qGi55YOG2k AH5SxxgHHzOI4dpYvBzda6qTalP4bzs9ISa0taysrep5FbKqdeg+e/NJpy2vK20X5dNDa+I/xf8A FnxV1S6u/EOs3V1BNcG5TT/Of7JbNggCKIsQgAJA7+pJJNfpv+yTo1jof7PHguKwIZJ7P7VK+QSZ ZGZ5MkejEr6gKAelfl14t1Twrqcjy+HvD+paE7zM5iutWW8hRDn92g8hHGOMFnY4HOSc1+nv7HcV pF+zl4NFnY3FhGYJGdLr70khlfzJB/ss+5l/2Stfl/ilThQyDDUqVL2UVP4dOz3s2fLcVwjTwFGE IciUvh07Ps2ez0UUV/KZ+VhRRRQB458UviR8RPC/xY8FaH4a8G/214Z1SQLqeqGN2FuDIFb51OIt i/PlwQ2cLyDXsYORQRntRnmvRxOKp16VKnCkouCs2r3lruzepUjOMUopWX3+bCiiivOMAxWdrvhv SfFGmS6drGmWmqafNjzLW9gWaJ8EEZVgQcEAjPcCtGitadWpRlzU5NPy0KTcXdHx7/wUB+GmueLd H8Bjwx4bv9VSwluYGXTId62yusW0NGoJCny+G4VduD94V8wfAz4YeOdY+Jnijwl4Y1oeGPFNnZTw z3CzvGB5VzCskYmiyyDI+8oOcbejE1+mnxX8A/8AC0Ph3rnhb+0p9I/tO3MP2y3UM0fIPKn7ynGG XIypIyM5Hxnon7O99+yB4+t/iLr3i20ufCGlb022SSR39+0kTKsAgIKcue8hGF3Er/D/AEbwdxTG pkM8pdSPto35IuLk5tu67rVu1reZ+h5Rm3/CdLB8y51flXK3zNu/pu7WPlf4laJL4W+IGvaXLqUu q31jfSw3OoOpRpZ1bEjYJJ/1m/DE5IwcDOK+ifhF+2H4Z+DmjaqLP4Vx6druoCGe4ksdQeOC8fJI O2RWMCBXLKqbl+bgAHNfPPxV8Taf41+JHiTX9Kgubaw1O/lvIorvZ5q72LHdt4HJPHPuSck3/hX4 rvvCet3Oqjwzpvi3T8Il7ba7bmezjLyALI5JCRvncqyPwN7cHNft+a5TSzbKKccfTc5KKvHmcLvT R2aW/R/I+8xmDjjMFFYiDk0lpflu9O2h9UeKf2ePEH7Tvxp0bxvfW1zp/wAO9c0i2vBcxXkQuLVT bZEKowJDGU5yFZSHJ3ZOB8gePbrW28Rzabru9L3RR/ZK2rFSLVICUEQK8Hbg/Nzk5JJJJr6Xuv8A gob410aXVdPt/DPh2KOCTyLBY/MZLdFfG19km2X5BgFCgzyMjivA/jD8U9Q+NPiqXxTqGj2GmXRV beZ9NhZI5MbjGZCSS0m0FdxPKoAANteDwthM8w2IUMyoQVCMVGFmm4229W72b8kedk9HMaVVRxdN KmopR1Wlv8+r8kcNb3MtpIXhleFyjIWjYqSrKVZeOxUkEdwSK9Y/ZV1fSNJ+OHhn+1vDbeIzcXcU NoscjK9pcGRdlwFBw4TBJDcAfNwVryUMpdSynYMZVTgkd+eea9v+Cfxc8Yfss3UWsy+FRPo/ieGO ZRqMckJuoYy2Ggk6D/WA5KtwVOMMCfseI6cquXVsPQgpVakWorm5W/R+S1PazWLnhZ0qavOSslez fz8j758P/tR+Btf+K2p/D5Lq4tNbspmtlluo1S3uZl4eONtxJYHIwwXJBxmvhz9uH4geHviR8XbS /wDDmopqdtZ6cNPnmQMoWaOeYsoDAZADghxlWzwTg10Mfx28BfGn49+B9e1P4d3uk642qW8Mk+na urJO/mIIHlQwAyFWwOCh2gAlgAo7r9sj9mjStA8O6PcfDn4d3U99eajLNfXWkLNcNEpTITyQW2ox 5G1QqbMDbvwfwvIMuy/hPPcM8VTnSqVIWtKUHFPXmbd9ux8Bl2Hw+UZhS9vGUJSj1cbJ63u77dj4 drQ0vQ73XL/T9OsLKe51G+lEdvEgz5xZtqhRj+8GGc4+mDXpfxq+DGp/CoeD7/UvD0unaRqOmWjz GKdvMe58tWuEkLg+VLuLYXaVAAwCQwrmdG+EHxB1LTIdW0nwhr93Y3Nu0kV3Z2EsiSRMTGcFVOc5 Ix1IJOMc1+9xzTBYjCLEU6kYxnezk1a+qtvrbqfoixuHq0FVjNJS2bta/wB5+i3jP4r3P7Lv7PPh K616xbxFrcMFnpcluLvaHn8olyZSrHAEb84OSB0zkQ/Av9srwh8adbttA+w3fh/xFPEXS1utrwys ASyRSqcsQAT8yrkA4r8/fht8HNc+InxEj8Bz3C+G9WMc0qW2sq8JWURb1TYRuDNhM8Z2gthtoB9f tv2FvjN4Q8SaVcaJfadFdMzj+19L1OSD7D8uNzMVSTDBiP3ascZzjPP4PmHCPDWDw9TDY7GJYqd5 qV3FWd2tLtNadNT88xGTZXh6cqOIrpVneSeqWu2mqt+J+koRQeFA+gr5T/ay+L3wq1mfU/hr4z/t tLuxij1IXOkhF2zBC6QhmJBdkboyFPnHIYAj6U8G6ZqWjeEtGsNY1A6rqttaRQ3d8Rj7RKqAO+Pd gT+NfLX7S/x2k8MfE3UvDGg/Cmz8T+KBpiL/AGvf2BuTLavkyRiNU3yQ7SwJEgXcWBBwc/kPCGFd fN3GKdRwTacZqFrNe9d9PI+Ryii6uLtGLk1rpJR2a1u+h1/7N3xFs/iP8MbKfTtAuPDun6YV0q3t p7j7QGSGNFDLJtUtxgE7R8wPXFepV5B+y78RtS+Jvw3bUb/Q9K0GC3u3tLS30aEwW5iVVPyxknbg kjg84PA7+v19TmtH6vjatPk5LPa/Nb59Txsyp+yxdSHLy2e172+fUKKKK8k80KKKKACiiigAoooo AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA ooooAKKKKACiiigAooooA5Siiiv0U+aCiiigAooooAKKKKACiiigAooooAKKKKACiiigCW1uGs7q KdAC8ThwG6Eg55ra1T4Z+FTC/ibRPDekWerSlrie/t7SKO4kVsmTc6jLNnk5PUHv1wK3vCviIaLN JDMCbWb7xGf3Z/vAfz78D0wfCzOhiG4YnCSalF6r+ZdUz0MJXdO9JuykfIP7Vv7QmveGNRh8GeGd SisoxF9ovbu1KtcRu+5fJDdYjtVWOMNyhBHfy74b/tX+MfC2pWMOt37a9oilYpY7pA06Jnl1kGGZ wP75bPt1HlHjHQL/AMLeKtW0jVGMmoWdzJFNKd2JWDH94CwBIb7wJAyCD3rHr+kMvyHL1gI0nBS5 ldytq2+p/SuB4dy2OXww8oRmrfFZXd+tzqviF8S/EPxN1l7/AF6+efa7GG1UlYLYHHyxp24AGeSc DJJ5r2rwt4c1HwV+yX47utT0NbK7v7uIIL+22ySQl4EViGGcKWdkJ6HLDrmvTf2NvCE3jj4M38+s WVtq2m6Rqzmxjv4lk8krGjsYtwOMF2OePvHHpXo3xx1S20f4P+Lp7pgkTabNApK5HmSKY4xj3dlF fG47PKM8THK8NTSVKaTSfZppbaX6nw+a57GGLo5TQoKMYVI7dbNWtp95+bFe4/B/9qPxD4Gv9L07 Wrj+0vC0EaWv2YQoslvGMAOjKoLFR2YnI9DzXh1S2lpNfXUNtbxtNPM6xxxoMl2JwAPck1+nY3B4 fG0XDERTVvu80+h+p5jgMNmGHlTxUE1br080+h+rEMqTxJIjBkcBlI7g04nAJ9Kr6bbtaadawuQW jiVCR0yABXD/AB3+Isfwy+G+pamHdL6dTZ2JQDIndW2tzxhcFj/u1/PFOjKtVVGnq27I/k3D4WWK xUcPSV3J2X3nw78afipdfFvxpNq0sYgsoVNvZQDqkIZiC3P3jnJP0HYVwVFFf0dhaFPC0Y0aSskj +vMJh6eFoRoUVaMVYKKKK6jrCiiigAooooAKKU9BSUAFFFFAFnTdQl0q+hu4UgeWFtyrcwRzxk/7 UcisrD2IIqO7unvbqa4kEayTO0jLDEsaAk5O1FAVR6AAAdAAKioqOSPNz212v5E8qvzW1CiiultP h7rF78Pr3xlDCJNGsr9NPnZNxdHZCwYgDAT7q7ifvOo71nVr06CTqytdpL1eyJnUhTtzu13b5sw9 PNmLhvtwnMHlSYFuQG8zY3l9eNu/bu77c45xUdrbTXtzFb28Uk9xM4jjiiUs7sTgKAOSSeMCoqkg nltZ45oZHhmjYOkkbFWVgcggjoQe9XKL1lHe3yKaerRGRg0Va1TVr3XL+a+1G8uNQvZiDLc3UrSy OQAAWZiSeABz6VHa3U1nL5kE0lu5Voy8TEHYylWXjsVJBHcEg9aE5uGqV+3S/r/wA1cdVqd1pnx+ +Iukaxbahb+MtaDW86zpam+l+zfKwYIYQ2zy+MbMbccYxX6FfsoftNXP7Qem6vb6lo8Wl6to6wGe W1lLQTiTfhlVvmTBQ8Et2+bnFflrX21/wTQilXUfH8x3LbGKyQk8KzZmI/EDP5+4r8Y8SMgy6WRV cZGilVhblaVt5JPbf5nwvE+XYVYCeIjTSnG1mtN2l8z7d8QeHtL8U6TNpus6da6rp82PMtL2FZon wQRlWBBwQCPcCvx7+NUEdp8Y/HUMKLHFHrt8qIgwqqLh8ADsAK/Qj9rz9pTWvgEvhaPQLHTr+fVX uGn+3b2CRx+XwoRlILGTqcgbehzx+f8A8crG7g+Kvia+uIkW31a/uNTs54ZFlhuLeaV3SSORSVdS DjIPUEHBBA+V8JsuxmBbxGI0p1ovkV+sXZ6Hk8IYatRm61TSM0+XXs9dDhK9V8VX9gn7O3gWxs9S 00Xr6pf3Go6dbsn2pzlVgklC5OFXzQN5Bw4wCBkefWHhbWNU0m81S00u7uNLsv8Aj5vkhYwQHGQH kxtUnjAJySQBkkV0fwx8BaT42OvTa34hfwxp+k2X2x742JuY2O9UWLiRSHYsNoGScN6V+75hLDzU K86mlKSbSXNq00lZXf2k9j9AxLpScKrlpCV3bXVpq1l63Of8OeMNe8HzTS6Dreo6JLMoWWTTruS3 aQA5AYoRkZ9a9B1L9qL4ia38NLvwTqWvT3+n3DqGu52JujFzuhaX7zoxIzuycDbnacV5PRXRiMpw GLnGtWoxlJNNNpXuttTWpgsNWkqlSmm1re2oV6x8cfi7qvxt0zw14g1nRbTT7y2+0aYbyxlfyrlY /KkCiJ3YoyCblv4t45+XA8nroI/GDr4Gk8MSaXp08P2038WoSRv9rgdlRGVHDgbGEa5VlPr1AInG YRVK9DExp80oN63tZNWfVLt/w4q9BTq06yjdxb+Sa1/Q+o/2YvgCfjH8FvE+heJtAk0CJ54L7RvE xtBHNK5R8YyFM8Sgk8sQRKQpBAK8f8PPgB4d+JnxI1X4WLrOqQal4bubmR9eMYeG6hSRI5YVti2I cOcq4d925iy8qFyvgV8Ivi38YvCv9k+G9el0vwOZ5o7pm1TZbqzBPMR4I2LsSuCFZdpyTkbiT9jf s3fshaf8ANe1HXJdek8Q6tcwG0ik+y/Zo4Yiysw2b3yxKLzngDGOTX4TxDnscgnjr49OrJ3hTgm+ WW129babxenXsfnmY4/+z5Yj/affbvGMU9Htdv03XzOt8K/srfCrwbf/AGzTvBentc4QCS933ewr yrKJmYK2RncoB969WACjAGPYUooNfzDjMxxmYS58XVlN/wB5t/mfmlWvVrvmqycn5u4UUUV5xgFF FFABRRRQAUUUUAFFFFACMdqE+gr8jfj18fPEHxl8Y6tPcajdDw6ZyLDSnbEMMaEiN9nQSkE5f73z MudvFfrkQCMetfHH7Sv7EcWuW2s+Jfh/Zz3nibUtRW6uNPuLtFi2NuM3k7wArM5VzufAAYLjhT+y eGeb5TlWYTeZRSlKyhJ2tHXXfb18j7HhnGYPB4lvFLV2Sb2Xf09T4EhtnuBJ5e1vLTzCCwBxxnAP JIz0GeAT0BpY7yeK2lt0mkSCYqZIlchXK52kjocZOM9Mmu2/sLXfgp4pA8YeCBNHIs1q1jrttIkN wvCyNDIpGWGflkjY4yCM8V9aeAfg5+z18ctOu9e0S41DRv7N0dU1DSI7uSNNOLRtmUtIpLsvzZYM 0ZK5ZSWOf6hzbijD5VCNerSlUoy2nBKSvfZ2ffZn6ljc4pYNKpODlB7SjZr8z4YaGN7R5DLBHLE6 x+SN5eUHcS4OCuFwAeQfmXAPzET6XDFqVxb2Fxe2mlQM7M17dRyFEyo+95aO5Hy4ACnBY9ASa6/x Vr/hDw74vki8GaRHq3h+1863+0+IN00mpI3G9gBH5IA+55YSQdS2TgcbrV7b6jqt3c2ljHptpLIW hs4nZ1hT+FAzEs2BgZJyepr6LD1qmKhdwlBSV03a68ra2fXW/n2PUp1JVo35XFNX1tdfLueq/s9/ Dj4e+NfHOoWHjzxlBoumWSCW3kSVbeG/w2CBNLt2DG07SoYhj90qa+jf+CiPjPTbXwP4N8J6Ybdk uZvt6i1cbY4IoykYAHG1vNOO37uviC50aSxn1O3u54LW6sGKNbuxZpXDhGVCoKkjJOSQCAcE1ReV 5ERWdmVBhQTkKM5wPTkk/jXy2J4beYZzQzapiZSjS2g1pdrdNW9evY8erlTxGPp42VVtQ2j023T/ ABPZf2cvBENr8aPhxe+Ldmk6NqF39rsnun2m6eM/ucKMkBptgBbarYYAnpX3H+2P8Zbb4X/DZtLi 1G+0nXfEEcsGnXtjFuMBTYZHZtylBhwu5csu/IU4xXzx+wb8JfCPjvXbvxXq17JqWtaC0XkaRcqQ LdxtMVyHDfOBsKqpXCkd8Ka94+Jv7RXwQ8Z6VeaDqHibSpdRjllt7Oe/0eW7is7tQUWYBo9uFLZD 5CkZw2Mmvxriuu8x4qo/uZ1lh7KajF2V22ns9Nrt6O2h8Pm9V4nN4vklNU7cySdlu10fz72Pz68f eP8AWvF2laXputeKr/xPLpU90scl5ukRFdkG6OZ2MkgbZnDqpXgDOePv2z/bp+Ftp4AttSN1dPqE MECzaHbWx+0RuwAKqXCRuFwclWxgD1Ar87fHfhzVvC3i7XNM195pdatbtkuJpNzCdiSfN3thmDjD qxHzBs/XHksHWeOGJ0upZBGVS3y5YuoO3p94E7SPXjmv1vNOEsq4hwuGVaTjGF5Llsk+azeySt9z Ps8Zk2DzKlS5m0o3atZLWz7H0KuuN4T/AGytC8T6UX1Kz17VLfUrJpo5LfzIL4Y28knKiZkyMjKE YHKj9OA4YfeGfTNfizp/hXVrjTE1rRIrrUEs4zcXk2nwyMdNZXbaZWA+QFVDh/u8kA5VgLs3xN8R Q+MV8V2GvarbeIZEQz6h9oxMzhQrDcuNyHaPlIxj5Tuxk/HcT8Bf6xuj7DEJSow5G7atrZNX066/ 5o8XNOHnmLg6VRXhHlem7W1+x+zRcKOSB9a+fP2lf2Tx+0HrukamPF02g/YLd7f7M9mLmJstu3qN 6FWPQnJyFXpg5479pD4a+Kf2gvBnhvxNoXjaz0jwQ+jC9vLXVJpbSF2KiVJpMAqw+798Dy9u4bs4 Hxd4j+PPj7xd4HtfBuq+ILi+0C2VQLV0Qs4QllLybd7BeOC2PlXjjNfnHB3B+PqTjj8qxsYVoNxm nG/InddVZvTbT1PmclyfE1WsRg66jOLtLT4fv0b8j9Bvgn8DYfgF4bvfD8ertrcs92buS7aDyASy IoUJubAAUdzkk/SvQ68S/ZA8baj41+DNk+qSXdzdafcSWP2u7OTMi4ZNrdSFVlTJ7qfSvba4s2hi qeOqwxk+eonZva772Pi8zjWjjKsa7vNN3fcKKKK8g8wKKKKACiiigAooooAKKKKACiiigAooooAK KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo ooA5Siiiv0U+aCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8W/aE/Z5i+LscGq6fdCx 8Q2cBiQyAtFcxjcyxtz8hDMcMAfvHIPG34V1nRr3w9q13pmo2z2l9aSGKaCTqjA8j0P1HB6iv1Tr 4q/a/wDhPZ+EdbtPE2mR30i61cTvfNK3mQwy/IVCnGV3ZkOCT935cAYr9G4VzicKqwNZ+6/h8nvb 0P2XgfiCftFlmJldP4PLrb/Ii+AP7Y+ufBbRbXw3daPZa34WjeVmtx+6uB5jZYh+QcEn5SvOcZHb 7NuZ9E8baRLJZpDf6DqMR2I7LKkkTDBBIyCCM8c/U9a/LvQNCv8AxRrlho+l2zXmpX86W1vAhALy OQqjJIA5PUkAd6/S/wCF3w2ufhl8M/D+j3EIhaG0SSR1JdHmc75Nrf7zMQDjgfQVwcWZflmX4qOJ oWhXqPVJ/F/etfe/W3crjrBYXCOniKGlVu7t+flr95+b/jzwdeeAPGGq+H74hrixmMfmDAEiEBkf AJxuUq2M5GcHmuz/AGZ/DT+JvjP4fT7Mbi3s5GvpjziMRqSjH/tp5YHuRX1R+0T+z+fjBa2N7pU9 tYa/ZZjElwuI7iIkZV2VSw28leCOWGPmyN74LfBHSPg/oxSDF5rNyo+16g68t/sJ/dQHt36nPGPb r8T0quVcj/jSXK1+F/1OzFcZ4atktr/vpLla7O1m/wBUekjiqer6LYeILCSx1OxttRspMF7e7iWW NsEEZVgQcEA/hVyivy5Np3R+HRnKElKLszxv46/C7QYvgx4ni0Tw7pFjNBCL4eTbJAFMXzM4KAfM I/MA9c4PBNfAdfpd8Y/FA8GfC/xLq3mGKSGzdIXCbsTP8kfHpvZc1+aNfrnBtSrOhVU9VfR+dtf0 P6A4Ar162Dquq21zaN69FcKKKK/Qz9TCiiigAooooAKKKKACiiigAooooAKUsSoGTgc4pKKGk9xW uFFSQLE8hEzvGm1iDGgYltp2jBI4LYBPYEnBxgx0r62C/QKKK6TRfAuv+JfD8uo6TaSapa2kzrcW 9ofMlthsVjNJGOViIGPMI25QgkcZxrV6eHipVZKK2u9CKlSFNXm7Iyre0tJdGvbiS7WK9ilhWG2Y HMqMH3kYBHykJ1I+8etUKkuYlguZYkmS5RHKrNEGCyAH7w3AHB6jIB9QKjqoxUk29U+40r3b1uFS S3Ms8cKSSvIkKlI1ZiQi7i2F9BuZjgdyT3p1paPezGKNolYI75llWNcKpY8sQM4BwOpOAASQDDT5 YN8qtdfhcLR2PujX9V8C+NP2MNA8MS/ELRPD+r2Wn2901ol5GzSSoC3kzQx5kOSckKpYMAcNgg/D AdgpUEhT1APBpK634WfC7XPjB4xtvDfh+OFr6ZWkMly+yKJFHzOxAJxyBwCeRxXyWV5XR4aoYipW r3pyk5vmslG+r8zxMFg4ZRRqSqVLxbctehyVdB4I8F3XjrWGsba903TI4ojPcX2r3iWttBHuVNzu 3+06AAAklunWvbvhT+zPb2H7Sdv8P/iHd6c8cNs9y1pa3T4v8xEokbrtZWBO8htpIQ4BBBPgniXw 3qfg/Xb7RdZspdO1OykMU9tMMMjD9CCMEEZBBBBIIrtpZxh8xqSwuCqrn5YyTtdNSvZpXV7W9Fod MMdSxU5UcPP3rJp9LO+3fYg0jR7vXtZstL0+L7TfXtwlrbxKwHmSOwVFBOAMkgZOK9A1H4NP8O/H +i+HviVfL4Yg1C1a4nuLQrePZBvNSJnVCQ3zopIUn5TwQenAaPrF5oGoR31hO1tdxBhHMhw0ZZSu 5T2YAkgjkHBHIqlXoYiji61TlhUUIWa0XvXfVN6K2+zudNWnXqStGfLG3bW/e+2noz7r0z4meFv2 GvAthouiX0HxN1LxBcvqb3FrcJaxJBsVEYFfN4JTA5OTvORgCvob4D/tIeGPj3pcz6UX07VrYD7T pN26ecowuZECk7o9zbQ+ByOQMivyOr6//wCCbmgWl78RPFOrzKWu7DTkigyRhRLJ85xjr+7AzkcE 8HPH4RxrwRl+GyavmmInKWJjq5/zNuyTjsl00Pz3PMhw+HwM8XOTlVTu5d7vtsvkfoTRRRX8mn5U FFFFABRRRQAUUUUAFFFFAHmHxA/aH8LfDf4i+GfBeqrevq2vMiwNbQh44t8nlxmQ7gQGfIG0N0Oc V6eDkVl6n4V0bWdU0/Ur/SrK91DT2ZrO6uLdJJbZmxkxsQShOBnGOgrU6V6OKqYSdKksPBqSXvNu 6bvuu2hvUdNxjyJp21835BRRRXnGB8a/t9/DLx544vfCcvhy01HXdFy8EumWEJcQXJPyzSAHkMpK 7iAE2nLDfWQ3gXUv2RfFt9d3FpaSfB6+0yO21hpvLubjVJ/JkUReW5DeY0jsAq4i8sksc7sfcJGT 0rmfiD8NvDfxU8PtoninS49V00yLMIndkKOvRldSGU8kZBHBI6Eg/qWW8b1KOFw+V4uCeHhdSstW m077pc0baP5n0uHzmcaNPCVo/uldO27u737XXRn4zJeCAXiQxRmK4Xyx5yK7Iu9WBUkfK3ygbhg4 LDoTVvwrp1nrHifSLDULpbCwuryGC4u2YKIYmcK7ktwMAk5PHFfoZ8Tf+CfPgXxNY2i+EJpPBl3C 7GWQma+S4UjhSskuVIIGCpHU5B4x4jpP/BODx9PqUEepeIPD9nYM2Jbi2eeeRF9VjMaBj7Fh9a/p HB+IvDuNwk5xr+ylZ6SXvLSyel09u5+m0uJctr0ZNTcH5rX8LpnMfFn9jzxz8OvDU3jGPULHxVpV o4YPZlpnjslVRFKyOCCgUAFQXCqByy5K+J+B/AevfErxJb6D4b059U1a4DukCOqDaqlmJZiFUADq SOcDqQK/YrwN4St/AngjRPDkEr3NvpVlFZrNKPmkEaBdxHqcZx7147+y94g+EfiHWvGjfDXw9Jo9 3b3Si/nlhIWdXZ9jRHewWIlGIQbMY+6K/OMu8T8dTy/FTlR9q6fwzStGzdlzLp8vTQ+YwvFWJhhq rlDncdpWstduZflb/gnEfDPwBrX7In7MXirxRJo6Xnjm4Vbm6tC3nJCofy41YxnDJGrvKxUjq43Y AI8S/Zw8G/By3+H2o+NfixNH5suoGGxtboyxqwj2lmhihbdOpaVQ3ylV24xjJP6AfEjx7pfww8E6 r4n1nzTp2nRiSRYFDSOSwVVUEgZZmAGSBk8kV8MRR6B+2v8AtPLKdQ1K38L2mlLP9gngEM6qmA0S sjOuDJIGZyVOCVHRWry+Gs1xWcYfG4rGKVOE5c1SrBu9o2tTW9t++25xZdi6uKpYirXvGMnzSnG9 9LWgvv77Hz58ZviRqXxe8e6l4tv7f7NFeSeTbRIG8uKONVVUUknkKVZsfxOTgZAr2bXvhR4j+GHw 68F6x4FutJtIvFmgGDVtTvb+2tprp58SGFftbKEQIVCmLDHYS3IU1xvwf/Zs8X/Gew8UaXpVxa6a +h30Syx6xHLEnmESrIFYIzI42JuTbz8u4gqoPP8Ax7sruw+KNxp2seMIfFsthDb2c2oWMZ224RFV oVQkLlDu4U4JJJKsWC/tM6lDG16OV4CtHlopuUbOSasuW60XW+r36N7fdTlTr1YYPDTVqa1jZtWs uW/577mv4n0m8+Dulz2GleINK17wh4itbOLWk0rVba5eW4RDI8IZFMkW2TeVYAqQU3lsla8u0W1s NW12ytb/AFBNE0uSYJLfSwtMbeIsSWKou6RgCcDAzwMgdNn4lWng2w1+K38D3up6lpKW0ZlvNURU eScjL7FCjagyBg5OQ3JGDWToegXHirUrTTdKgX7a8UjyNdXcUUR2K8juXkKLGqxrzub+EnPIA+nw FP2OCdetJqUleUmlF6LSTTbV0lu/K6PWw0fZ4f2k3Ztau1ntu0762PR/BXxf8Va3pGkfCzUPE0UP gK5ultrkXBihWO3aUMzee4DKEwXUE4z8pDD5adp37KnxT1HXdT0qw8Kz3bW0e9b35UtLqMsu1oLi TbG2QwYYYHG7pgiul+P3wU0P4feDPhXf2mt6ctvqlksN+9k7XQecENPdI6krIg3hcDBwiAZB+X9L PB3h2x8JeFNH0XTFddP0+0itbcSZL+WiBV3Z74HNfj/EXGcOHaFPGZPSjau5XTjZc0XZydrXbPis xzxZfCFfARVql9Grap2b0tqzxb9n3wHq/wANPhHoXh7XrSGx1a1ErXFvDIJAheV3ALAkFsMM4OM8 DgV6JV/Xv+QrP/wH/wBBFUK/Ip4ypmEni6vxT9522u9T8hxNaWIrTrT3k238woooqDnCiiigAooo oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig AooooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKKKKACiiigAooooAKKKKACiiigAooooAK KKKACsTxr4P07x94Xv8AQdWR3sbxAr+W21lIIZWU+oYAjORxyCMituirhOVOSnF2a1RrSqzoVI1a btJO6fmfAHw0s7X4MftL6XbeJLhre20bUnU3TM0Kt8jeRI21shGLRsQTjaxDZGQf08mW38S6B/as o/0iC3mHlK+UDbSMkHoehHfp1wK/OL9srwRcaP8AEgeIYrW6On6rBF5t24zCtwqlPLBA4Plxo2Dy csRwOPbv2J/ifquv/DLxB4fv4ri4XSZYIbXUnlyFhlDnyeRnjysdSCpUYAQbvb4vyyWb4LC53Rn+ 8jyxl83Z/iz9h4gpf2nltHOFO9opSXn3XzPW/F/iW38HeF9V1u6AaCwtpLhk3BS+1SQoJ4yTgD3I r4yu/wBs3xvc+IbO8SGwtdLgmLSabBF/x8Rk/deR9zBgONy7eeSD0r2P9ti6mt/hRp8cUjpHPq0U cqqcB1EUzAH1G5VP1Ar4gr7DhbJ8LisNKviIqTbsr9NP+CdPBeQYLF4GWKxUFNybWvRH1tYft2W8 l5Ct54NlgtSwEssGoiV1XuVQxqCfYsPrXsvww+PfhP4sTPa6RcXFvqSI0rWF7FslCAgbgQShHI6M TzyBX5yV9M/sgaFqlvoXj/xHpekNdanb2HkadcPkI8uHYxDopBcQ5JPGV9a2zzIMuweElXpJxkrJ a6Nt263OniHhXKcLgpVqEeSSslrpdu2t7npv7VnxE8NL8Ltd8ODW7OTXLh4UWwhk8yVWSaN2Dhc7 PlBPzYz2r4Zq3q+q3eu6re6lfSme9vJnuJ5doXfI7FmOAABkk8AYqpX1uSZZHK8L7JS5m3d+tlt5 aH2/D2TwyXB+whLmu7t+bS28tAooor3z6YKKKKACiiigAooooAKKKKACiiigAooooAKKKKACu8+C dx4sb4g2WmeDFhm1jV0fT2tbqKOSC4gcZljlVwR5ZVSW74BxzXDLPIsLQiRxE7K7RhjtZgCASPUB mwfc+tdz8BvDd94t+M3g3TNNLJdSanDLvV9pRI28yRwcg5VEY8HPFeRmzhHAV5VbWUW/eV1or3aO DHNRwtSUrWSb11W3U9P1H9hf4rTjWr230TTIFgumW20+HUkLTxl+GhZjjYAc/vWVsDoTxXl/xT8D t4B8U3Ph2fWtOnayhW4ltbGSWSG2umRBNbjO4eYGXBbdghBkg/IPoTXvhB4j/ZH+FPxD1W88XCHV 9dez07RpdHu5o3kxceZK8ikALJ5StggsVDSAN83PM/Bb4XfD59F1jxt8X/Ettc6kUe+g8OyazALm /jkt/NEsuJDKXkMgKrlG3KCdwYCvzXL+IMRGEsbiK6rUYvlgoQalN2jtdvRaq9++p8thc1qxUsRV qc9NO0eWNnJ2XdvRarfvqfNi2Vw1m92IJTaJIsTThDsVyCQpbpkhWOPY+lQ12fjnVfBuoaZZv4W0 TUtCuJ7mea8tb6++1xxp8ohSFwiEqMycuC3+0a57XvD914cvEtruWylkeMSBrC/gvEwSRgvC7qDw flJz0OMEV+o4bF+2inUXJKV7Rdr6b7N3+R9hSrc6XMuVu+jtfT5sza9G+AXxjufgZ8R7XxLBZrqF v5T2t3akhTLC+CQrEHawKqwP+zjoTXnNFaY3B0Mww88LiY80JqzXkGIoU8TSlRqq8Xoz9FPhX8cv g78Qb/Ufi54h0nT/AAf4z0gG3mknvWmlaIpsWREUL5jFWMeRGX425IxXhP7VH7SujfH3TrjStL0C G2g0K9NxZ67PP+8u4SfLZEjMYZN5ZH2ls4iyRkcfM9rZz30pitoZLiQI8hSJCxCIpd2wOyqrMT2A J7UxWk8l1BbyiwLAZ255xn35P61+d5fwPlmW5j9djVk5RtyRcnaEey1u1va+h83huH8LhcT7dTba +FN/Cu3fvvoWSlh/ZCuJrkap55BhMS+QYdow2/du37sjbtxgg5GMHo/iFeeDb5dBbwla6haSxafH DqgvolRZ7sZLzpiV8B842AKF2jGcnHLNZzpaR3TQSLbSO0STlDsZ1CllDdCQHQkdtw9RUNfoPsI1 KkayqP3W9E9Nej726dj6P2alNT5npfrp8/Q2fD3gzX/F7umhaLf63LGCXi022e4dBxyyoCVHPBIw ecdDXs3wO+KviT9kXWNTvNe+H+oyHW4FhhTUxLp7fu2ySheJtw+cZGOPl59eF+FfjfxP8F7+Pxz4 ZuNPkKf8S+6huAr7TIWYQyRna+GEG/fHxwBuB3LX0brX/BQ3xRF4F0e4t/Bdpb6zctIsmoXaymwl 2EBvJQEMx+YZ+f5Tj72ePz3iWtmGLk8CsLCvhp6Nc/JK6119LX03R8zm08VXk8OqMalKW/vcrutf 6sewfBv9ufwl8RdS1DT/ABLDB4Du4Dm3OpXwMU687syMiKjDA+VuueCcHH0lbXMV5bxzwSJNDKod JI2DK6kZBBHUEV8l+JP2UdD/AGgvhTZeMrfSbfwh8RNdtYtUmmgll+yyzugZleIkhFfO4lRvUnJL kMG95+A/gXWPhp8J/D/hrXtRi1TU9OhMTzwZ8sLvYoikgEqqlVBIBO3tX8scTYTIY0/rGVScJqXL Kk9bWWrjLW6v5n5RmNPA8qqYRuLvZwetvNPqjv6KKK/OjwgooooAKKKKACiiigAooooAKKKKACii igAooooA8y+Nn7QPhj4DW+jS+JFvZBqszQwpZRLIyqoBeRgWX5V3LnGT8wwDXb6D4a0XQTd3GkaV Z6Y+oSm5untbZYWuJDyXkwAWY5OS3PNLr3hbRvFUVtHrOlWWrRW0y3EKX1ukwilXOHUMDhhk4I5G a5X4h/HjwJ8KNV07TfFWvxaTeX6loInhlkyu4LuYopCLk9WwOD6HH0FKH1yhTwuX0puq789rtSS1 Vkuy3O2MfbQjToQblre2t+2i7G/8QvC3/Cc+BfEHh37QLQ6rYT2QnKb/ACjJGyBtuRnG7OMjOK/P C8tbb9nvw7r3w4k8XQ+GviPLdRXdz4i063nMEdqVRls/tMa/aFJwsp2xleQp6kj6B/bYvfiB4Mg0 Xx/4U8bf2Jo+moIX01JWU3E8jjawTBjnBU/dcYURkjO44+c/jp8V/DnjHW9C1a58DaZ4o1OTQreb WNeWS8tkuZigTdGI3QBY5P3ZZ1JJGz5dor9r4GyvERwsFKfPh6rbajZOM420lz+61Z7dX6H2eRYS o6au+alPVpWupRtvzaddv8h3xg/ah8Z6m9voXhr4jtdaDb6VapPqFhC9lPc3KIPNcu0aTBmkHRDt KkZ/jx85qwmuA07vtd8ySAbmwTycEjJ/EfWmpIUVwApDjacqCQMg8Z6HjqPcdCav6NqsWjarDd/Y LXUokRle01BS8UgZCrA7SrDqSCpDKQCCCM1/SeXZXh8ow7hhKavbdJJyfm0kr/gfqOFwdLA0uShH p2Sb9bW1K9rbQTQXjy3IgaGIPCjRs3nvvUbARwp2lmyePkI6kUW1ybaC52XM8EkqCMpFwsqEglWO RxwDjByQOmKnl1K2db7ZpVrGbk5jIeY/ZPn3Yiy/Ixhf3m845znmr/hvwdP4m0vX7+K+sbOHRbMX sy3cpV5VLrGFjUKSzFnUc4A3DJGRXoVK0adNzr3Sut7dbJLS/X8fKx1Smoxcqmiuvxt+p2/gi/8A Avh3wPrdzJ4h1FvE1/BHaW1pPo6GGwnJDm6D+cxIUK0ayqokTzCwQ5xX6dfBTw54i8J/DHQ9L8Va 2fEOuwRt9ovy7Pvy7Mo3OAzbVKruYZOMmvxvr9Rf2L/Btz8PP2eLG8u7l7uTVPM1hYDISkMbqNiL 6ZVQx4+87dcV/PviplUaWAp1fbXlKezSu3a2jSVkluuvqfm3F2GjRoRqud7y2aV9ujVrJW26nquv f8hWf/gP/oIqhVnUvM+2yea6yS8byn3Q2BkD2B455455qtX5Fho8tGEeyR+Qt3YUUUV0iCiiigAo oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii igAooooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKKKKACiiigAooooAKKKKACiiigAoooo AKKKKACiiigDO1zw5pXiezW11jTLPVbZXEghvYFmQMAQGCsCM4JGfc1c0mw0/wAPaGmkaPpOnaNY CUzvDp1okCyyEBd7BAAW2gDPUgDOcCpaKU4qaSlsnf5m6r1VT9kpPl7X0PBP2yfGFtonwvXQ3QSX mtTosQP8CROkjv8AmEX/AIHXw1X2H+3Nrgg8M+GNI8oMbq7lu/OzyvlIF2/j52f+A18m6JpkGoah aLf3n9laZJOsU+ovA8qQjqTtUZYgZIUdfYc1+18KxjQyv2jW7b73tpovlax/RnBVNYfJY1Gmrtt9 b9NvkfTf7G3w70jxF4a8R6lrNlYaxby3cVvHaXtsswieNCxf5wRkibAx6H1r7Gl0zTfCuixeHrK3 t1jtmDp9jQRxwHABiVQMY47Y5xxxivOPg74K0PwJ4B06y8Pzi9sp0F0b4YzdO6g+b+IwAOwAHau1 JwK/JM7rSzLHyrOT5L3S220X/DfefiufZpPH4+tOLfK3on0tpsfOn7YOmeGPD3w5kuLbwzottrOq XkUAvbeziiuAQTLJLuC7mZtmGOefM59K+Kq92/ar+LNr8QPFH9iRaZLav4cvLm1F21wCs+SqyZj2 cYaMYO48Z4548Jr9m4Yws8Ll0VUveTv306fgfvnCmFr4XK4fWL80tdXffb8Aooor6s+wCiiigAoo ooAKKKKACiiigAooooAK9j/Zwufg9FqmrQ/Fq1u5oJY0+wTxeeIYSN2/f5DByWygHykcHJFeOUV5 2Y4L+0MNLDe0lDm+1F2kvRnJisP9apOlzON+sXZ/JnXfFbTfC+m+O9UHgzVotX8NTStNZPHDPEYI 2Y4hcTAMWQcbskEYOckgcjRRXRhqLw9GNJzcuVWu935u1tTalTdKmoOTdur3fqFei/s9+NNZ8C/G LwvfaGI3vbi9isjDKoKzRyuqMmcErkHG4cj9K86r379krw9e+H/iPpnjrVvDN3e+EdLtL29m1cRs be18qGQl9wBVpAVIEZ+bLKwHANeLxFWo0cqr+2SknFpRf2m1olfqzzc2qQp4Kpzq900l3dtix+3J 8SrP4g/GqW206Wd7XQbf+zJBJwhuFkcylBn1KoTxkx+gBr55rtfjT4p0Lxx8UvEfiDw3Z3dhpGp3 P2tIL7HmiR1DTFgGYDMpkYAEgAjp0HFU+H8FDAZVh8PGHLaK0e6bV3f5l5ZQjh8HSpqNrJaPe/UK KKK+iseoFdZ4F+Ffif4l22ryeGdLk1eTSoRcXNtAw80Rnd8yKSC/K42rliWGAeccnX0l+xH8Y/C3 wg8WeJp/Fmotpdle2CJHMLd5gXWQfLhAzZwxPAxwckYGfn8+xmLwGX1MRgaftKkbWjZu+qvotdjy 8zr18NhZVcNHmmrWVr31128jxz4W/E/V/hN47sfFOlGOa9t2bzI7gblnRuHRu4yO45HWvSfjd+2B 4u+MIvdOiig0TwtdwpE+imKG6yynJcyvEHDZwQV24wMc8nyb4g3Ok3vj3xLcaCEXQ5dTuZLBYozG otzKxiAUgFRs24BAx6ViTQSW7hZY3iYqrhXUglWAZTz2IIIPcEVH9lYDH16WZYigvbKKtfdddu6f XdCWCwuIqwxdSn79la+667d1+B9ofATUrG1/Yo8eDWbay8VW9tJPPFocRWWW3Rgqo8qp88Y81Xk3 HBCpuBAAx89fs8+D/E+ufFHwrqWhaBdarbWWr2pnuhZPNbW48xSTKwBVMLlskgjGRyBXIeAfHWq/ DXxhpniTRZVi1HT5fMjEgJRxghkcAglWUlSAQcHgivq/4X/8FBvFeq+NtMsfE2h6MdGuZPLnm02G WKW3U9ZSXkcbEGWbgcAnIxXwmZZfm+Txx0svpKtGveTbly8ulmlHr3vdXPnMVhcdgY4j6tBTVS7b va1+luvrpc3dL+E3ws+L3xp8VfDuL4f6r4T/ALCuW1CbVbG8dFvDlVMbxOpEcbb90YTqoJTaCc/R P7QnjDxj8Ovh2upeAvDK+JNWS5iha08h5/KhIOXEUZDvghVwp43ZPCmvnr4Qf8FBV13xxfWvju30 zw/4clR2sru1hneWNt42JLgvuypOWCqAV9Dx9qxSx3MSSRsskbqGV1OQwPIIPpX8+cT1c0yrH4b+ 1KL9nBJqMpSlGTsub3vPquh+d5n9bwuIprFwdlaybbT2vr59V0OD+BPizxV43+GWl6z4z0VfD+vX DSiWxWGSEqqyMqkxyfMhIAOCTkYOecDv880AYFFfl2LrRxGInWhBQUm2ktlfoj5ypJTm5JWTe3YK KKK5DMKM4orzv47/ABn074FeAbjxHqFtJfSGRba0s422medgxVdxBCjCsScHAU4BOAe3BYOvmGIh hcPHmnN2S8zajSnXqRpU1eT0R6IBg0V8Kfs6/t16nqXjW50n4iXDXFrq91Gmm3FtbRolizuR5b42 kx8qAx3MMckg5H3WDkV7Wf8ADmP4bxKw2Ojq1dNbP0fl1O3MMur5bV9jXWvdbP0CiiivmDzAoooo AKKKKAEZgvUgfWlrxn9pD9nQftBWfh+L/hJbnw82k3DzDyYfOSUMFGSu5cONvytnjc3Bzx7FBCLe GOIFmCKFDOxZiAO5PJPua9KvQw1PDUqtKtzVJX5o2a5bba9b/gdE4U404SjO8ne6tt2163JKKKK8 05wrgPiJ8BvAfxW1fT9T8VeHodVv7FdkEzSyRnZu3bG2MN65yQrZA3Nx8xz3+KK68Ni8Rg6ntcNN wl3Ts9fQ1p1Z0Zc1OTT7rQ82/aE+Eo+Mvwq1bw1B9ki1GQJNY3F5GWSCZGBDZHK5G5NwzgOeGGVP zt4Y+P8A4B/Zw8BRfCXxfDP4s1HSoZYtSGlWMUtk7yyszW/7xk3lVf5iy4POTnKj7B8RDUjoOo/2 P5B1b7PJ9k+0kiLztp2byATt3YzgE4zX5Y/GT4EfFTQdO1Tx7470iK1e5vUS6lgMBaR5Af3zLb5j RdygFjtJeQdSxNfs3AVHD5xQnluZ4hRpKSlCPNabm9NOtv1PsMhpUsdB4XFVeWCd4q9m5PTTyPsD Vv2PfhV8cIbLxrpZ1PQ7LVrCCWC10kxW0CpsBVhE0bbG24BAwvGcZJJ/OvxX4Z1Hwb4j1DRNVtJr HULKZopYLhQHUjoeCQQRgggkEEEEgg1+q/7K/jWXx/8AATwxqU1hBprRwNZCC1UrCFhYxKUB6DCD gZwcjtX5l/Ejwa9l8XPEXhnQ21LxFdQarcWsbvCXurl1chvkXJZtwb5h97GcLnFfpfh5muMjmGOy 7H124UdEpO9km18W3+Z9NwzjK0a9fDYipdQ0SetrNrf+rnLaVpw1XUxbo8cKkPIBPIBkKpfYDxl2 C7VHG5iAMZrp/Dep674H8I6nrtjNaLaeIY7nw9MJSGnMeIZJWVTg4IZRuGRnIODtzyjaTfJqp0xr O4XUhN9mNmYm84S7tvl7MZ3buNuM54r2/wDZd/Zq1z41a9a6u628HhPStQga9N8Hxdru3SRRAKVY 7VAbJGN69elfrGd4/CYLCyxOLqR9krNp633tbXq7W9D7HMMTQw1F1q0lyKzt37fjY4f4NeC5fix4 z0DwRElpbxXuoCa6vCY47kwKo3qjuCcqgkYIo+YtlgQo2/rZ4e8LWfhTwlp3h7TYymn2FrHZQrI2 4iNVCZJIO44GeRyevWuS8OfAj4eaL4ytvFmjeEtP0vVbSIw213ZIYU2sGDMsS4TJDEb9u4gnnGM+ horLLIzSZU4CoBgKPr3JP9OOpP8AIXG/FseJMTSWHi4U4K/K+sm9dvK3bsfjGeZws2qRdNNRS28+ rON1D/j/ALn/AK6t/M1BU+oHN/c/9dW/magqKMZKlG66I+PaaCiiitCQooooAKKKKACiiigAoooo AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA ooooAKKKKACiiigDlKKKK/RT5oKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKw /HHiy08DeEtV169I8iwt2m2FgvmMB8qAnuzEKPcitqSRYY2d2VEUElmOABXw9+1F8eIfiNfx+HNE Zv7E064dprgMrLeTKSqupGcxgbiDn5t2SOBXtZTltTM8TGlFe79p9l/Wx9Tw7ktXOMZGCXuJ3k/L /gniOva5e+JtZvdV1Kdrm+vJWmmlbjcxOTwOAPQDgDgVQoor+g4QjTioQVkj+qIQjTioQVkj6q/Z D+NjxXEfgbWZy8b7m025nl+4QB/o4B7Hkrz7Y5FfW1fmv8FdU8M6L8SdGv8AxY1xFpVtMswngyRD KrBkd1CszoCOVXnoecFT+i3h/wASaV4r05b/AEfUbbU7NjgTWsokUHAOCR0IyMg8ivxbinBRw+N9 pSg0pK7dtL+T/Nf5n888cZZHCY5V6MGozV27aXPmv9tD4b6Nb6La+MbeE22sS3cdpcMjKqToUchm U8lxsABHOM5BABX5Fr7b/bdXPws0o8cazEeT/wBMZ6+JK+64TqzqZd77vZtLyWmh+m8FVqlbKIOp K9m0vTsFFFBOTX2R96FFFFABRRT4xGUk3sysFygVchjkcHkYGMnPPQDHOQN2AZRRTzMzQrHhdqsW BCjdkgDk4yRwODwOcdTRqAyiiigAooooAKKKKACrmjw2dxqltDqE72tlI4SW4QZMIPHmbQCWC53F RyQCAQTkU6KmceaLje1xSV1YOlfbPgm01WH/AIJy+I3tEkjknmmkja2DM724uo1mJCrnG1ZQeo2g kkDOPiavRtF/aE8f+HvBt94Y0/xJfWum3MkciGGd45LUISdkDKR5SMSMquB8oxgE5+O4myrFZrSw 8cLa9OpGb5uqj0PCzbBVsZGl7G3uTUtetjzmpFmZYHiATazKxJQFsgEDDYyB8xyAcHjPQY2fGfjj XPiFrX9reINRm1O/8pIfOmOcIgwAB0HcnHUsx6k1hV9bRc504uqkpdUndX9bL8j2oc0opzWv3/5C q205GPTkZr034bfB688d+Ede8UaL4gg0658LxNe38VyHheIBWa3aGUZVmZo2HzFCpAI3ZridK8I6 vrega3rVlZmfTNFWF7+48xVEIlk8uPgkFsscfKD74FN0jXdU03S9YsbO9eHT7+FFvrTztiXCq6lM rkbmV8MMZI+b+HdXnY5VMTTdPCVVGcZJPZ9rpru09PkcuI560HGhNKSav17XT+T0+Q3SPEt/octw 1s8ey5gNvPBLErwypjA3xkbWIOGBIOGUN1Gay6KK9KFKEG5Javfzsdiik20iciGGSKRStwoILRSK V5ABIOD0zkZBzgdqdqWo3GrX013dSGWeU5ZsAD0AAHAAGAAOAAAOBVaiqUFfm6jSLGnwQXN/bQ3N yLO2klVJbkoXESEgF9o5OBzgcnFfS3j39kiz+HfwavviZoXxCh8SaelvH5KQaZ5KzxzusDfP5zbc CVsgrnIIODXzpO+o3vh+2ZrNf7LsZTALyKyRP3kmX2STKoLsQrFQ7EgKduADXrHwR+PcHgDwB448 D6zbzz6H4ksp0juICHaynaB03iIkB9x8sfeXGwc+nx2exzWUadfL6nwSXPBWfNG6vq1dO2tl+J4G YxxklGphZfC1zRVndX11aunY8Ur9s/Csq3HhfSJEcSI9nCyuHDhgUHO4cH61+Jlfsd8DNIuPD/wZ 8FWF2yNcW2j2qSeUQyg+UvAIJBx0yOuM1+Q+MtJTw2DnfW8lb1S/yPj+NYpxoS66/oJ8ZfjHoXwP 8I/8JDr6XU1s06W0cFkivLLI2ThQzKOFVmOSOFPfium8K+JLLxj4a0vXdOZ3sNSto7u3aRCjGN1D LkHocEV+bP7W/wC1HN8a9UHh/Ro2tfCenXBZWfaXvpVyomPGVUAttXPIOTzgL1PwY/byl+Gvw2sP CupeHJtUn0y0litdRF4uHYEmGNo9g2ooKqW3McLnBzgfD1fDLMZZJQxNCnfESleSutItafP/ADPE nwvi/qVOrCF6jequtF0P0S60da/Prwn/AMFGvGf9tWg1vwrpWpafK3lPDpazQzs5IwULO4JAI+XH J7jNfoFE5kiVipQsAdrdR7V+c5/wvmPDU4Rx8Uue9rNPbc+cx+WYnLZRjiY2vtrcfXM/EL4b+G/i n4dbRPFGlx6tppkWYROzIUdejK6kMp5IyCOCR0JB6bNFfNYevVwtWNajJxlHVNOzXzPNhOVOSnB2 a6o/Pz4f/ss6vqP7WWpvNoeoeF/CehamdUs7g23+j3CRTI0MUUgAXDAg8ZZQCD8wJr9AwMCkAHal FfS8Q8SYriKpSnidPZxUUvTd97s9HH5jWzGcZ1vspJf15hRRRXyR5YUUV5l8a/2gvC/wGg0aXxIt 7J/as7QwpYxLIyqoBeRgWX5V3LnGT8wwDXbgsFiMwrLDYWDnN7Jbm1GjUxE1TpRbk+iPTRRjmvI/ Df7Wnwj8VTTRWfjjT4GiUMx1IPYqQePladUDH2BJrnNf/bf+F3h7xo/h+bVJruJIw7axYRrc2IYr uCB42LE9BkKQCcEjBx7VPhjOqtR0Y4SfMldrladjrjl2MnNwVKV1razPfzRXzSn/AAUD+Fj+GpNS 36wt8jbf7Hay/wBJYbgNwbd5WOc/6zOAeM8VkS/8FHPhzG4C6L4mkG0Hctrb8EgEjmccjofpxkc1 6EOCeIal7YOenlY6Fk2YS2oS+4+rcUYxXyrf/wDBRf4c2s7RwaV4huxtUiVLaFUJKg4+aUNwTg8d QcZGCfU/2cfjzF+0F4MvNdTRZNDktL1rOS3acTqSERwVfaueHHBAwfWuTHcK5zlmFeMxmHcKaaV3 brtpuZV8rxmFp+2rU3GO2p6vRRRXyZ5YYqrqel2etWFxY39rDe2VwhimtriMSRyoRgqynIII4INP ub62s9v2i4ig3Z2+a4XOPTNTDgVqlUpctRXXZ/5ApWej1Kei6Jp3hzTINN0qxttN0+AERWlpEsUU YJJIVVAA5JPHrVez8K6Lp+t3usWuk2Vvq16qrdX8VuizzhQAodwNzAAADJ4wK1etB61oq9a8pRk7 y31evqVztX13OHvPgn4Hv/iFF43uPDlpN4ojVVW/YHqvCuUzsLgYAcjcAAAcAV194sSRRl9qqsqY 3AkFiwA4HueM9Dg9qs0yEYiB2upb5irtkgnkjOT69jj04repjcTX5fb1JS5bJJu9l2Vx1Kk6qSnJ uysr9h9Z/iHSP7f0HUNM+1T2P2y3kt/tVqwWWHcpXehIIDDOQcHkVoUVyU6kqdRVI7p3FFuLTXQ+ P/hZ+x+vwovfEyv4yvL9dU06bSz9ltfsvlbzjzR+8fLrj5cjjJ65rufgN8Gx8EfCFzon9sya2Z7t rrz3hMKplVXaqb2A+7knPOfavUdQ/wCP+5/66t/M1BX7RWzrHY+k1iJ357N6JXstNkb4nM8VilKN aV1K19F022QUUUV5R5IUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBylFFFfop80FFFFABRRRQA UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfOf7bGk61e+BdLvLORBollcl9QiMgVizbVhYA/e AJcEDn5gcYBI+K6/SP43fDRfir8Pr7RkkEN8hFzZyMxCiZQdobHVSCynOcbs4JAr84bq1msbqW3u IpILiFzHJFKpV0YHBUg8gg8YNfsXB+JhPCSoXXNF/Oz/AD6n9EcBYylVy54dNc0G9OtnqvUiooor 74/TQr6A/ZO+MGj/AA61HWNM8Q6g9jp+oCKSCVlLRJKCVO7AJBYMvzcABOe1fP8ARXnZhgqeYYaW Hq7PtvpqeVmmXUs0wk8LW2fbc/Rz9pjwBe+KvgX4knt7FLn7DBHqUc8i4CLGQ7uhIyT5XmDI7E84 NfnHX6y/Ar4g6H45+GOka1bXCzwsi2klkMyPbzkfMhUMQCAW/gUkdM55/K/xZaaZY+KNXt9Fu2v9 Hiu5Usrp1IaaAORG5GFwSuCeB9K/MuBMfXlWxmW14Nezlo7NeTX4XPhOB3PD06+BmmnB39L6W/Ay qKKK/Xrpn6he4UUUUAFFFFAHVfD7wTbePNRutPl8R6V4buI4fOhn1uYQWsmGAZDLyVbByBtOcHpj nmJ4Xt5pIpBtkjYqwznBBwaZRXNCnVjWnOU7xdrK23fXrcyjGSnKTldO1l2/4ceYZFiWUowiZiqu RwSACQD6jI/MUyirUWm3E+nXF8iA2tvJHFI5dQQzhioAJychG6A4xzW7koK8maXtuV4whkUOzKhI 3MoyQO5AyM/mKbRRVDHSJ5cjKGD7SRuXofcU2iigAooooAKKKKAOuh8U6TP8K5fDd1Z3Catb6q2p Wd9EwaN1kjjjkhkTI28Rq4f5jkbcKGLHkaKBXNQw8MPzcl7Sbe/V72/Mxp0o0rqPV3+8+wv+Cfvh XRvHGnfE/QdcszqOnX1rZJPaycRMoaYgkgghwcFWHKkZBBxXyNqVpPp2o3Vrc20llcwSvFLbSqyt EwJBQhuQQcjB545r6d/Yd+MXgr4OT+Lrrxdry6UdQW2itoRaXE7OEMhZiY42AHzqBk5PPTHPrXxU +IP7KvxbkmvNb1ONNYmiZV1Sx069guAxUKHYpEBIyhV2+YGAx0wefxx5vjsk4mxvNhKtShV5LSjF tJqKTaWz87dj4f67iMvzXEOVGc6c+XVJuzSW3T19D8/6K1vFek2GieIb2y0vV4te02N/9H1GGJ4l njIBVijgMjYOCp6EEZIGT2fw18FfDjxFpn2rxd8SJvCV2lxsbT10Ka7MsQwdyyxsQM5I5XII6Edf 1mvmFLD4dYmUZNPooyb18km181ofZ1cVClSVZptPsm39yVzz7T7qOyvYZ5rSG/iQ5a2uC4jkHoxR lbH0YVFJGqJGRIrl1yVXOUOSMHI68A8ZGCOc5A+ofFtp+zB4qsZ9F0TVdW8HahZLD5XieWyubqG+ CqFYGANnJGSTsi+YZBIyG8b+L3g/wr4X8VaZovgjxA3jGL7DF9pv4YiBNdu7krGozxsMQwC2CSCc ggeRl+e0sdVUJUalOT6Ti0rLW9/h6979zgwuZQxE1F05wk/5otKy632/Uw9G8Wx6T4I8SaC1lHcy avNaOs8qqfs4haRiycZDnftyD91nBznjN0nTYbuDVXnkaJ7S186NdhIZ/MjTa3ORw5OeeQAeCcQa rpF9oWoTWGpWVxp99CQJLa7iaKVCQCNysARwQefWoWuZWaZt5zN/rMcbuQ3P4gH8K92FKFpVKD+N qTa1vsvxSPSUFrKn9ppvz2/REVfpd+wJ8RbHxT8GE8OK8n9qeHpninSaXeXikdpI3X0XlkA7eX71 8R/s7/Cq1+L3i7V9JuYLy6a00a5v4LaxnSF5pk2KibnUqAWcDnAyRk4yD6j/AME+viFD4V+L114e uIGceI7byYpUUsY5Yg0gBx0UrvyexC54yR+VeImHo5zlGKw9NN1cPyz++/6XPkOJYU8bg6tOGs6V pff/AMC5hftw6J4b8O/HnUv7BkZdQuYkn1Oy+yxrBBM6A5Qj7zOpDtleGbduJYhfn1p2a3SEhNiM zghFDZIAOWxkj5RgE4HOMZOfsD9uH4sRw/EfXfCN/wCBtGuYxp0Mdprt3bMt+CwEgkimBH7tWLLs HBZXySMrXyBc3L3dxJM4QO5yRHGsaj6KoAA9gK+m4Lq4itkmGeIg1aKs207q2j0+7XVeZ6+RTqTy +l7VWslZ3Turbm18PtatvDfj3w1q15/x6WGp211NwT8iSqzdOegPSv2mhkEsSOudrAEZGP0r8UvB 2sW/h7xfoeq3kBurSxv4LqaBesiJIrMo6dQCPxr9H/2cf2xovj54zu/Dj+FW0GeGya8SZb8XCuFd FZSDGhB+cEYz36V+V+LmS4zHRpY7D024Uovmd1ZXatpv9x8jxhgq9ZwxFOF4xTu7rvppufSNFFFf ykflQUUUUAFFFFABivz0/wCCkd9by/EfwvaLPdNdQ6Y8jwuR5CI0rBWQYzvJRw3bCx471+hdfn// AMFJdJ0+Lxp4R1KK9Z9UnsZbeayLZCRJJujkAxwWaSQEk87BgcGv1zwtcVxJS5u0rfcfW8LNf2pT v2f5HzFop8P3uu2d7r2i6hY+HZt0Ev8AYkxXEiKpZo2mWTOAyMyEn7+QVBC1h2mmT69rAstGsLu6 muJCttZxAzzsOSF+VRvbHUhRnGcCoLe+mgV1EsgjeJomQNwyk52kem7DY9RnrzVnQfEOpeF9Ys9V 0m+n0/UbR98FzbuVeM85wfQgkEdCCQeDX9nfV6lJTqUneVrK7dtL2vv82ftns5QUpQ+K2l27eX/B HXmnXHhq9v8AT9Z0m4tdRSMR/Z7xXgktnJVgzIQD93IAOPvA9qzMZHTpXZ+M/GkXjEaprdxo72uv azfNLdXkMzm0KgKzJHG+5gzOVdiXIGFChQcVm+JdEQyT6notnM3hweWkdzgvsyCoE5BIjlYo7FCQ M5KZTaTOGxM3GP1mPLKW+ul1ZWWr3ey8mKjVk4r2qs3919P6Rk3q2S2tgbVpjO0JN2JCNol8xwAn HTy/L655LfQfoh/wTmt7WL4N6xJDdGe5l1mQzw+WVEJEUQVcn72QA2R/ex2r4X0XwjpvifwPqt7Y X1x/wkmjxtfXtpdRqlu9kGjjBhk3HMis4JVwNwYBeVw/3x/wT7l0RPgRO+npJDdpqU/9pyTMSpmC oQQSAAvl+XwM45ycmvyHxOxMKvD86VO7aqJPTrv93a3kfFcV1oyy9pX0nZ/n93Y+naxdd8VWuiZj /wBfdDH7lTjAPcnHHHbryPrXP+IPG73H7nTWeKPkNMRhm6j5fQd89fpjnk5JGldndi7sSSzHJJ9T X8+ZRwrKratjdF/L1+Z+DYjGqPu0/vLeq6xdazOJLmTdtztQDCoCc4A/r14Fb/hbxgLFBaX7k26j 93Lgkp/snHJHp6fTpydFfoGJyrC4rD/VZQtFbW6eh5UK84T509T0/VvEdja6fO0V9CZijCIRsHO/ BxwM9/XivM555LmUySyPLI3V3Ykn8TTKK5cqyWhlcZKD5m+rLr4iVdq51Gk+OG03TobV7U3BiBHm NNjIycDGD0HH4V0/hvXjrsd0xQII5SEAwDsPTIyTnr7eneuR8O+GW1jT7u4BiLD91EshYANwSxx6 A8deT7V2XhzQ10Kx8ssJJ5DukcDv6Dvge/qema+Gz+GVUo1VRX72+u/qz08K68mnL4TVooor88W5 6pxOof8AH/c/9dW/magqfUP+P+5/66t/M1BX6jQ/hR9Ecb3CiiithBRRRQAUUUUAFFFFABRRRQAU UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR RQAUUUUAFFFFAHKUUUV+inzQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8 Xvgxonxg0VbbUN1tqNujiy1CPcTbsxUklNwDg7ACD2zgg816BRW1GtUw9RVaUrSWzR14XF18FVjX w8nGS2aPz4+Lf7Nfiv4UwXWpvGuseGYpVjGr2mAE3k7BLFktGTgDPKZIAck15NX6yQXMtqxaGV4m I2koxUkenFeLeMv2TvAvjXxLPrEy3+kNOB5trozw28JYDG4IYmCk8ZxgHGcZJJ/Q8s4wqQTp5hG9 tpLd+q2+afyP2fKOP6co+zzKNmvtLr6o+BKK9h+Kv7NPib4fL4l1qC1E3hHTblRBeS3UTTPBJJsj ZkGDkFkVvlA3Nxkcjx6v0nB46hj6ftcPK66+Ttez7PU/VsJjaGOpKth5qUfL8vU+mf2DviND4S+J Wo6DcvEkevWqx273BzGtxG29MjIwCu/nsQOvSuU1Hwh8Jvhb8T9W0vxJqniDxVZafJJD9jsLGFIy /YPMLpSxTJB2hQWHXAIPj2h3v9m61YXYuJrT7PcRy/aLZd0sW1gdyDcuWGMgbhyOo617b+0n8MtL tbOw+JHh67aTR/Ekwlktpgd6TSq0u9c9mw5Kn7p6ZBwvyGLwEKGbOoqsqaxCSfL1lHbWztdX2PmM TQp4fNNajiq6tp/NHbXpoeaaH8Udc8L6N4m0bSLhrLRtdieGaw3GSONWdSSu7JDbV2bupB5OQMch RXf/AAj+Ml/8HNTn1DTdB8P6veuyPDca1YmeS1Zd3zQuGVkJ3c4PYV9RXpywdKdXB0lOo7aXtzPb V+h9PUi8PTlPDwvJ9L2u9tWcBRX1NH/wUV+IwdfM0Twu8efmVbS4BI74PnnH5V85+NvEn/CY+M9e 1/7OLT+1dQuL77OH3+V5sjPs3YGcbsZwM46CuLLMZmmIqSjjsKqSto1NSu+1rI5sHiMZVm1iaKgu 6lf9EYtFFFfRHrBRRRQAUUV9UfsD+LdI8EeI/HWta7dpY6ZZ6Ms01w6lgiiVewUknkAAcnoAe3hZ 5mU8pwFTGU6XtJRtaK6ttLs+/Y83McXLBYaVeEOZq2ne7t5nyvRX0VZfED4f/Er9o3xVrnxS1CXV fBzrcppTH7UoCCZfsyIsWHQeWWJBwMli3zGvE/FZ0rVvEutXfhXSr2w8PJI00FtcyefJbQFlUF3A 4G5lAznG5VLMfmMYDNKmKmqVehKm+WMm38N5fZTdm2uugsNjJVpclSm4uybb2u+iejb+Rg1r674T 13wvBZnWdF1DSI7sGS2e+s3g89cLkoWUbhyvTIGfevob9gDwDaeKvjFJrlxeTQy+HYDdRW6QkpOZ FeI7pM4XbuyF6t9FOe8/4KCfFTxPo/ibT/Cml60tn4futP8AMu7eymQTSyF3Vll2neIym3AOFbc3 3tvHzWJ4oq/6xQyLCUlKyvKTbVtL2Wj1tr/keXVzef8AaccuowT0u22156aPofE4K7CCDuyMHPAH OePypKluPKDIISzKEXLMu0lsZbjJ6EkA8ZABwCSK+kPhR8JPCXw4+Gg+KPxZsJ9T0XUytno2j2Dh 5LgypKrvIMqFIUFkPmKRtJ+9tr6rM82o5VRjUqJylJpRit5N9Ej1sbjqeCgpSTbbskt2+yPmqur8 G/DHxB470fxJqmk2Tz2Wg2LX13MQQgUMuVDHjftLuFzkiNsZOBXKV9dWl3f2H/BPBpLfWBpQk1d4 jEh+a9hafa8AIIK5yXPXKxkEYbjhz7NK2XU8OqCXNVqRhr0vq9FvtY58yxlTCxpKnvOSjr0ufIte 0eGf2etd+J3wfi8V+FZrLU7jSDPFf6LE3+mYD7ldQM7iVZvkODiP5dxbFeL103gX4i+KPhtqJ1Hw 1rN7pMhZfOFvKRFNjdtWRPuuOWwGBxk4r0M0o42rRi8BNRqRaeq0a6p9VfudWMp4icE8NJKSd9dn 5M55mh+yoojkFyHYvIXBQphdoC7cgghsnJzkcDBJtaOdPt9Rgk1i2u7jTiGZ4rOZYZZOCF2uyOAN wGTtPAPGa6Dxn4w8Za5pml23iTXtd1G0lhF3BBqs8zIcvIqyLvJD8bsP7lc4FchXTh+evQarWTd1 7sm/udk1+nQ2p81Snael77Nv8dD35Pjv8Lv+EM0fw1efBldYttMTEV/d680V6xZndg0sUCsV3yOQ uQvQ7RwB5547+FWreHbeLXdP0nU5/CF5aQX9tqjw+ZFHHKq/u5JUygdHJjOdpJUHau4CuEqe2uZt PuUmiJjlUZG5QQQR0IPBBBwQeCDzkGvLw+T/ANn1OfAzaTbclJyknd30vL3X5rvqmcVLAfVZc2Hk 0num3K/pd6P+rEFKQQSCCCOxqSeZ726klZU8yZyxWKNUXJOcKqgADngAADsKRctGygkKAGYFhyc4 BA/H+dfQu7Wu56r1WpqeK9SstX1j7VYR3EcTW9usn2uYyyNMsKLM5Y9d0gdh7EYAHAz47My2M9z5 0S+U6IYS2JG3BjuA7gbcE9iy+tdlr/gzxBrnhO6+I99Y6do+h3l2LW1W3iS2juJRkGO3hjHAQKcs cA7T8zNmuWv9HWx0nTL4ahZXLXyyMbSCQtNbBHKjzRjClsEqASccnGRnzMLiKUqUKdOWqfK7Pms0 rtX8u/fzOWjVg4KMXtp31W6udl8H7/4iWM2vJ8PrPVLme8sWtL59LtnlaOJvmzuUfIx2EKRg9QvJ r2n9grwfqGl/tC6hFq+hXVre6ZpMrOt7A0T2bu0QUlWXIZkZgAcZDE8ivDfAvjfVPA/hjXDo3jK6 8PXmpvDbtZaekiyyKjhxK8y48tFy4GwsxywKhTmv0K0/9p/w58PvGHhr4XeIp9V1fxaYLGzutWjt FEElzNGhUtlg4LF1PCHG8Z5Bx+R8cY3H0aOJwuEw6kq0Wrq6laKV5PSzSvZWPiOIK+Ipxq0KVJNV E9VdStG129NVrY8S/wCCjHgLVf7f0DxpBa26aVDaiwlvRchZ/O8x3RPLJGRhmIKAn7+7AVa+MtMu ILTU7W4u7Rb+1imSSW0aRkE6BgWQsvIDDIyORniv1O/bK8K6T4m+APiGbVLS7un0tBf2f2EnzI51 BRXIwQUAdt+RwhY8EAj8qC7FAu47QSQueATjJ/QflXoeGGYvMsgVCa1pNx7ab73v18jt4VxLxOXe zl9htfr+o6baJn2DCbjgZzgfXvX3L/wTr1fwVcPqljFoqWPjq2tj5upvcs7X1q0u4hYycJsPlq20 c4Uk56fEujwQXOowrdRTy2yBpJo7U4kkRVLMobawUkAjcVIXqQQCK+2v2IPE+leIfi5r/wDY3w/0 /wANWkWiwKL1bmWS6VB5Sqrlm2v5mN5ZI0ztBbJOT1+IzdTI69FRlZLmupJJWaVmrptPtZmnFD5s BOFnpZ3Tst7a66/ifcFFFFfwyfhoUUUUAFFFFABmvzo/4KOpCPi9oDLMzXB0ZQ8JjACqJ5drb88k ksMY42g87uP0Xr85f+Ci+p2N58XNGtYLiKW8tNLCXMSQgNFukZkDSZycg5CkfLnIzvOP2LwpTfEc Wl9mX5H2PCibzONuzPlUwtH5TSq8ccg3K237y5IJHryCPqDUddL4o8fav4q0XQtHu/s8Gj6LG6ad ZW0CxpCH2mVt2N7l2XcSzH5icYHFYl1fT3sMK3F1NcfZ4xDAkjFljjyzbVyflAZicAYyxP1/tKjO tKKdWKTu9L306dN9r9u7P2ynKbSc1Z+v3f8ABF0/SL7V/tH2GyuL37NC1zP9niaTyolxukbAO1Rk ZY8DNaHgsaL/AMJZpbeIncaEk6yXqxqxaWJfmaMbSCC+NgIIxuz2rKhvLi3gnginljhnAWaNHIWQ AhgGHQgEA89xWlo3hu71rxFpejRRLDdatNDBbfaSRtMrqI2bAzg5B6HIOQORWOIdqdRVpcsbPVaN K2rv39Cavwy53ZW6bo+yP2QPBvws+MWrePZoPBV3pMLWUNlNpN3qpvbUQStuzGxRJVffAG3EsVOC pXoPqiD4b2ngjwzp3h/wZpq6ZpFuJA1tbylQ27HLlmy5POSxJr4//wCCe+uJoHxf8ZeFrNl1Oxu7 MTDUVBTIt5disE5+VvPJ55GB6kV+gGK/jXjnG4rKuIJwpzcqVoyjGTbXw2u03e+++p+E8SwmsZUw /PLk0au2+i79fU8mm0S7tbyO2uYxas5wJJmCp0yTu6cZ7fzq34i8MyaB5Leb9ohkyN4Qrtb0PXt0 57H0r0yRxGjMckKCSFBJ/ADk1DqNvDd2M8VwQIGQh2bHyj154GOufavn6fFuJqVqblC0dpJdfTqr HwrwMFF2evQ8forF+JHjfQPhPYWd/wCJdSXT7G+laOzlaJ3efbzuEaBmAxg5IxyOeRn0DwHoVtr9 hZ62ZYrvTbmNJ7UxMHSdGAZXyP4cEcfn7/o+MzCjgsIsZU+B7eb7LzXXscKwOIajNwajLZ20fzL3 hnwbDPaLdagvmCVQY4gxACnkMSD1Pp/Xoyb4dyG7xFdoLY5O51O9euBjoe3OR9K7eg1+Oy4kzD20 6sJ2UunReh6ywdLlUWtiK1tYrK3SCBBHEgwqr2qXNBPFFfMznKcnKTu2dqVlZBRRRUrcDidQ/wCP +5/66t/M1BU+of8AH/c/9dW/magr9Rofwo+iON7hRRRWwgooooAKKKKACiiigAooooAKKKKACiii gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA CiiigDlKKKK/RT5oKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigCj rmiWPiTSLrS9TtY7ywukMc0EoyrKf5HuCOQRkc18J/Hz9nnU/hfqNzq2nxC78Lzzu0TwK7GyQkbU lJzgZbarbju284JAr76pCMjBr28qzavlVXnp6xe66P8A4PmfVZDxDicjq3h70HvHp6+TPygrZvfF up6h4X03w/PcM+m6fPNcW8ZYnaZAu4dcYBUkDHBd/WvTv2kvgfP8MfEj6np0TzeHNRkeWN0h2paS FifIOCQABjaTjIyOdpNeMV+54TEYfMqMMTT1W68nt95/S+CxWGzShTxVKzW68n/mFFdBr/i7/hIP D2g6bJplhaz6SksP220gWKS5jYqVEu0AMykP83feSeck8/XbSlOcb1I2evn10+/c76Upyjeaswoo orU1CiiigAooooAK634U+DY/iN8QdC8LXGprpFvqt2sDXTqGCHB2/KSAWJ+UDPVq5KiubFU6lahO nSlyyadna9n0dvIxrQlUpyjB2bWj3s+59yj/AIJmqLd8/EQmTIKsNG+ULg5BHn8k8YORjB4OePk7 xBpkXw98UeM/DVvrVrqlkI309r+2hLC5VJo5ECAnCnzIkDHJAAfBfjd9QfsfftU+JZLzVtB8YXz6 r4e0jQ5b6K5aJfOtIrZVyCVAMgKnq2WyBzya5z4P+If2X9F8X6hquoW+vxRGNhBZeK7KO9s13MDh EhWRiygYBkzwTyTzX4hgsz4hyrEYuhnPNieRRcVTgmr7p6JNPTsz4ChjMywlStTxylV5bW5UrX3v otA8N/ADxL8N/wBmT4ieLTqUV5H4g0ewexTRjKzG1adJJmlV40IHlHnBI2mTPAFfJ1frV8ZP2jPB 3wH0Hw9NqEF1f2WrowsI9GijkUxIqHcMuq7AHTGD/EMDFfDGo/Cf4OWvwf1vxjZ+P7zUtWdWbS/D zyW1tewkv5aJPCS7SbSQzMm0FVJA6VXBvE+JrxrYvMqEl7aouSSje/2bOysrW1vbqPI82qyU6uKp v95JcrS3fw27K1j58r0rxj8fvEvjj4V+HvAOpQ6f/Y+hvE9tPBCyXDeXG8aBzu2kBXI4UE4BJznP mtdH8ONU1bQvHWi6noWlrrOr2Nyt1a2LW7ziSSP5xlEIY4xu4P8ADntX7BmGGoVYLEVKalKleUbu 1nbv0PtsVRp1EqsoKUoaq+mvqc5X2LfxWll/wTj0z7TpD3ctzqLNBcRr5n2aT7bIPPY4/dgqrR5H XeBn56x/2m/2g4Pi3+z/AOALe9GmJ4mvL6S/vrXS7pZFtFhV40DpuZozIJgwVjkbSDyK+kP2CLae L9nXTWnO6KW+ungBUjCeZtP1+ZW5H07V+OcW5/iI5Phs1xNDklSrr3Oa9+XmW9tn6Hw+b5jVlg6O LrU+VxqbX35b9bd/I/OeP4b+IW8Qpoctilnqr2qXi299cxW2YmjEqndIyrnYwO3OeoxkEChoVr8l /fTaZPqVlaW7iQorCOKSQGOJ3cfdCuwYA8MV29GNfpN+07+zvoPiSG7+Ilh4am13xhpcAkTS4CPJ 1NkKhBcR4zKEUE7VKs4XZ83ygfP3wh/ZT8YfGL4c32l+IZZvh1pFnqzXun2U2mNuld0Kyl43ZJCq gRKjuxON454x6mXeIODzDL/rteShFcqktbp/ask3J9LaK2rvod2H4koV8P7aq1FaJ979bJXb6W0X 4HyhDskjniu3nEsMJW2XICowcMVbd0GDIcDncR6mqdfQnxb/AGXZ7HxvY6N8MPtvjy2aIw317BcQ 3Atr1WYSRSlMCDACkCUjJJAJIOPPbz4I+IvD3gm/8TeKLC/8L2ltfW1lFBqVjJFNdmQSFzCrbclA gODhSCfmBGD97hOIcsr0o1Y1Uua1ov4tdF7u+v8AwT6GhmmEqwUlNa9Hvrptucj4e0ePV9estPup bi0W5YIGgtWuJSzD5AkYILFiVAGf4hXrf7NP7MN3+0RLrrDWj4fs9LEQ+0NZG4Esj7vkHzoOAuTy fvLxzXe+Ef2F/G+o6Hpni7wp4u0sSTvFe6XM3n20ht2XfHKxCExycr8gDDk/Occ+w/s3/Bj466H8 QLLxL458WXVvo6mf7Vol1qj3TzFlIX92u6FV3EMCrZAXAAzXwHEnGtCOCryyvGQjOK0v8Skm20ou Ot9tdj5zM8+pqhUeDrxUl33v5JrW+3kfPnxT/Yc+IHw/udUuNLij8TeH7G0+1nUoSkEjgDLp5Bct uX5jgbgQBg7jtrxXw1pq+JIl0GysEk16+u4zbXlzqEdtCqKj5ixJtTc5ZSGZ+qhVGWOf2nIyMEZr zP40/s+eF/jvbaPD4iN9ENLnaaJrCcRFwwAdHBBBU7V5ADDHDDJz+aZR4tYiUFh82gn2nG6aaWjc Va93uk0rHzeE4vrcvs8XG/8AeW+3Vddd9UfK/wC1j8Hb3wn+zN8Mz9lisX8OqINQsbON3jSW4VWk cuGYDEqkFmyGaTgjIDfHVobNNKv2ljaW8YxxwA5Cxgks75B64QKAcjDseqiv2vvtIs9T0ufTbu1i ubCeJoJbaVA0bxkbSpU8EEHGK+Cvjr+wBe+HLDWPEPgS+k1W2jkM0fh1oGM8cPVlik3EylT0UqGK 8ZZgN3ucBce4N0nl2Zz5JObcZdHzSvZvpr3e3U7eHuIKMaf1XFy5Xe6fR3d7Ptr3PkXRLiew1O3v reKGeWydboRTgMj7GBwVJ+YeoHbPYGv0h0P9pX4Ia7pnhfxl4pm0O28XyWgLTHTXuLizmjQNJGsn lF0Clzt5G7Py7s1+bus6JqHh3UptP1awutM1CHHmWl5C0UqZAI3KwBGQQeR0NTW+ueTpMthJp9jc ZDeTcyQ4mgLEbiGUjfkLgCTeFySoUnNfq/EnDOF4mjRqTqSVr6waTcZb901s/Q+tzTKaObKE5Sat 1i1qmfff7Q3xk+GHx/8AhVq3h3QvHpt9ThtpNXhgFpNGt19nV3MMm9F4O0kLkMCqsAwGD+esQM0w BR5nfICqfmZj07HPOOO9FvObeQsBklWTBJH3lK9iPX6euRxUt7p8+n3TW8yYlVQxCnIKlQwII4II III4IOQSOa7OG+HaHDFCWDw1Ryg3dKVrp9dUl5HTleWQyqnKjSm3F6q9v0sb3gzxVB4e8WeG9Wv7 Vru30OVLhbaBlheZo5WlRWcg8FyAWwSF6DgV9c/sCTw+O/ix8SPGmogf23MqsiJu2xpcSu8gHbAM cYHfAPvXxbq+p3mt3R1DUL261G9m4luLt2kdioAA3sSWwu0c9OnQCvsH/gnTfSaf8RPHGl6en9oa LLZwyyam+YirRyMIwI8n74kkPPTZ2zivm+P8Kv7AxVeCtVcUnZ6W5k2vnf1Z5XEdJLLqtRK0mkvl zK6/rc++c0Vx03xf8H2/xGh8CSa3CniuaLzo9PKPll2lsb8bN20E7c7sc4xXY1/EVfC18Ny+2g48 yurq113XkfiE6c6dudNXV1fqu4UUUVzGYUUUUAGeK/LT9ue8a6/aT8RRNBbwi2htIleFArSg26Pu kI6tlyuT/CqjoBX6l4r86/8AgorqGmXfxU0S3hvYpL+201lureK2HmQksWj3y5ywYHhD9wAtzvxX 7X4S1vZ5+48t+aElfts7/hY+24RnyZla17xa9Nnf8LfM+S6tWty4tLm1W3inE219zRZkjKZOVYcg YLZH3TwSCVUiGaN4tgcFSVDAFcHB5H5g5z6EUxhtP69c1/Z7SmtT9raugLEgDjjjgV2+j6nqV1oc sY8Qy2XiDS54k020lhcXTRhZFeKC5A3R7S2fJJVWLHbl/lbkoNQmtbmC7jnc3cRG1nUNsCgBMZz0 xgDHGBj2634a/BPxv8XTeN4R0GbVks9vnSiWOGNCeg3yMqlu+Ac968nMp4elR9ri5xpxjbWVremu lnt310sceJnSpw560lGK6u369z7O/wCCben6f/wrzxPfC2t/7U/tUwvchV87yfJiKoTjdt3biB0z nHOa+wq8K/ZS/Zyj+AvhOeW8uHufEmsxwSahnGy3KqSIUwSDtLuC2fm68DAr3Wv4Q4yx2HzHPcTi cLPng3o/l08ux+BZvXp4nHVatJ3i3owrDl0/TtS1D7TO0c24KUDBsbc4AJJIwzcjAG7n7wJzuVmf ZjFJi7kcxy3G9QpJRSGygJJJBJweMLlQB1+b5vBzcOZxk0/L8Twqiva6Pnv9vX4Wx+OPhAfEMQk/ tPwy5uYxHG8heByqzLhTwOEcsQcCI9ASR0P7FvifXvE3wJ0Y63pKaZFYAWGnyIrL9rtY0QJNtPqd wz0JUkAA17oikxqJCrtgbiBgE+w5pQMDgY+le/V4gnVySOS1Yc3JNyjJvZPdJeb1PZlj3PAxwUo3 5XdPsnuvv1Fooor488sKKKKACiiimtwOJ1D/AI/7n/rq38zUFT6h/wAf9z/11b+ZqCv1Gh/Cj6I4 3uFFFFbCCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKKKKACiiigAooooA KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDnviH4ZPjLwLr2iIsDTX9lLBCbkZjWUqfL Y8HG1tpyASMZHIr8zda0e78Paxe6XfxeTe2Uz280eQdrqSpGRweR1FfqnXx5+2z4Aj07W9K8XWqK i6gPsd5gqMyouY2xnJJQFScYAjX1GfvOEsw+r4p4We09vVf5r9D9X4Czb6viXgJ7T1Xqv80fMVen +If2d/FWg+A7XxfGbPVdHngS5J09pGkihZdwkdHRSFAIyRnHU8ZNeYV9cfsVfEFr2x1XwdfTmUW4 +12SSvnEZOJEUHoASGx/tt71+h53isVgaCxWHs1F+8n1R+r8QY3F5bhljMMk1B+8u68j5Hor7d+L X7L/AIDk07XfE8aXmim0sJrk2umGNbfdHGzBvKK+wyqsoOOMEk18RVplWb0c2g5Uk042vfzNsmzv DZ3SdTD3Vt0+4UUUV7p9CFFFKDgg+nrQAlFFFAHYfCjxJeeGfGdvLBLIljcxva6pHHn97YMM3Knb zjy1ZsjBBUEEECuc1kWDazfDSBdf2WbiT7GLzb5/k7j5fmbeN+3GccZzim6Zqlzo9y09pII5Whlg LMitlJI2jcYYEco7DPUZyMEA133ivw14q/Z58d6JfWovtD1OO0tb+1vHA5le3jadAcbWVXd42U5G OGyDz4FfloYyUqdvaVIPlTduZx76dLrXXS55lRKniG4W55R0V7Xt3+9H6B2n7Of/AAm37Lvh/wCH /iudrfWLewhKXjKJpNPuB8wVcs2QgPlHawBUEKVBGPzj+Lvw3uvhH8RdZ8JXl5DqE2nSIBcwAqsi OiyIcH7p2uuRzg5AJHJ971v/AIKH+N9WstSs49G0qxgurJoIZ7YyrcW07RhTKHLFSA25gu0fwgk4 JPzn4Pt9J1zxppqeKtWl07Rri6DajqIR5ZVjzl2ACsSx5AODyckEZr854MynPckeKr5rJeybclCK 5veeratr5W6nzORYPMMv9rUxj9zV8q11erat+RmaRZQ6jqUFvPqFvpUTk7ry7WVo4sAnLCNHfqMc KevpX6T/AAh/ZA+G2mfD+0u7WR9X1jVNJkiPiOG5YnbcQFHeBPuKNrttJUsAeSea+G/j/wCA/B/g PxJoaeBdZude8PappMeoxXt3IrszNLNGy/KibceWAVI3BtwPIwOP8JeP/EvgK4km8Oa/qWhvKyNL 9guniWUoSV3qpAcDJ4YEcn1Nexn2XY7irAU62V4qVHrytWvra0uq9HdeR2Zhha+c4eFTB1XBdnpf 16/LVeR9h/8ADsps/wDJRx/4I/8A7or7C+Hvgiy+G3gTRvDOnYa20u1S3WTYFMrAfNIQONzNlj7s a5b9nD4o6h8YvhFo3ifVLOKyv7hpYpUgBETtHIyb0zkgHb0ycHIzxXeeI7y90/QNRudOszqN/Dby SW9mHCGeQKSqbiQBuIAyeBmv5Q4gzzPcyxKyvNqvM6U7WtFK97bpI/Jcwx2OxVT6vjJ3cG10Svt0 SPzQ8c/tb/HTw74p1jSNT1+TRLu3uJI5NO/s+1P2cE5CqxjJKgEYbccjByc5rhfE3jz4weC5rKDX PFfjDSp722W8ghutWuUd4WZlDFS+Rko3BAPGehFTeCp9L8aftGQ3HxN8vSbG/wBXnn1iK4L28cMh LsYm3ZZF8zCHJ4HUjBI9w0r4weD/ANqf4/WWheLvANneaXcGSy0fULa6ngvII1VnBmKOFkUlSQuB s3nG7nP9RThhco9mqeXQlTjTU6soxj205b2vs299D9SqKjgnHlwkXFR5ptJfK199nfyPAfgR458Q +FPir4cfSNZvdP8At+q2kV4kMrbLlGlAIlQHEgw7cHPU45r9cdc8O6X4p0qXTdY0201XT5tpktL2 BZonwQwyjAg4IBGe4FfkzY+CG+H37SWkeGIdRg1iTTvEdpbLd2gIWRhOnGCDhgTtYc4YEAsBk/rs vCivyHxZq0vrWCxWE93mje60fS3mfIcWyg8RRq0tOaN77ehHb28VnbxQQRpDDGoRI41CqqgYAAHA AHapaR2whPoK+ZP2Xf2sNZ+OfjrxDoGqaFb2sNrG93aXlju2pEJFQRyksQXO4EMuAdrfKK/FsJlG MzDC4jG0VeFGzk766/mfGUsJVr0qleC92Fr/AD2PpyiiivDOMKCM0UUAfKXx2/Y61z45fGeTxBee JbWx8NHTxbwpHExubeRVbaoXG108xt5JZSQxUAYDV8q/tN+GY/hLq2lfDm2ghuhpdlHLc65caZHF dajK7MwZZSC/lIpWNVDkDYQc7Rj9V84HNcjrEHgb4kX114c1RNC8S3mmss0+lXQhupLZiMK7RNko cNwSBw3vX7Fw7x7j8DUpLGQdWhRjZRWlraKT01evX13Pr8uz/EYaUPbLnpwVklpbz2Pyf8WWnhK5 8D+HtY07UXTX5ofsN7oUaEJbPDgfaPMPUSrhtgH33c7+NtcXGpurhFeVUBwvmSk4VQMc98ADoATx wK/Rj4jf8E/fA/iCTXdV8Pz6hpGp3Mcktnp0c8aWEc5U7QV8pnWMvgkK3AJC4AAHwX8QPh/r3wt8 QPo3ia1httYaASyWwuEnaEMTjcUYruIGcZPDA8Hp/SnCvFWV53TlTwlVua1tK3Mk9bLuo7XP03KM 3wuPg4UpvmWtpb2/VLa5iWkemvpV+1xNdR6krRm0jjiVoZFyfMDsWBUgbSuAc4IOODX0r+yx8G7r 47fDL4iaI+of8I7az3tjONSt7cMJpE81jC8YZQY1DBgoK4ZlOSBivHX0bxp8BtaaTWtAutKGpWM1 k8d9AAlzbzQgSLG5BUsFkU8Z2NgMOqn3b4V/staj8SPAXiyz8I/FO21XwfcFDbQRRTwLNfp5bYuY HXMYA43KWJ/dtghQp5uKcypfUW1iFCEpQcalueKtJXWit0vZvW77HPnGKg8PdVVGLaalbmWjV9lb 73rr2NX4L/s++P8Ax/8AGux8T+KrW68JWfhOW1thNcRvHdakLcbEw/Il3LGA8obaQwCZHC/fYGBX 5ffEDwN+0Ffzaf4P1vTvEWv2Hhy7SOxmsbZniLEfJKlwqAuAvR3J8vOG2niv08tUZLaJXBDBQCCx bnHr3+tfzn4hQqSlha88RCacWoxp7RirW131vfXY/N8/UpSpVJVIyurJR2SW3nre+pLXifxJ/aas /APxm8K/Dy30KbW73WXjW4ntpwGsxI+xDs2nd0ZmyVwoB5zXthOBXhuofstWN/8AtJwfFltcl3Js kfSGtwVaZIPJVhKGGFACtt2nkHnBwPhMiWVqpWlmj91QlyrXWdvdWn/DHiYL6tzTeK25XbfWXTY9 xBzQzqvVgPqaWvir/go94AE+i+H/ABmdUnH2aUaWNNYKYiZN8nmqcgq3yYP3sgJ02kk4dymlnmZU 8BVq+zU9E7X16K2g8uwkcdiY4eU+Xm62vqa/7RX7cH/CC6/4k8GeGLJW1W0txFHr3nK6QXRwWTyi hDbVJGST84wVwCa+VPjj4qh+IHhzwJ4v1G9S48carZXEesGCGOJJEineKCVwgH7xkUqe2EXAAAz5 LHayy28s6oTDFtDydgT0GfU4PHXgnsa7DwVcaBqmga1pfinVZNPtbKzur/R1t4iZJdRZI1WJmCN+ 7cRpu3YxsGCuWz/ZWWcK5bwxTpVMHC84P32tZSvGz01drtO2y3P2fDZThcqjCdFXlF+81q3dW+69 nbY5O8NqIrdbbzGITMskoCkueoABI2joD1PJOMgCa00DUb/TtRv7ezmmsdNCG7uUXMcG9tqBm6As 3AHU4OOhottB1O80q81O3067n02yKLc3kUDNDAWOFDuBhSTwMkZrq/ANv4o+IdtafDXQPs7pqOof bhDJKkJllWPb8zsRkKoYhRk5JwCcV9viMWqFB1ac42i/ebey3d/Ox71WuqdNzi1ZbtvZbv8AA7H9 kT4R6N8Zfi8mj+IFkl0m0sZb+a2jZk8/ayIELKQVGZASQQflxxmv1C8G+DNF+H3huy0Dw/Yppuk2 alYLZGZgoLFiSWJJJJJJJJJNc38H/g/onwn8J6VZWel6ZDrMVhBa3+p2VmkMl26IAzMwAZssCfmJ 68813xdc4yPpmv4m434qrcTY9+xclRjoo30ur+9bzPwzO82nmmIcotqC2V9PUWiis271JVhmc3Ed rF5BdJWG8nJwHHYjocDJO5c44z+cUqMqztE+ZlJR3L6TxySyRrIjSR43oCCVz0yO1YUNvf6ykxXU PItDcOVltzlpUBGAD/DjBGRweTg9WmXRZ5YH2SpYG42NKsKYkQKAAiuGwAAMdDySehwNDS7R7HTr a3kfzHijVS3bIHbgcdhXqKdLBwcqMk53W6201fbcxs6jtJaD7OzSxtkhjLsFyd0jbmYk5JJ9SST+ NT4wKBRXjSk5ycpbs6ErKyCiiipAKKKKACiiimtwOJ1D/j/uf+urfzNQVPqH/H/c/wDXVv5moK/U aH8KPojje4UUUVsIKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA5Siiiv0U+aCiiigAooooAKKK KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvnT9tHwHf+I/CGmeILNg8GhGU 3MG0lmSUxjeMf3Sgz7EnPFfRdQX1jb6nZT2l3DHcWtxG0UsMqhkkRhhlIPUEEgiu/A4uWBxMMTDe L/4f8D18pzCWV42ni4q/K/w2f4H5TV0nw58bXfw88Z6Xr1mzBrWUGSNf+WsR4dD9VJH1we1e0fH/ APZbh8AaTe+J/D18v9h24DT2N7ITLEXkVVETYwy/OBhiCNvVia+c6/ecLjMNnGGbp6xejT9Nmf1F g8bg8+wblSfNCWjXbyZ+kXxV+Lmk/DXwdc6ncSW8+oNAr22lTTrFNcbmVeEPzYG7LYBwAa/O3W9R /t7V77UI9PtdOWZzM1rp8bLBDkjO1STtXJ6ZwM4GBgV61+zb8E9D+L1/qD6vqs0K6cUZtNt02vMr dG8w5wuQQQBn3HFfZl38MvDreFta0LT9KstGtdVtnt5zp1rHCTuQqG4XBIySCc1+f0sVheF60qEU 6lR/E/hSWmltb97n5hQx2X8GVpYSN6lSTXM9klpbufmTRW/408Daz4A8ST6HrNo0F9ERtC/Msyk/ K6H+JT2/EHBBAwK/U6VaFaCqU3dPU/ZaNanXgqlN3TV9Aoqe9s2sZljZ45C0ccuYzkAOgcD6gNg+ hBqCtE1JXRqmmrotW0Ec1neMUJliVZFczqgC7gpGwjLkll4U5ADEggEirRRUpct22G24VrX19FqO kme51C8n1aS9lleB13QlXVS0u7PDlhgjByAMkYAOTWj4d0G78U+INM0awVXvtRuYrSBWOAZJGCrk 9hkjmsa/s4R9tN2Udb+XX5GVXlivaSduXW5UnSBYrcwyySSMhMyvGFCPuYAKcncNoU5IHJIxxkw1 +gOv/sN+HtE/Z/nt5pNQ1PxZpVvdaqsumuMz3Rt1zbopQloi0SADG/OcEbiK/P6vm+H+JMHxDGq8 I2/Zys7/ADs15WPLyzNaGZqbo3912/yJba5ks7mKeIhZYnDoSAcEHI4PBpksrzyvJI7SSOSzO5yW J6knuabRX1iik72PaSsetfAP9pDxP8CdZjFhctdeHJ7hJb/SJQGSVejNHnmOTb/ECASq7gwUCv1Z 8N+JNN8ZeHLHWtHu0vtMv4Fnt50BAdGGRwQCD6ggEHIIBFfinY2U2pXtvaWyGW4uJFijQfxMxwB+ Zr9ovAXhK38CeCND8OWp3QaZZRWiybdu8ogUuR6kgk+5r+WvF7A4DC1cNi6UVGtNu9uqVtX5n5Lx lh8PSq06kFacr387W1fmfj/8UfB+veA/H2taL4nKvrsE5e6kWYSiVnG8Sbh/eDBucH5uQDxXLV9v fE/9grxr46+KPinX4vEulHTtSuZ7y2e6MxnDNlo4WUKQFU4TcGOFUEL/AA15Xr37BXxZ0nV4LSy0 2w1q2kRC1/aX0aQxMeGDCUo529chTkYxzkD9dyrjbIq+FpQq4uCnyq/RXtrv+R9lhM+y+pShGpWi pWV+ivbXf8jB/YxW0k/aR8IJdWQvdzzmJSeI5BBIwkIwc7cEjpg4OeK/VwV+fnwg8A2f7Jf7Suka f4v1SLVLrWrdrPSv7LhZyhmmWOOWcNjy921lwnmck5IAyf0DByK/nPxSxtPMc0o4rD3dJwXLLWz1 d7H5rxRiIYrGRrUvgcVZ999gIyCD0Ncd4A+EHhD4Wz6tN4W0SDR5NVmE12YWYiRgWIADEhFG5sKu FGTgCuxor8gp4mtSpzowm1GVrpPR22uutj5KNScYuCbs913t3CiiiuYzCiiigDkvix4e17xX8Otd 0nwxq40LXbu3MdrqBLDymyM/MvzLkZXeuSudwBIwfIf2YP2Xb34Rarqfizxbq/8AbvjXUBJA9xDc PNCsLMjElpFV3kZkyWPbAHcn3rxFZXupaDqNrp16NO1Ce3kjt7wx+Z5EhUhX25G7aSDjIzjrXnv7 OvgPxt8O/Ak2m+PPEx8Uas13JNHcG4kuPKhIUBPMkAduQzc9N2B0r7DB5jXoZLXw1KtGKlJXjb35 J9nbbTa56lLEVIYSdKM0k2rq2r+fbTa56kWCnkgfWvnX9qH4C3Xie2Pi7wH4Y0rUfiEZYY5bi+SJ /Mt1BBKxz5gaQfIN7jIRSAchRXlHxy1G0/aZ/aH0rwJpnjRvD1p4fnaO4hugYRLdI+He1YMfMmGS gDhCu1ipYFsfcEUflRqgJIUAZY5J/Gu90cRwjLC42E71Kkbyg00uXopbcyfVHQ41MqlSrRl70ldx adrdE+6Z4N8PPht4x+KXwb1HQvjlZ2l1q888yWsghtnnto2j2JMpjBjWVS0m1lGQMZ6mrv7M/wCz Sf2d7bXYz4mm8Qf2o8TbDbG3ihCBhkJvfLHdy2eigY4r26myf6tvoa8vEcR4/FU62Ei1CjVkm4RX urXp1XyZyzx9ecJ0k7Qm7uKWny7AGQnquadjJr8uPhJpeg3X7WS2t740urPTbHXpp7DUJSWfUZxc KFjLrhVMwHL8BgMYBYAfqMOgrt4p4cXDtWjSVVz54qWsXG1+mrdzozTLv7NqRp8/NdJ7Nbi15X+0 p8Xb74JfC298R6Zpn9p3wljt4VkRmhhZzjzJduCEGMdRlmVcjdXqmaQqGHIB+tfLYCvRw2Kp1sRT 9pCLTcb2uu1zzKE4U6sZ1I8yT1W1/I84/Z4+Ius/Fb4SaJ4n17T4NN1G+80tFbKyxsqyMquqsSQG Cg8k+ucGu38QeHdL8V6VNpms6da6rp82PMtb2FZYnwQRlWBBwQCPcCtAAAcfpS5p4nFKeLnicNH2 acm4pP4ddEn5CqVE6rqU1yq90u3/AAx5B8N/2V/AHwztfElpZ6a2q2GvSxvc2WsbLqFEjZmjjRWX 7qliRu3NwMk4FXfEv7L3wr8WX9veah4J0z7RA7SBrRDaiRiQSZBEVEnI/j3dT6nPqXeuN+MH/CWj 4ba6fAjQr4sEINiZ9uNwYbgNwK7tu7bu+XdjPGa9mhnGa43Gxbxcozm0nJyaWul2+1t/I7IYvFVq 6ftWpSdrtteWr7dzY8VeENG8b+HL3QdbsItQ0m8j8qe1k4DLkEYIwQQQCCCCCAQQQK4PwN+y18Mf hv4mtPEHh7w0LHV7UOIbhr24m2blKthZJGXJViM47182fssaR8fNa+MFrrniq58T23hqOSc6jFrs skUUhaNiqx28hH8ZXBRQqgEZHQ/dI4FenndLG8N1Hl1HHe0hNXlySfLro0/l+B0YyFbLZPDQr80W rvlbtr0ZneIrK81HQdRtdOvRp1/NbyR294Y/MEEhUhX25G7acHGRnHWvyp+OOk/Ej4QePtJtfFHj a51jX7SAX1neW+qXFw1qGZl+V5ApQkx8gdRjNfR/7Wf7VnxC+FvxC1nwdpljp9hpU9lG9nqTxu10 yyR4aVGEm1Ssm9RlTyme9eSfsRfD3Svih8Y7zU/Eeoi5vtLjOoR2F5Es7X8j7laVi+cmNmR+QSWK nPHP65wZlGI4cymvnWP5ZUJQ5lFJSk7rTXpvqj67J8JUyzB1MwxCTpuN0rJt3216b6/ifo1capLZ 6RagLLc3s0SAZ2xsSdqljkYByw4weT0xnFzTtKi060tYUZz9nUgEMwDE9SRnBycnnOO1Nh0xheef LMZAjs8SAthSwwScsc4HAxgDJ454vmv57xGIgo+zodW23+S+S/M/MlFyk5SCiiivLNQooooAKKKK ACiiigAoooprcDidQ/4/7n/rq38zUFT6h/x/3P8A11b+ZqCv1Gh/Cj6I43uFFFFbCCiiigAooooA KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo oooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK KACiiigAooooAKKKKACiiigAooooAgv7C21Wxns7yCO6tJ0aOWCZQyOpGCpB4II7V8K/tF/s9n4U T/23pdyknhu8uRBDbyMxnt5GV22HIwyAIcNnPYg43H7xrL8TeGdN8YaFd6Rq9ol7p90mySGTv6EH qCDggjkEAivcynNKuV11OD91/Eu6/wAz6rh7Pa2S4lSTvTb95f11Pzw+CXxLHwo8f2muSwvc2RR7 e6iiALtE2M7ckDIIU8nnGOM1+iHhnxBaeLPD+n6xYFzZ30CTxeYu1trDIBHY1+ZfjLwzN4N8Wavo dwXeTT7qS38x4zGZFViFfaegYYYdeCOTX2P+xv47uPE3gC70e9uhPcaNMsUKkfMtuy5QE98EOB6A AV9vxVgqeIoQzKj5X9Hs/wAT9I45yylicLDNaK10u+6ex7fqPhvSdWv7O9vtMs7y9syWtrmeBHkg JxyjEZU8DpjpXg/xI/YktvHOpJc+ArnTtAvXYmfTr55Vt5QSzGSNlDlSOBsC7ccjbtOfoms7xJrl v4Y8PanrF0sjW1hbS3UqxAFyiIWIUEgE4HHIr85w+NxmFd8HUcZbLqvmup+W5Tm2OwGIj9Wm9dLd PuPkL4ofsOeKfh5Jp08Wu6PeaJMii+1nULmPT7ewlLBcP5jkspyMMoJPI2jjPg3jDw0fB/iK70k6 ppmtfZ9v+naPc/aLWXcob5HwM4zg8cEEVbj8b3k9jr9lqMt5qFpq0hu3ia6KBbzdlbhhgh2wXUgj kOehCkc7G4SRWKLIAQSjZw3scEH8q/a8nw+bUF/wo11UsrK0VG+zvu9tV0R/T2Bp42C/2qopeitf z3+Ra02LT5Tc/wBoXNzbBYGaD7NbrN5kvG1GzIm1TzlhuI/untq+A/HOo/DnxJDrmkpatfwxyJE1 1AsojLoVDqD0dc7lI7jnIJBw7toHu5mtY5IbYuxijmkEjqueAzBVDHHUhRn0FRV706EcRCUK2sZL WLt92n+bPSlTVSLjPVPoyS5uZby4lnnleeeVy8ksjFmdickknkknnNdX8JfEtp4R+IOlalqF5fad YoZYZ7vTMfaIUlieJnTPGQHz0PToa5CinXw8MRQlh5aRkmvk9BVaSq05U3s1Y+8/2E/h74g8JeK/ E2oWGq2Ot/Dy9tvLh1K1mH+kzqylMwE74XVGfcrqCCQBuGDXx58XdP8ADumfE/xJZeEjKfD0F68V oZ5A/AOG2t3Tdu2kknbtyScmrHwi+J+q/DHxfpl/a63q2maSl5BPqFtpkxH2qJGyUMZYI5KlgA/H Jqv8TrOO78R3fiPTNHbSvC+uXM9xpQSIpF5YkIMY5IDocBkBwCRt+QqT+f5VlWIyzP6+IxE7xqxi lZcqbj3WzlbXTpfRHzWCwdXCZlVqVZXU0rW0Tt387dvPY4+rOm6bdaxqNrYWNvJdXt1KsEEES7nk kYhVVR3JJAFV2UqcEEHrzWv4P8V6h4G8U6X4g0qRY9Q024S5hZxlSynOGHcHoR6E1+hV5VPYylQS crO19r9Ln01Rz9m3S1dtO1z3jwT+xN8WIPFPhu61Dw+un2Q1GI3Uy39u0ltEroTKQsnPBbAUk5Q5 A4z+m6jaoB9K/OGH/goz8SUkQvo3hl0BG5VtbgEjvg+ecV+imj6gNW0myvQoQXMCTBQc43KDjPfr X8ZeI/8ArBUnh6udwhH4lHk+V76vyPxLiP8AtGU6c8wilva349WW81x+tfGPwJ4b1SfTdV8ZaBpu oQECW1u9ThiljJAIDKzAjgg89jXYEZFfKnxP/YF0L4heP9b8TQ+Jb3Sk1NZJ2slhEu27bJ8wOzZ8 vdgmPHqFZRgD88yLC5Tiq0oZtXdKNtGle77Hz+CpYWrNrFVHBW0aV9TzL4t/FTwz8Sv2x/Atol7q UOn6DqMNl9rtHEkc9z5wZQiAAqpfbG75OQOFGMt97joK/K/xj+z/AOPPg38QfCVrJ4q0f/hLtQuI otLFnfyiWILiNHZ5I1VUGFQAnJ+6qnBA/Uy2V0t41kfzJAoDOBjcccnFffcf4XBYfDZd/Z9TnpqD S36PV6rq2e9n9KhThhvq0+aHLZfJ6v5tktFFFfjZ8gFFFFABRRRQBneIdW/sDQtR1P7NPemzt5Lj 7NaoXll2qW2Io5LHGAB1JFeffs7/ABub4+eBZ/EJ0Cfw/wCXdyWnkyTeckm1VO5H2rkfNg/KMEEc 4r1IjNIAFHAA+lelTr4eGFnSlSvUbTUrvRLdW2dzeM6apuLj711Z32Xa3mfNj/sVabffHuX4jal4 nu9QtzqC6nHpMluAyzKVZFMwbmNWUYXYDtCgk4JP0pjGKTke9LW+ZZxjc29n9cqc3s0ox0Ssl6Gm IxdbFcvtpX5VZeSQUEZBB6GiivHTtqjkPENM/Y4+Gmi/Euz8Z2Glz2l1ayfaItOjm/0NZ9xYTCMg kFSRhVYINowvFe3jgUUV6WOzPGZk4PGVXNxVld3sjorYitiGnWk5NK2rvoFFFFeYc4UUUUAFFFFA ABiiiim3fcDj/iP8J/B/xU02O08WaDbaxFGcRO6ss0WWUnZImHQEqudpGQOeK4X4efs3eDPhD8R9 R8V+G4ri2uNRia0Wzupdttb7myVhBUH5mjXuxA6DDcexX5ja1eKQB/OBiEZJG8kHjIBI75I6AE9q sV9Dh85x2FwjwsasvZSunG/u206HQsViI03QjUai+l9Pu2GQTCeCOVeFdQw5B4Iz1BI/Kn5oor55 tN6HOgooopAcl8WPEOv+Ffh3rureF9IOu69a25ktLAAt5rZA+6CC2Bltqnc23A5Iqt8GfE/iXxl8 N9G1jxdoo8Pa/co5udPCOnl4dgp2Plk3KA20kkZwa7bHagDAr0frVP6n9W9kubmvz63ta3L2t1N/ aR9l7PlV73v19O1gooorzjAKKKKACiiimtwOJ1D/AI/7n/rq38zUFSXEvn3EsuNu9i2PTJzUdfqV JONOKfY43qFFFFaiCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKKKKACii igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPjv9tX4cw6VrOne MLOGUf2m5tb9y4KCVEUQkA8gsiuDjj92OhPPnn7MXjibwb8WdLiN2tvp2qN9julk+624Hy/od+3B 9z2Jr7u8Y+FbHxt4Y1LRNRjElpewNEx2qxQkcOu4EBlOGBxwQDX5gahYXGlX9zZXcLW93bStDNC4 wyOpIZT7ggiv1nh7ERzXLqmXVt4qyfk72+7/ACP33hXFxzzKKmWV94q1/J7P5f5H6sA5Fcp8U/Ag +JngPVPDZvjp320R/wCkiPzNmyRX+7kZztx1HWvP/wBknxw/i34UwWVy++80WU2TFpNzNFgNExGB tAVtgHP+r69h7XX5rXpVcuxTp396D39Ho/1PxnFUa2TY+VNP36ctH6bM/ND4r/Def4U+MZ9An1G2 1N40WUS22QQrE7Q6n7r4AbaCRhhya46veP2zdHttN+L8dzBHskv9NhuJzvJ3SBnjzjPHyRoOOOPX NeD1+9ZRiZYvA0q03eTWvr1P6lybFSxuX0cRN3lJK/r1Cuw8GfCnxZ420u+1nRtJEuk6b81zqN5N DbWkRGOGlmZUJ5GVyeCMjBrj60IfEOqW2iXGjxajdR6TcSrNNYpMwhkdejMmcEjA5x2HoK6sXHEy p2wrSldayTat10TWp6VZVXG1FpPzV/1R6X41+A0fhDStM1Sw8aeFfElnPYyy3ht9Vt1NrcJGGkgR RLmdhuTaU5LEblUEZ8kora0fxRJo+iaxpo0/TbtNRjVPtF3Zxyz2xDA7oZCNyEgFTg4wxPUAjkw1 LG4WlatUVWV1rbl0vr3Wi9NjCjCvShapLnfpbS/6GLWw/i/WJPCcfhlr6RtCjvDfpZEDas5TYXBx n7vGM46nGTUnhfxXP4Va9eC2sbx7iIRCPUbOO6ijO4HzBHIGTeACoJU4EjdKyZkmdBcPGVildgrq m1CwwWAwMcbl4HTI9q65RVWbVeC5Ytcreutu1tPvN2lOX7xKy2O9+JnxaHxS0Hw2NV0pl8T6Raiw k1mK5Aju7ZWdo1a3EYCsu77ytz82QcjbHe/A7xWvhzR9f0nTpvE2i6lbtP8AbtGt5po7ZkYq8U3y AxsuMncApzwSATXF6XZw399Dbz30GmxyNg3VysjRRj1YRqz/APfKmv0Z+FHgfTPFf7H2reDfhz4t ttYvZobm2m1NraSFGnkbdJE0cmGQFGEYbHQh8HpX5/xFm8OEqOHjhI2hKdpXTcEpXu+bpZ7JP5Hz WZ4xZLClGgrRctbp8qT3d+luy+4/Nuv2G/Z81SfWfgf4Gu7ozPcSaPbb3nTazERqN2PQ4yD3BB71 8NfCb9hb4i3/AI50qTxZo1rougWtxFcXZuruGc3EauC0SLEz8sMj5sDBPJ6H9H9P0+20mxt7Kzt4 rS0t41iht4ECRxooAVVUcAAAAAdMV+OeK/EOXZnDD4TB1FUlFuTcWmlfpc+M4tzHDYt06VCSla7b Wq16Fiiiiv5yPzs+cv2tP2Xr74+z+HL3Q7rTNN1Kwd4bq4vY3DyW7YIAZQSdhDEIRg72+Zed3ung 3w7/AMIj4T0bRPtk9/8A2dZxWn2u5OZJtiBd7H1OM/jWyaMV7mKznGYzA0cvqyvTpX5dNdfM7auL rVqMMPN+7C9vmFFFFeGcQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVBcXkNq 8aSPh5N2xACzNgEnAHJ4H8vUVJNPHbRGSWRIo16u7AAfia821HxRNda4l9GD5cJ/cxSE4UYxztI6 9Tz7civocpyermcpWVopb+fRHLXxEaKXc9EuFknkES+ZGmMtIMbWHQrwQwOOQRjHHPYzRxrEioih EUABVGAB6CuU8M+MJ9T1I2t1GmZcmNohgKQuSDk9OCfr7dOtFceYYOvl9RYeuraX0NKVSNVc0Qoo oryjYKKKKACiiigAooooAKKKKACiiinHdAcFRRRX6tHZHEFFFFMAooooAKKKKACiiigAooooAKKK KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo AKKKKACiiigDlKKKK/RT5oKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC iiigAooooAKKKKACiiigAr4n/a9+G/8AYvje58UvqthDFq6I0GnlJhcSvGsccm3ajJwCr5ZkzkgA kfN9sV4l+1d8Lrr4heAob3SrU3er6NI08caEmSSBlxKiDOC3yo2OSdmBycH6HIcX9Tx9OTlyxeje mz9el7X8j7LhLHrAZrTcpcsZe6/0387Hj37DurTQeOfEGmqkRgudPW4dyPnDRyKqgHPQiVs8dl/H 7Or83fgV8Upfg58TtH8TpF9ogt2aK5iCgs0Lja+3PcA5HIzjGQCa/V6yTSrjwlHqumWcd5Y3kCXJ VLltkkZUkMrchhhsgjg8Edqjj3ESyrMIVpU7xq2Saa3WjTv5WaPouN8smsx+tLSM1v6af5HyP+1r 8JtY+IfhzTNT0SMXd1o3nNJYomZp0fZny8dWXZnZ3BOOQAfizxB4c1Twnqsmmazp9xpeoxKjyWl3 GY5EDoHXcp5BKsDg8881+p5OAa+L/jP8dtC/aA0LTvD8lhb+FdS0u/Y2uqak7SRzQHeCrMkZaIsW QldpX5PmfgY+l4azbGU1HDRp81KO7W8b6381e+lr6+R6vBWc4z2f1P2fNShvJbxv5dep88aXpl1r Wp2mn2MD3N7dzJbwQRjLSSOwVVHuSQPxro/il8M9Z+EPjS88M66ITfWyxv5tsWMMiugYMjMqkjnB OOqsO1e/fAb4nfDj9nLTHj8aeGoNa8cLevIlzpEcF9LZRqqhA0zS7EclpBiI5AUB8NxXhvxr+Jb/ ABf+J+ueLGtfsSX8iCK23bjHGiLGgJ9SqAnHGScV9Xgszx+OzWdONFxw0Yu0n9uV1Zrytc/T8NjM TicZKKp2opbv7TurW8rXOHqSaNYbiSMSLKiMVEkecMAeozg4PXnFNjkaKRXRijqQVZTgg+optfYv uz3CSZo2cGJHRdqgh2DHdgbjkAcE5IHYEDJxk9P4X8e+M/CGhahHoGu6tpWkzSJHciyuHjiEr/Mp 4OFdhAfmGGKowzjIrlK6bwT4evvFo1fTLe4litLewuNXnUSYjzbQyOrMn8RwWQEcjzSemQfPx0aL w7deKcVZvm1Vl19bbHLiVT9leok0rb6mFqFzc393Le3cjTXF07TvK5yZGZjuY+5Oa+i/2R/2n7H4 E2Wu6bq2iX2o6ZduLx7uwYM9uVUIAY2wuGJUbtwwSBznj5rro38S+JJvBSaYdbnHhyGXyRpS3yqh Ys0u424YFvmyfMKkA7RngCvMzzKsNnGC+o4iKdOTV9XGy8rdeyOXMMHTx1BUKqvFtdbW9PM+rtP/ AOCkWrzeOoJbzwzZ2vg8tia2hZ5r4LtPKyFlQndg7SgGONw+8PqH4R/tN+APjMYrbQ9XFvrDjP8A Y+oqILroxIVSSsmFQsfLZsDGcV+RtezfseWlnd/tHeDVvZjCiTySRgKTvlWFyi+3zY59q/KuKvDj I45bVxeFg6cqUG1bVOyvqnvfufJZxw1gYYWdeinBwi3pqnbvc/WKiiiv47Px4KKKKACiiigAoooo AKKKKACiiigAooooAKKKKACiiigAooooAKKKKADFYfiPxRFoS+UqGW7dNyKR8o5wCT+fA9O1UvEP jNtJvJbSC2DyoFzJI3ygkA9B14PqP8cHxOL3VBBqMtm8MPkqCwwVwWYryD6EZ6c9hkV9rlOSOVWl VxqSpy21WvY8+vibRcae6MW8vZ9QnMtxK80h/ic9BnOB6DnoKgop8EElzKI4o3lkboiKST+Ar9jj GnQhpZRX3Hz7bk/M3/Adus+vb2JBhiZ1x3PC8/gxr0asXwroX9i6f+8GLqbDS4bIGM4H4A/mTz0r axX4ZxBjoY7HSnTd4rRfI+lwlJ0qST3CiiivmjrCiiigAooooAKKKKACiiigAooopx3QHBUUUV+r R2RxBRRRTAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA5Siiiv0U+aCiiigAooooAKKKKACiii gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKCMgj1oooGm07o+Zbb9gW wvp7i5Pjma3s47hS1udLVpFgZ8Z3iYZIHBITqRxg4H23BPp/g3wxa6ciJLZW0P2S2gjjWNQsYCeX t7KMEcDAAA5ON3F6PqP9mahHMy74TlJYyMh0PDDHfjseMgV4R8Wf2mv+Fe/tBP4INnbR+EYmtVnu WmbdHJNGj+fktt2Ksi5BGcAkHGBXFmOHzLinFwwuIm5xppzSslorJq6Sd9vU+6p4vNeIouDlzypx btotNPvPbpFRZA20+SxyEDgttyeCccHj098V+XHjzTW0bxx4gsHkhle11C4hZ7eERRkrIwO1Bwoy OFHA6Cv1LuLSWOSEBEPnIpjEDiQOPu5BBOSSD+NfmJ8W72x1P4neJ7zTZoJ7G51CaaKW3LlHDMST 84BzknPbOduVxX6XwPO+IqKOq5V+D01+/wBfkfU+HkpxxGIptaWV/U5InJpWYucnHQDgY6Ckr07w 98RPDXhf4mW+v2fhjTNY0i8ijW90fxFZI9tauzKZhBs3cDadkhQsAxBRiMt+o4zE1cNH9zSc3ZtJ aaq2l+l/0P2avVnSj+7hzOzt/keb3VpPZSLHcQyQOyJKElQqSjqGRgD2ZWDA9wQR1ro/B3xBu/Al zbXmk6dpq6nA75vrmA3DyxOhR4WSRjHsKkglUD4JG7BNfRtnq3hT9qqy8aeKvHVvL4ZtPBNkv2Ie H5xEZrRmkMcLpKHQuCgAZNm4yAYwBj5LcqXYoCqEnAY5IH14rx8BjVnMKmFxlFwnCynG943ava63 0eq8ziw2IWPjKjXptSjZSXTVbX66Gn4m1yDxFq0l7Bo2n6GsnLWumCUQ7iSSwEkjleuMAhQAMAVn 2t3PZSmS3mkgkKPGXiYqSrKVZcjsVYqR3BI71FRX0cKMKdNUlstNdfzPVjCMY8nT7z6M/Z1/ZHtf 2gvCF3rFv40OjXVndNa3Fk+ledtO0MrB/OXIIPoMEEehPS+Pf+CeXivwtaX+oaT4hsde0+zsZbpk FrLFdyyIjsIo4V3hi2FAO8HLHjgZ9Y/4Js28i/DfxVOQfKfVginsSIUJ/wDQh+dfX5Ga/lDiXj/P Mlz+vhaNVSpQlpFqO2jte1z8fzHiHMMJj6lOFS8YvRWX+Vz8PBazNbSXAhkMEbrG8oU7VZgxVSeg JCsQO+0+hr6i/Ye+DHiK5+M2k+JdU0PVNN0bT7OW+t726tJIoLlnTy4wjsoDZEpcbT0X06/o/wCW n91fypQAvQAfSufOvFmvmmAq4KlhlDnTi3zX0ej6InH8W1cZh5YeNJR5lZu99PuQo4FFFFfz+fAh RRRQAUUUUAFFFFABRRRQAUUUUAeOfFL4kfETwv8AFjwVofhrwb/bXhnVJAup6oY3YW4MgVvnU4i2 L8+XBDZwvINexg5FBGe1Gea9HE4qnXpUqcKSi4KzaveWu7N6lSM4xSilZff5sKKKK84wCiiigAoo ooAM0UA1X1G8XT7Ge5bBESFgGOMnHAz7nj8a0pwdSahHdsTdldnO6lZW3iXX7cLFK8Vu0kVzIAVX 5QCFz0+8SOOevbBrqq53wdp1xb29xfXLhpL4rLgAdOTk4453Zx2/QdEeRXs5rV5akcNCd401Zeu7 /HT5HPQjdObWrMifwnpM8pkazQE9QjMo/IECrmnaTaaSjraQiIOcsckk/ieatjig1wTx2KqQ9nOr Jx7XdjVUoRd0lcKKKK4TQKKKKACiiigAooooAKKKKACiiigAooopp2YHBUV3tFfVLPbL+H+P/AMf ZeZwVFd7RT/t3/p3+P8AwA9l5nBUV3tFH9u/9O/x/wCAHsvM4Kiu7kjSZCrqrqeqsMg1D/Z9r/z7 Q/8AfsVcc9g170PxF7LzOKortf7Ptf8An2h/79ij+z7X/n2h/wC/Yq/7cp/yMPZs4qiu1/s+1/59 of8Av2KP7Ptf+faH/v2KP7cp/wAjD2bOKortf7Ptf+faH/v2KP7Ptf8An2h/79ij+3Kf8jD2bOKo rtf7Ptf+faH/AL9ij+z7X/n2h/79ij+3Kf8AIw9mziqK7X+z7X/n2h/79ij+z7X/AJ9of+/Yo/ty n/Iw9mziqK7X+z7X/n2h/wC/Yo/s+1/59of+/Yo/tyn/ACMPZs4qiuwk0WylcsYFBP8AdJA/IGm/ 2DY/88P/AB9v8a0Wd0Laxf4f5i9mzkaK67+wbH/nh/4+3+NH9g2P/PD/AMfb/Gn/AG3h/wCV/h/m Hs2cjRXXf2DY/wDPD/x9v8aP7Bsf+eH/AI+3+NH9t4f+V/h/mHs2cjRXzJ+3x8NPGeoah4Z1nw4m o32gWyMJrSxDFbK4UlhcuQeAVJG8gBPL5Yb66j9hj4uTfFTwnqXh/wAQebfazoWx/wC0bi5LyXUM jPt3ZO4sm3Bbngrk56/e1MtisijnlCopx+1Fbx1sr69z355LJZesfTmpL7S6x6HudFdd/YNj/wA8 P/H2/wAaP7Bsf+eH/j7f418F/beH/lf4f5ngezZyNFdd/YNj/wA8P/H2/wAaP7Bsf+eH/j7f40f2 3h/5X+H+YezZ57rvinRvC8cD6zq9hpKXD+XC19cpCJH/ALq7iMn2Famc1i/Gb9mrwl8cLbSYtbN/ atpkryQy2FwEYhwA6MGVgVO1ewI28EZOfFJ/+CeiSLcqnxH1WNJdVGoqv2UYVRu64cZm+b/WjA4+ 56fU4LG5FicOp18U6c+qcG1vpZp9j2aGEwNWknVrOE+q5br5WPoWiurTw/YxRqvlEhQBlpGJP604 aHYN0hB+jt/jXzLzmhq1Ftd7f8E8f2bOSorrv7Bsf+eH/j7f41DJ4atHckGRAf4VYYH5g0o51hm9 U0L2bOXorpv+EYtf+ek35j/Cj/hGLX/npN+Y/wAK0/tjC939wvZs5mitjWNHh0+1WSNpGYuFw5GM YPt7Vj16eHxEMTDnp7ENNOwUUUV0CCiiigDlKKKK/RT5oKKKKACiiigAooooAKKKKACiiigAoooo AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+T/wBujwk8k3hrxWnmyfI2lXLM 6bEC5kgAH3iTmfJ5ACIOOM/WFeSftTeFR4n+DGsslsbm600pqEOH27NjYkfqAcRNLwfwGcV7GT11 hswo1H3s/R6P8z6rhfGvBZrSk3pJ8r9Hodh8KvHR+Ifw38P6o15FdSNaIk6wDakU4UCVQg+6dwP1 4PevJ/i5+yl4Y1Lwnqdz4R0X7F4iUm4gSK7dY5jnLR7XLKoIJwFCjIUZAzXL/sReOLNbPWPCTxFL 5pW1KOQAkSJhI2BPYghcf7x9K+q66cSq2RZhOGHbik7romt1e26OzH1MVw3m9RYeTSve3RrdX7o/ J+ivU/2nrC30744+Jora3htoi0EmyBQoLNBGzMQO5Ykn1Jz3zXl0cbyttRWdsE4UZOAMk/lX7nhM QsVhqeItbmSf3o/pLBYlYvC08Slbmin96uLK6uwKoIxtAwCTkgAE8+p5/GmV6F43+KVj4w+Gvgrw tD4cj0m48NicG+t7gFbwy7C7vH5YIcmNPm3nvxyMctqfhLUtI8OaLrtxEn9mav5wtZkkDZaJwsiM OqkZU89Q4I74xw2Jcor6xD2cpNpK6d7Xs9O6V7dCqNVyivax5ZNtWvfa9vvSuY1PeeR4kjZ2aNM7 UJJC564HamUV6R1n6Qf8E7/DeoaJ8H9UvL60ktY9S1Rp7VpVwZohFGocf7JYMAe+D2r6or8u/wBh 74laX8OvjTGus3UtpZazanTkkDkQrO0iGMyAdsqVDHhd+TgZI/UQHIr+FvEnLK+X5/VqVXdVfeTt Zem72PwPiPC1MNmE3PXm1Tt3/wAgooor8rPmAooooAKKKKACiiigAooooAKKKKACiiigAJxSBg3Q g49K8Y/a3+K5+E3wZ1S7himkvtV3aVaSQSeWYJZY5MS7sEjYFZhjqQBkZyPO/wBgj4O6t4B8H3/i e+1O2urPxNb2txZ2lpK7CJAHJMgIAD5cLgZxtPJzx9hR4fUsknnFerye8owja/O+ut9Leh6scD/s UsZOVtbJd+/pY+rKAMV83eFfG/xp1/8Aah1HSb3R5NI+HGnmaNjNZjybiIA+VLHPjLyOxQ7VbCrk Fcqa+kQa8fM8snlk6cJzjJyipe672v0fmcmIw7w7inJO6T0d7X6PzCiiivHOUCcUDgUHmvLvjj+0 R4Z+AUWit4ihv7g6tJIkCafCsjKE273bcygAb16EnngHmu3B4LEZhXjhsLBym9kt9NTajRqV5qnS V5Poj1EjNZd439ozR2z2zmBbgLMH2srAIzDOCSBkIecZyPWn6Tr1j4h8P2usaZeRT6feW63Nvdc7 GjZdyvzjjBB7fhV1JGeVxjCrgZOQSep7dMY5BPcdqUFLDylzR95XXmn/AJnPOOvKySiiiuNu5QUU UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB538dvij4Z+E3gC51PxbaTajpN24sGsYIUla5MgYFNr sqkbQ5IJxgHr0rkfgJ+z/wDDrwfqifETwTFqEEGu6bH9ltbqZmiggkCSfKrjeC21SdzNjnGAcV7F r3h7S/FOly6brOnWuq6fNgyWl7Cs0T4IIyjAg4IBHHUCrlvbRWlvFBBGkMMShEjjUKqqBgAAcAAV 9HTzV4bLXg8NKUZTb5/e92UdLK3dHdHEunQdKm2nL4tdGumhJRRRXzhwhRRRQAUUUUAch8W/DWue MPhxr+j+GtVXRNcvLYxW1824CNiRkZX5lyMruGSu7IBIwfkXwxc3n/BPfw9CfEkY8Val4ruzmz02 7aO1s4bcDdIpdMvI3nJwVUEKBuGOfumsvXvC2jeKYraLWdKstWjtpluIUvrdJhFKucOoYHDDJwRz zX2WTZ/HAUJZfi6anh5u8orSTdtPe3snZnrYTHewg8PVjzU27tbN6aa76OzNC3mFxBHKFZN6htrj BGRnBHrUmcUdBSMNykeor5B8spaaI8oAwboQfpS14/8AAT9ns/A/UvFt2fE974hOvXYudt0mzycF zlsMQ8jb/mfC52jgV1njD4y+DPAPiXSNA8Qa9b6Xquq5+yQzK+HGcZZwCqAngFyASDjoa9avgIzx UsPl0nWSV7qLTel3pvodU6CdV08O3Nd0n2108jd8T/8AHhH/ANdR/I1zNdN4mOdPj/66j+Rrma+k yfTDfNnl1Nwooor2zMKKKKAOUooor9FPmgooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA CiiigAooooAKKKKACiiigAooooAKKKKACiiigAqDULC31WwuLO7hS4tbiNopYZBlZEYEMpHcEEip 6KadtUVGTg1KO6Pz5sr+4+A/7Q1ykLHSrCz1QwSCUGUCwdwQTjJb90VYYycgd+K+/dM1K11nTra/ sp0ubS5jWWGaM5V0YZBHsQa+Sf23/Cmmafqvh7XbaKGDUtQ86K7IJ33AjEexsdPlBKk9eVHIHHuf 7N3iM+Jvgz4bmaIQtbQfYiqvuyISYw3tkKDj39K+2zlLG5fh8xS963LL1X/DM/TuJVDMsqwubJe8 1yy9V/wUzwX9uHwrcW/inQfESgtaXVobFisZxHJG7ONzdMsJDgdf3beleEeDtT0zRGv9TuJLqLXL FIrnRmh2GL7Ssyf61WVtwClnA4BKYOQcV9j/ALZeiT6r8Hxdwsgj0zUILqYOSCUIeEBeOTulX04z 9K+Fa+x4bksdlSozekXbTqr3s/XZ+R+j8H1/r2TQhN/C7fc72+47nQfixdaU/iGTUvD3h3xTNrkj y3FxreniSWOR929opI2Royd2flPBAK4Nc1catPN4ZstMaWE2tveXFykKq3mK8iQqzMcYKkRIAM5B VvUZy60vtenmG3t5LAfuUmD3NtKyyzyMD5ZbcWUKrbeFVSRnJyQV+jWCw+Hqe1pU9W76eSaWj0Wm mh9kqFKlPnjHX/JW+Wmhm0U6QoWHlqyrgcM2TnHJ6DjOeO3v1pteonc67n01+yf+yrrXxN1LQPHF xfWVn4YsdTEjxb2a5mMLK20KBhVZhtyWBAyQDxn9LQMCvl//AIJ4w6rH8Dblr2Ly9Pk1WdrBiuDI m1A7A9x5gcfVWr6hr+EfEPN8VmWd1aNeScaTcY26K/59z8B4gxdXFY+pGo7qDaVu1wooor8xPmwo oooAKKKKACiiigAooooAKKKKAPl39qX9qrxP8AfiD4f06w8PWmo6FdWv2mee7EiNOwkZWiikB2qy qFJJV8eYvHr9FeDfEJ8W+E9G1s2U+nHUbOK7+yXIxJDvQNtb3GcVrlFY8qD9RSgYFfQ43H4LE4Kh Qo4ZQqQ+Kd2+b5dDurVqNSjCEKfLJbu+/wAuhwvxk+Duh/G/wgfD2vSXcFsJ0uY57GURyxyLkAjI KnhmGGUjnPBAI0Phf8N9J+EvgjTfC2iGdtPsQ+yS6cPK7O7OzMQACSzHoAOwFdVRXnyzHFSwiwLq P2SfMo9L9zB16rpKi5PlTvbpcAMGiiivPbuYBRRRSAM8VzHxC+Gfhn4q6F/Y/inSYtW08SLKscjM jI46MjqQynqMqRkEg8EiunzzTVcOWAB+U4OQR2B49evauihXrYaoq1CTjJbNOzXzLhUlTkpwdmuq M/RtHs9D0yLR7GJLWwtIY4La2hfHkwqgRVGMEAbSByenXsNCNFiRURQiKAAqjAA9BUNrMLotOikR sMKxY/NhmGQOmDwQR1BHoKsUV5zlN8z16+pmnze8wooornGFFFFABRRRQAUUUUAFFFFABRRRQAUU UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUhYKOSB9aAwYZ BBHqKrldr20GLRRRUiCiiigAooooAKKKKADOBSBgw4IP0qh4h0j+39B1DTPtU9l9st5Lf7VasFlh 3KV3oSCAwzkHB5Feffs7fBD/AIUH4Gm8Pf27Nr5lvHuvPkiMKR7lUbEj3NtHy5PPJYmvRp0MNLCT rTq2qJpKNnqurvsrG6hTdJycveurK26738j1GikLBepA+tKDkV59na5iFFFFIQUUUUAFFFFABXlP xn/Zq8GfHW60u78QwXMN9YHC3dhIIpZYskmFyVOUyc9iCTtI3Nn1bvRXdg8dicvrKvhZuEl1XmbU a1ShPnpSafdGN4ijWHTIUQBUWRQAOgAU8VzddN4n/wCPCP8A66j+Rrma+wyhuWGu+7OCp8QUUUV7 RmFFFFAHKUUUV+inzQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA BRRRQAUUUUAFFFFABRRRQAUUUUAeUftNeBIfHHwn1RpLhrabR0fVYmVQwcxRPlD7FSw4PBwecYPl P7E3xBmnGq+ELu43RwRi8sIvL+6CxE3zD3ZCAfU19S6hYW+q2FzZXcKXFrcRtFLDIMq6MCGUjuCC RX5z6laeJfgR8UtQ0vSdV+z6vaP9mW7g2hZY5VVlyHyoyrKcHO098gGvuckprMsFXy1yXNpKN+nf 9L+p+qcNwjnOV4jKZySkvejfp3f+fqfUf7ad9cWvwktYoZ2iiudUhinRc4lQRyOFPtuRW/4CK+HK +ifilpXizQ/2fLaw8f6nKdePiAT2VrfXAuZpLcQMrESqz5w0hOGIwO/Kqfnavt+F6KoYOdNNStJ6 rZ7arufpnCWFWCy90YyUrSeq2YV0fw3v7bSviL4WvbyUQWltqtrNNKSBsRZkLNk8cAE81U8HNpa+ LdGOtoj6N9shF6sm/Hkbx5n3CG+7k/Kc+lO8anRz4y13/hHuNA+3z/2f9/8A49vMbyvv/N9zb97n 15r3sRJYiUsE4u0ov3raa6Wv3PqqrVVyw7T1W/Tt95tfGaz0Kz+KHiT/AIRnUrPVNDmvpprWSwha KKJGdiIlBUDCfdBXKkAEHBwM+58RW3ie68M2erRR6VpOl2qae0umQtJKYvNkkeUq8mGkLSuTyq84 AAGKq+F/BXiDxtdSW3h/Q9R1uePBkTT7V5jGCcAttB2jPc4FdLJ+z98TItTawPgLxEZ1lMJZdNla LdnGRIF2Fc/xZ245zjmvKq1cBhKUcNiMQlOnGybklLa17d7eRxTnhaEFRqVUpRXVq+1r+p+t/gyx 0XTvCmlQ+HILW30P7Oj2aWSBIjGw3BlA45znPfOa2uormvht4Qj+H/gHw/4bjmNwNLsYbUykY8xl QBmxzjJycds10ucGv898daWKqOMnJXer3avv8z+eKlnN2d9dwooorhMwooooAKKKKACiiigAoooo AKKKKACiiigAooooAKKKKACiiigApkcnm4dCjQsoZXVs7s/0xjnPf823EcciASqXQnBUAkNn5cED qOe/HftToIUtoI4oxtjjUIq9cADArW0VC/UWtx9FFFZDCiiigAooooAKKKKACiiigAooooAKKKKA CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPNv2gPg3/wAL 0+H0vhn+259B33EVx9oiiEqvsJOyRMruXnOAwwyqcnGDd+B/wt/4Uz8NdK8J/wBqSaybIysbx0MY cvIz4VCzbANwGAexPUmu87UV60s0xcsCstcv3SlzWst9r3tf8TqeJqugsO37id7ef5hRRRXknKFF FFABRRRQAUUUUAFFFFAHm37QHwb/AOF6fD6Xwz/bc+g77iK4+0RRCVX2EnZImV3LznAYYZVOTjB7 Dwb4d/4RHwno2ifa59Q/s6zitftdy2ZJtiBd7H1OMn61sMTtOOtfIEPir9pHVf2jL7SbW2ubTwVa awNzXGnwLZnTvNADLMyhpGMZDFUcsCSMDBA+xyzDYrOcJPCe3hCnRvO02ldvR2drt+R6mHp1MXSd L2kYxheWrt92mr8j7AooHSivj2rHlhRRRSAKKKKACiiigDI8T/8AHhH/ANdR/I1zNdN4n/48I/8A rqP5GuZr7zJ/91XqzmqbhRRRXuGYUUUUAcpRRRX6KfNBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8dftsfD97DxBpfi+2jQWt8 gsroooBE6glGY5yxZMr04EQ55FfYtc18SPBNt8RfBGr+H7khFvYSscpyfKlB3RvgEE7WCnGecY6G vYynHPLsZCv02fo9/wDM+k4ezN5TmFPEP4dpej/q58GeAodc+M2t6b4K1DVLm6SVmktby7LXDWIj iYkLubIjYAAqCOVQ/wAODxHiLQ7jwxr+paRdtG11YXEltK0LbkLoxU4Ppke30FemfCvxtqP7PPxZ urHVkVLRbg2OqKIix2BiBLGSu7AyHGPvL25GO7/bQ8MaXLdeFPGuilbm11u2aOe6gQCNmUI0bMQO WZXYAknKxjGNpA/WYY94bMqdCMUqNVXi1tzbv710+Z+/08wnh80hhlFKhVjeLW3Nu/vX9anzPU9x PFLDbLHbrC8cZSRwxJmbex3EHp8pVcDj5QepNQVJbwrPMsbSpArf8tJM7R9cAn9K+tklu+h9i1fU +pv2D/iD4e+GmoeO9Y8S6ra6VYJYwBWuJMNK4Z22Rr1dsK3yqCfSvs74J/tD+Efj1ZX0nh17m3vL LBuLDUIhHPGrEhX+VmVlOD91jjvjIz8Z/sxfB34U/HfwQfDt/Pqun+Oba6a7untrsI0tuMKGQMjI UG4DGC4buFavafEP7OvjL4FeG7Sy+A80j32qXg/tvUNUuLd7gwqpEQG9AgjUvISUHmZK43c4/lfj LCZPmeaV4VJypYqTSTn7sEoq129bppaedj8ezqngsVjKsZScKza+LSKSW99dGlp8jzT40ePPjV+z 78Q/GHiC71qRtF1uee10JZ71LmCNGcOjx2xY7GjjG0koBuIzvB59P+H3h740fF3TfhJ45ufGY0ez iUz6tp6hoDeQ+eWSQxoPLk82EKMMFC53DO4gZfw+/Ya1TU/E+neI/i14uPjGe1DI2mNJNcLIoyYw 1xIyuVDMWKbQM8ZIyD9fW1vFZwRQQRpDDEoSOONQqqoGAABwAB2r5fiLiDL8Jh6OFy+FOpWStOoo WVuVxsr6vu3tc83MMfhqdKFLDxjKaXvSUbJ6Wsr/AJ9yUdKKKK/FG7nyAUUUUAFFFFABRRRQAUUU UABrlvEnxT8G+DdRFhr3ivRdFvSgkFtqGoQwSFCSA212BwSDz7Gupr8xP2+rJrX9oW8lawe0W50+ 2kWZpt4ugAU8wDJ2Abdm3jmMtj5sn77gvhyjxPmTwNao4LlburdLdz3sly2OaYn6vKXLo3+R+l+k azYa/psGoaZe2+oWNwu+G5tZVkjkX1VlJBHuKuA5Ffn9/wAE573xXc+M9btkub9/B1vYOZIWkJtY 7ppI9m0HgOV8wnbjIHPavRfgj468d/Dj9pTXvhn4zv8AUvF/9sMb2z1EySeTaxhZJN6pIvyowwhV G2oy7RuPT0M44Knl2LxeFo14zdCKnbZuL38rpatfca4zJpYatWoxmm6av5tdfu6/gfXlFFFfmJ84 FFFFAAKMcUVE0SzuS8Z+Q4Xccq3Q5xnsQME8jBx71FJ7gxstv9qRBL8oWQPtVshtpyuePUA8dxjk dZ6MUUOTenQEgoooqQCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooATPNKKK4r40e N7n4b/CzxL4ksrSS9vNOs3lhhjjL/P0VmA52KSGY9lDHtXVhcNPGV4Yen8U2kvVmtKnKtONOO7dv vO1FIRjnFfKH7GHx1+J3xYvL638W6f8A2joMNu8sXiM2n2ffMHUeTlQI34LH5VBG3knIr6wr085y ivkeMlgq8k5LrF3R0YzCzwVaVCo02uzugooorwjiCiiigAooooAKKKKAMjxP/wAeEf8A11H8jXM1 03if/jwj/wCuo/ka5mvvMn/3VerOapuFFFFe4ZhRRRQBylFFFfop80FFFFABRRRQAUUUUAFFFFAB RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8sfti/B 6S+jTxzpNu8k0SLBqcMMY5jAO2c45O0YVjz8u3oFNJ8JviZH8Vf2ePE/w81C1gvNb0jSbiawt47c vLdRxQ/uW/34zwAvJ+Xgkk19Q39jb6nY3FndQx3FrcRtFLDKoZXRhgqQeoIOMV8FWOo6t+yl8fzc 28cs0NhMwRJCQLyykBABOACdp5IGA6H+7X3OXVHmuBeCetWl71PW2q6f1+h+wcPYt5zgHgan8Wja UH1aXT9DxutPTLjRodPvU1Cwv7q+dcWs1tfJDFE2DzIjQuZBnBwGToRnnI6LxZ8LtU0fSn8S6bbS 6j4MnlP2PVo2V/kLYUSqOY3BIQ7gBuBAJ4zxVfrNKdLG0vdl62bTTXR21Xmvkz9po1aWLp3hK9t7 PZro7fii9ouu6l4b1KLUNI1C70u/iz5d3ZTNDKmQQcOpBGQSDz0NdP8A8Lv+I3/Q/wDij/wc3P8A 8XXFUUq+X4TEy561KMn3aTLqYWhWfNUgm/NXO1Hxw+Iw/wCZ/wDFH/g5uf8A4uv0r/ZB8e6z8Rfg Vouq6/dtf6kks1q904w8qxuVUsf4mxgFu+MnJya/J+v1G/YRYN+zdoOFZSLm7BLNkN+/fkeg7Y9Q fWvwzxZy7B4bJKdSjRjGXOldJJ7M+A4vwtCjg4SpwSfN0SXRnkn7WXxk+OXw0+JGrP4fkvdL8Dww 27W99DpUM9udyqGLzPG+1vNLLtJHAXjkE+Cf8Nr/ABoP/M6N/wCCyz/+M1+oPi3XrDwt4Y1bWdTB On6faS3dwFXcfLRCzYHc4B4r8ifjd4q8LeNfiRqeseDdFfw/oNwsXlWDQxQhGWNVYiOPKoCQTgE5 JJzzgcHh1Wy/P6H1XE5ZT/dxS9pyp3atvdXu9zDhqWGzGPsauFj7i+Ky12303e53kv7cHxkks4IV 8VRxyRs7NcLptrvlBxgMDGVwuDjaAfmOSeMdDcf8FB/inPoxskXQ4LkxCP8AtGOyczhsY8zDSGPd 3+5t9scV8/aX4T1XWtC1rWbO187TdGSJ76fzFXyVlkEcZ2kgtlyB8oOM84FZFfrr4U4dryssJTbg 9bJaPezt5NaPofY/2PldV2VGN4volvvr/kz6T+G/7Znxf1L4g+G7K88RjV7W71G3t5bF9PtkE6vI qldyRhgeeCD1x16V+minIFfil4K8U3Pgfxdo3iCzRJLnTLuK7jSQAqxRg2DkHrjGe3av1E/ZR+NO vfHH4dXWu+IdMtdOuYb+S0jks1dIZ0VUbcquzHgsVPJGVPTkD8H8VeGaeEjSx2AoQp0oqz5bJtt6 aLc+A4syyOHcK+HpqMNnay19Ce7b4vD9o218lrIfCj7J+9yYi5k8tuoOJRJ5mOmU2YP3sivYxXzN +034J8IW/wAUvh7478V+P5/Ccen3McMFj9nklS5ZJfN+VkIMOc7XkIIxs+7jn2f4neKtZ0H4Y6vr vg/TV8SavFaCewtIv3iz5xhgFILgKS21TlsYXkivyTMcGsZSwM6KS54qN+VwjdO2snpJ92j4+vS9 qqDgkuZJbcqunbVvRvuzsqK+Xfht44+P0Pwo8d+KPFGg/bdXMSXHh7R2tUinGS3mKYlIfagKkI/7 xtpGSSM+X/D39sf4o+AvEuhaV8WNCli0jUJzG2panpr6fcqpZQXHCxske4EgJnB6+vdS4Ix+J9ss LVp1JU3a0ZXctLvl72/M6YZNXq8/spRk49FLV6Xdu9j7yAxXyZ+2P+zB4z+NXiLTte8NX1nPBYae 8B0m7laJ2kDs+6I4KFnBVTuKAbFySD8v0x4X8ceHvG9tNP4e13TdchhYJLJp13HOsbEZAYoTg47G tvrXg5RmuO4Yx6xVCPLUjpaS7nDg8XXy2uq1LSS7o+Xf2LP2c/FXwTh8Q6j4oa1trjV4bdI7C2mE rwlDIW80gbd3zDGxmHJz2r0D4BfDT4geAtT8XT+OPGA8Uw6jdiXT0EkjiBMuWOHH7vcCn7tCVXbw TXsXegjNb5lxNjs1rYitiFG9bl5tFpy7We68+5WJzGti51KlW152vp22t2CiiivkjzAooooAa7rE jO7BEUZZmOAAO5pJIRI8THrG24cA84I7jjr2x+WaWSRY1yzBQSBljjknAH504dapO2qDcKKKKkAo oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii igAooooAKKKKACiiigAooooAKKKKACiiigAooooAAc0E7QSegoAxQRuBB6GmrX1GeY+Ff2lvht41 8Z/8Ipo3iaK810vJGtt9nmRXaPO4JIyBG6EjaxyBkZFenHmvHvA37KngH4e/Ey88b6PYzQ6lNvNv atIDbWTOCHMKBQV3AsMEkAMQoUcV7ATtB9q93N4ZYq8I5S5uHKr89r83W1uh2YtYZTX1Vvlsvite /XYU0hAIOQCPevMvg5+0L4W+ON74gtvDq3ofRZlime6hCJKrFwkkZDHKtsbGcNxyBXQfFkeK2+HW ujwP5P8AwlRtz9g88qF35GcbgV3bc7d3y7sbsDJrneXV6GNjg8T+7k2k+bS17avys7mbw84VlRqe 67rfS1+5saH4q0PxJJex6Pq1hqb2Uxt7pLK4SUwSDqjhSdrDB4ODWsTivzBX4DftA/Bpbe50Wy1e 2fVpYHnbw/dCWQTKZNqT+Wc7RlixOYvmGWJxj9IPAa66vgrQh4naNvEX2KH+0DCAF+0bB5mNvH3s 9OPTAr6nifh3DZMoV8JjI14T00d2rb3+Z6eZ5fSwXLKjWjUjLtv8zeooor4A8MKKKKACiiigAooo oAyPE/8Ax4R/9dR/I1zNdN4n/wCPCP8A66j+Rrma+8yf/dV6s5qm4UUUV7hmFFFFAHKUUUV+inzQ UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR RRQAUUUUAFFFFABXjH7Uvwsm+IngA3WmwRSazpLm6jxFulmiCtvhQjnJyGA5yUA75r2egjIrqwuJ nhK0a9PeLuejl+OqZdioYmlvF/0j4z/Zt8Tab488E638K/Et75Frdr5mmkSeW+S25kQ9CQ4Vwpzn LZBGRXgXi/w+3hPxVrGivMLltOu5bUzBCnmbHK7sHpnGcc/U16h8fdAn+Ffx5l1iz09orKS8i1ay M4zFM4KvIAQenmbgV4IBHGCCff8Axf8As7eCvjVoieJdEkGi6nqu29Oo2pM0cpYAsHiLBcnnJXad 2ScnIP6pTzGjltaONd/Y11dpaqM9L/8AB8z95p5rhsqrQxzbVHEpPTVRnpe/r18z4ZopWG1iAQQD 1Hekr9BTuro/Sk7q6Cv1b/Yx1Sy1T9nLwn9igNstuktvKmAMyrK+9uP7xJbPvX5SV+nX7Hus6f4F /Zc8Pah4ju7Pw/YvPcut1qEy26Mr3D7GZnIGW7eoxjrX4Z4u0vbZPRhDWftFZLd6PofAcZR5sJTS 35v0Z41/wUD+IHjTwv8AEXQbDStb1fRtCm0rzFFhcSW8U8xlcSBmQgOQoi4OdoYdN3K/AX4T+Afj z+zpJZSWOjz/ABD0q3vYbZ45TazRO2fs8k6xEGRc7PmdWHBHJ3Z9c/a3+Dln+0J4B0XxFofifSbV dGWa4ivrq5X7BLbybPMZpVDbceUpDDI4IPXI/ODw94k1Pwnqg1DSL2fT71Y5IVuLaQo6q6MjYYYI 4Y1x8K4SGecOUcNgKnsMTQknJpNO6vZS2umtzmymgsxyuFLDT9nVpvVrTXW19t0dT4L+I8XhX4d+ P/ClzZS3MfiaG0VZIpFTyZbefzFZsqSRyeBjPTjORwdKTxjA+tJX7ph8LTw8p1Ir3ptOXm0kvySP 0KnRhScpRWsnd+tkvySCvov4vftgan4p0rw1ongOPUvAmj6FGIkazvzG90qoixhlQDaq7W+XcwO7 npXzvBBJdTxwwxvNNIwRI41LMzE4AAHUk9q+9/2fP2CdIs9Ksdd+I8b6hqUyrMmiJIyQQAgELNgB mcHqoO3qDuHNfB8ZZhkeWQpYvN1zSjzckd7tqz02fq9j53PMRl+FUK2MXNJX5V676bfebv7c/wAL tc+JPwv8K6xommahrGq6VMPNs7SNZpTFNGN77UBLEOkQ/d8YZjggZXb8c3XxQ+HH7KXg2HwVpU6e K7S0sLa8t7O0FzPaxCLD7YmD72DBFbhsbmPGMj1D4kftBfD/AOEOp2um+K9fTS724i8+K3W1mnYx 5K7iI0baMggZxnBx0Nafw1+MHg/4wWF3d+Etai1aG0kEc6iN4pIiRldySKrAHBwcYODgnBx/LKzT M6WW4Z18FzYalNyTlF8rUns3ta5+TLEYqGFoqpRvSg202nZ36X2sYeq/EjW/AH7P8fjHxHo8t94g s9Ihur7TbVShM5Rd6nAbYFYkscEKAx5Ar84/it+0N4q+K2iz6d4ysLS9ka4F9pV3JbCGbT4n5McR ULvjZdoy+7O0HJIBH6FftFfDbx/8RrHw9F4E8XDwrJZ3hlvSZJI/OTAwcoDu28/u2G1t3JG0Z+XP G37AHiofFDTTY6m/iLw1ql6ZtT1OV44LqzRpcybgxPmMUOQyry2cqoxn7vgLMOHsAp4vMJwjVm3N bpxt9ldFfprrsfQ8PYjLcMnVxLipu7W91bp2V/XW9j5y+HXxj8UfCvTvEdn4bvRYDXbZba4nRSJo wpJV4nBDIwDOMg/xZxkKR9E/sz/teeJNF8W3eheNvE0viLRYrGVNPDQGW4ublGBjSOTYJHaQbgPM ySdo4JwdD9pb9ki1+EvwoS78DaTJq8UUjS65qd+yz30cAIKGMBQqIDne0YDYAySu/HOfBOX4dfBf 4Z+DvGfxK8Kz3usajrFxeaBc2UbNMsMQhUyyqZEUqrjKgg4yGUfMTX6BmWOyDiLK6mLo4b2kqsnF JKPtG0tH3Wi/8B1PfxeIy7MsJKvTpc0puyStzXS38tF9x9k/s7/G4/HvwNN4iOgT+H/KvJLTyZJv OSTaqncj7V3D5sH5RggjnFNuf2kfCNt8aY/hizXbeIJEB85YlNsshjMgiLbtwfZz93HIGc8V6daz xXdrFNFzFKgdTgjIIyODyK8Wufgf8N/hF478Q/GPU57q2ul8y7lmu52kgs2dSsjxoF3Fn3EbSW+9 hQOBX80YNZRisXiPbUZRTTVOEdXzN2SberPzOl9Vq1KnNBq69yK116JvqZ/wB/a90X46+L9W8Ox6 PPo15bK89o0kwlW6gVgpY/KNj/Mp2c9T8xxXv9fHX7L3wz1Cf9oTxf8AE6xazuvA2tJeSaZqUM4J naa5R9vlna6FdrqwdRgjA3da+w/MXP3h+dbcW5fgsFmCp5bFqHLFtau0rar1T37M0zWjQo4nlwyt Gy0veztqvkOxxQawNF+IHhnxJq15pek+IdL1LUrPcLmztLyOWaHDbW3orErhuDkdeK3wc9K+Nq0K tB8tWLi/NWPJlGUHaSsNLgOF5yQTnBxxjv07/wCcU6o5kLpt3bUOQ55BIwehBGDnHP8A+uh5HDRB E8xWbDNnG0YJz78gD8faoULpNGd7ElFFFZjCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACigkA ZPA96Acjjn6U7O1wCiiikAUEZFFFGwGXovhbRvDc19LpWlWWmy30xuLt7S3SJriU9XkKgbmOTycm tSjNAPFaVKk6sueo233ZTk5O7AjNFFFZ3JCiiigAooooAKKKKACiiigDI8T/APHhH/11H8jXM103 if8A48I/+uo/ka5mvvMn/wB1XqzmqbhRRRXuGYUUUUAcpRRRX6KfNBRRRQAUUUUAFFFFABRRRQAU UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHkP 7TnwvHxG+HNxNawGXWtIDXdmEXLOoH7yIAAk7lHCjqypzivK/wBiz4lkPf8Agm9mJB3Xenhz0/56 xj9HA/3zX1kRkV8NfGrTbv4JftEReJrS3Y2V1dDVYMliJNx/0iMsRjJYvwM4V09a+yyef1/C1cqq btOUPKS6fP8AzP0vh6ss1wFbJau9nKD7NdP68zp/2k/2Z9N8MaLf+MPDBe2t4pRJeaWRmNFYqu6H AyoDHJU5ABOCoUA/LtfpT430u0+Lfwl1W102WO7i1WwZ7SRZSqGTG6IllPQOFyOehBB5FfmtX23C mOq4nDzo15Nyg+u9v+HTP0bgvMq+NwlShipXnTdtd7dL/ieu/AXxho/w5i8ReNH8ubxj4ft4pNBt LyYC2maWQQTboxhnZElLgKw43EjjIs/Gj9q3xf8AHTwxa6Fr9jo9rZ212t6jadBLG5dUdACXlYYx Ie3UDmvGaK9SeQYKrjXmFaPPUTvFv7Nlay8r3fzPrpZZQniHiqi5p30v002Xz1+Z9WfBz9lzxRb/ AAt+I2s+KZJfDWkX/hxZbE/aY2jucMtyssgjZyqp5Kghl3FZmxgg18p16x4P/am+JngzUori18T3 V1aIkMDabeBZbVoYwFEaxkYjBVQC0e1jyc5Oa8pfbvbZkrngkYOK48jweZ4bE4qpmDi1UcXHk0S0 s1Z630Wt9THLqGMo1a0sU1aTTXLttZ/khtFFFfYHuH2F+wDY/DbV/Ej2+paXNc/EC233lnc3nzWy xKVH7lc4EgJzllyOqnrj9ALu6hsbWW4nkSGGJC7ySNtVFAySSegA71+LXgbxpqfw78XaV4k0aRIt S06YTQmRdyN1BVh3VlJU4IOCeRX3bN+1ponxN/ZY8WTavc2Np4xn06706XRbSXEsjOhQSxRsxcxh XDsfm2hXyflNfy54h8H47FZtSxtOUp0qjjF635G30XSJ+S8R5NiJ4yNeDcoTaXezf6Hx9+0Z8Rf+ FpfGbxPr0UwmsWuTbWTIzFDbxfu42XPQMF349XNaH7NHxvn+BfxJttWk8yXQ7sfZtTt41BZ4Schl H95Www9eR3rjtC+FvjDxToyatovhfV9Y055ngFxp9nJcKHQKWB2AkcOvJwDzjODjnr6xudMvZ7S8 t5bS7t3aKaCdCkkbqcMrKeQQeCDX7zDAZZjMteSqUZQUeVpNNqyt8mvzP0JYfCYjCvAJpxSta6ur afeftRqPjLQtH8PR67qGsWNjozoki6hdXCRQFXxsO9iBzkY55yK5w/Hr4bKUz4+8NDeMrnV7f5hn GR8/PIP5V8ZfBm3H7T/7Os/wruNfh0/xT4euft2kRyl/30CghRN8pBQGZkyhJXCHbhcP2unf8E// AAd4Z+H66v441/U49R061ludSk0mdBa7ULOSoeIvgIACeM4zgZr+TqvCmS5bVqYXNMTONZTcVGMb tr7L+Z+PSyzB4aUqWLqtTUrWUb3XR/Ms/tSftba7o+saJoXwq1fSdU/tBBu1DS5IdRnM/mBVhSMF wCRj7yHdvAXlTXudn8LtN+NPw18FTfFHw/b6lrtraw3cscgaFobhkUupClSMnG6M/KSvI4GPyYu5 YE1GaSw8+G2ErNb+c4MqJn5dzAAFgMZIA57Cvtf9in9p/wAUeIvFdn4E8T6lZ32n/Z5pLfUdTuH+ 3SS71KxCRmIlPzNhSA2Bw2F2n9D4o4KrZRktGtk1lKjeUpLSbTXdPtpY+lzbIp4HBU6uD3hdya0k 7+Z9zqoUYHAHavJfjr8VvhV4esZPB/xI1KBINXt9zafLbzy7492A5MSkp8y5VsggrkHK5HrYORXw 1/wUb+Fl3PNoXxBtPMmt4Yl0m+QAkQrvd4ZOBwCzyKSTjJjA5NfifBuXYXNc6pYbGVZU77NOz5lq tX5nxWT4ali8bCjVm432a3v0PlX4w6LL4H+LGv6XaK1ha6bfP/ZaQzFvKtS5ktmRwSeUZHznJLEn kmsm1+I/imy8VnxNB4g1GLxA2N+pLct58gAAwzZywwoBByCBg5rnKAMmv7wo5fRhQhTrxU2o2ba3 773333P32nhoKnGFRKTSs21v/wAOaWjeJNX8O6p/aWlape6XqI3AXllcPDKN33vnUg89+a9k8Cft QfFnwD4P1i/g1yfV7S/nSyjvdbuWvJLSYIzZhWRyQcEEkhk4GQSRXhNbE9tqbeELOdrcf2NHfTpH cKFyJ2jiLqxHI+VUK54OHxnDY4sxyrAY9RhiKUJJtL3ktlrZGGKwWHxLiqsIu76rtrofVXiv9qPx L8QP2P8AVF1OEtrMuqRaHd6om2JZ4nRpiwVQBuKp5bKBjDbu+B9Wfsq+H20D4BeB43vLi7aXTEuR 5zkhBMTKFAPZQ4UegUY6nPwV+zv+0hZfDPTZPB/izw7p/iDwHqF011ewyWazTiQqgVgrMEdQY0OG Ge4PAFfpt4P1nStf8MabfaHNBPpE0CNaPbk7fKKgx8EAg7SvBGRnFfy74gYOeS4d5fSw3s6Uqjmp K1mmrW8ra6H5LxBQlgV9VVLlg5OSa2elreVuxs0UUV+CnxIUUUUAVdU1Sz0TT7i/1C6hsbK3QyTX NxII44kAyWZiQAAO5pml6xY69pkGoaZe2+oWNwm+G5tZVlikX1VlJBHuK82/aZ+F/iH4v/Cu88Ne G9VttLu7ieJ5RebhFPErZMbMoJXna2QpztxjDEjoPgv8NYPhF8MtB8KwyCdrCH99OM4lmdi8rDPO C7Ngdhgdq914XBQy2OK9res525LbRS3b9TsdOisOqnP77duXy73OU+AXxH+Ifj3UvF0Pjjwd/wAI tb6deCLT3MbxmdCXBGWLCTaFX94hCNu4Few0AY7UZrix+Jp4vEOtSpKmnb3VeysvPvuZVqkas3OM VFdlt+IUUUV55gFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU UAFFFFABRRRQAUUUUAFFFFABRRRQByfxX8BH4n/DvXPCw1OfR/7TtzB9st1DNHyDyp+8pxhlyMqS MjORW+DXw3/4VJ8N9H8J/wBqTa1/Z6OpvJ1Kl9zs2AuTtUbsBcnAArtc0V6H1/EfVPqPN+75ua1l va1777G/t6nsvYX9297eex8w/H39qzxX4D+IF34E8GeA7nXddS2iuorqSKaZJFbBYrBGoZ0Ayu8O AGBBHynP0L4N1LUtZ8JaNf6zYDStWurSKa7sQ277PKyAvHn2JI/CtgopOcDPrilr0Mdj8HiMJRw+ Gwypyj8UrtuT+ey8jatWpVKcIU6ai1u7ttv9PQKKKK+fOIKKKKACiiigAAxRQa8w/aH8ceNPh98P zqvgTw6PE2sC6jje1MMk/lxHO6Ty42DvghRhTxuyeFNduCwk8diIYam0nJ2V3Zfea0qbrTVOO776 Hp+aDXG/Cj4gRfELwfYXss9gNcSCIarp9jcLKbG5KgvC4BJRlOQVbkYI5xmuyrPE4ephKsqFVWlF 2ZM4SpycJboKKKK5iAooooAyPE//AB4R/wDXUfyNczXTeJ/+PCP/AK6j+Rrma+8yf/dV6s5qm4UU UV7hmFFFFAHKUUUV+inzQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV4b+154DtvE/wAMJta8qeTU9CImt/Iyf3bu izBl/uhQHJ7bOoGc+5VX1Gwt9UsLmzu4UuLW4jaKWGQZV0YEFSO4IJFdmDxMsHiIV4bxaf8Amvmt D1MrxssvxtLEw+y193VfNHwj8Gf2ntY+FmnW+iXVjDq3h+JmKxLiKeHcxZirgYbkscMCecbgKs/t FfCHQ/BvjG8u7DXtI0e1vbf7dbaJJHcGYHBDJH5cboAzKdu5kUZwMBc143r+jXHhzXdR0m72G6sL mS1lMZypdGKtg9xkGu2+MniHUfFUfgfVNVUi9m8PRqzMfmkCXNzGsh46sEDf8Cz0Nfs1TBwhjaOJ wkuRVb81ra6cy0d10d3a+p/SSwFOlj6eMwb5FVT5rfa6p2276nnVbH9n6QfCH23+03GvLfeSdMMJ KtbGPImEnQEOCu3kncDxjnHor6mpBztaTVn0tr5H1kouVrO1gqZ7gPbRxeTGGRmPmqCHYHHynnBA wSDjPJ5IAAhra8G6tDoviO1up4reSPEkW+5BKQtJGyLNwrHMZYSDCk5QYBpVpOEHOKu1ql3CbcYu SV2jFor2P9mrxf4E8Ka14pj+IEM13ouo6NLaraIrNHO+9HCkKMh8oNj5G085BwR45XFh8XUrYmrQ lTcVC1pdJXXT06nPSrynVnScGlG1n0d+3p1NHR/D99ryX72USyJYWrXly7yKgihVlUtliM/M6gAZ JLAAEmrmheLp/D/i/S/EEFnaTTaZcRXFvazIRCDEQYwwQqTgqCTnLHJYkk59O+CWqfD+z+F3xL0v xj4gbSdQ1u2t4NPjtrCSecGF/PyGCFQrSLECpdc7TkjCsPFK5KNV4+ticNXptRi+VNppSTir2fXW 607GFOp9anWpVINJOy0eqaXX1utD9hvgL461X4m/CTw/4m1ywttP1HUIWkeG0JMZUOyqygkkBlAb aSSM4JzXwr40+D+m/Hf9pfxj4b8FRSaDqUF7cXd/Pq10ZIJsSKs7xIse5D5jlgpZgwbIMYAB4nwJ +1T8R/AvgTTPBXhW7t9Pgtrl3gmgskmuZfMZmMZDhlYFnyMKG6DOOK/RD4O/CDTvCiQeL9U0W0tP iLq9hENdvbbKiSdgrSgIrGNSXXLFAAzDd3r+a8ZQxHh5isVjnJJ1nJUoxbdtdHKL6W9dT8trUqvD dapWuk53UEntru12t66nkv7LP7JXiT4EfErWdc1XWNMvtNlspLK2For+dKDKjB3DKBHwnKqzcnqc c+/fFvw3rvi/4ca9o/hrVhomuXluY7W+bcBG2RkZX5lyMruGSu7cASMHyzx38X/inof7QGkeFtE8 CjUvBdxJbLPq5t5XARz+9k89W8uPZz8rrk7PR1r6AVgw4IP0r8yz7G5rVxtDOMc4yqSUZK1mtNuZ dH5M+ax2IxM68MXXacmk1az22uv0Z+ZPxz/Y2vfgp8LbDxRda/Df36yR29/ZQoBEruz4eKRmVmAH lrt2FidzcLkLyX7Nn7Od7+0FrmrWn2qfRtNs7Xf/AGstv50ST702xldy7iULnAYYwD7H7C/b88Ue E9L+HOjaP4l0/UNSuL69NzYQ6fdLbMjRLtdzIyOAAs2MFDnf2xkfCPgj4ua78J/E19qvgS9utBW5 iMHlXLx3bGM4I3kxqjEMMg7Bjp0Jz/SnDGZZ9xFw3UqRlavJvlnJLltfayu++6sfp2V4nMcyyuUl K1Rt2k0rWvt+fQ/XXwloSeC/B+k6O97NeppllFbNe3TZklEaBS7k9zjJ+tfM/jf9uf4c3njS88HX +k/2/wCDpozb3WtIfNhdzkMvklfnjH98Mc9VBGCfG7X9uDXtf+BnjHQvFMdrqWvXUK6bZ3cIEEsq TpMsssiqNv7sAcqFyXQEdTVH4BfsRXnxf+Hlz4i1jVbzwtJPKBpiS2PmLNDtVvPILKWRgxC4I+7u ywIFfm2WcH4LJZV8dxXNxakoxcW9W7PmVtdL9j5fDZPQwPtK2cScbO0bPrvdW1PHNC0XTfiv4uvN J0PQk0PU72MrolhZ3UjQNMrbvLlaZnYs8YZQwZFDhcgKSRxOl6reaJqEF9p91NY3sDbori3co6H1 BHIr6y/Ya+Duj678WtX8RQeInvR4Ru3jggSzKLeJIsscc5csdoIDHZyeBk46/TfhD9j3wD4I+Kf/ AAnOlR30F4jyyQ6Z5qfYoGkQoxRNm4DDNgFiBngDAx+i5px/leQ4qtgKnNUioRaTv8TXwtvWzXK7 69T6bF8RYbAVqmHknJKKtvvbZt9LW/E+IPit418JfF3wZdS+E/hza+Grnw3Hb3V5rVskcAuYpCkM ivFEoQMZpIyuSx2q5G3kHyN9VsJPBEWmst0NUh1F7hGXb5DQvEqsG53Fw0aY4xgt6iv0f1n4V+Mb z4sSeE4fDuhW/wABbyzYXenWtvBCjSFCxbagWVZvNCkMp2hQpzuHHy38Gf2YNM+NelfEqw07+1NH 1vRdRWPS7nVU2xBAZQIJ1ABDnaN+FyhCEDqrPIuKsrpYOUqr5acHCatLn5VPS0m9U07tpaJPQjLc 2wlKg3PSMXGStJyspaWd9b3vddDzgfCDTn+A7fEGHxELu/jultJ9DtYFke03SMqSzuHJjRlRsbkG SVweRX3t+xN43i8d/s+6bYsUW50dpNKnWOLaAF5Q85DExuhJ7nORXzB/w7m+Jmf+Qv4X/wDAu4/+ MV7R8L/2W/HvwA8XR6z4d8TnVvDsGmyT3egCd4zf332cr5YQjywpkClZGIZRhT0LH5njDM8oz7Lp YWOPjOrzucNLJL+S/wA9G/meVnWKwWYYZ0liFKfM5R0tZfy/8E+t4wwRQ5DOAMlRgE+wycU7HNfM 37LP7VHiD40eJtW8L+JfDCabq+mwvPNeWQdIUKyKnlSRyEsj5J/iOdrcDFfTIr+cM3ynFZNinhMY kpqz0aas9VsfnmKwtXBVXRrK0l8wooorxTkCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPHPil 8SPiJ4X+LHgrQ/DXg3+2vDOqSBdT1QxuwtwZArfOpxFsX58uCGzheQa9jByKCM9qM816OJxVOvSp U4UlFwVm1e8td2b1KkZxilFKy+/zYUUUV5xgFFFFABRRRQAAYpGUMpB70tBOKcZOLuhnmXwd/Z78 L/BC+8Q3Xh5r55NbmWWb7bP5vlKpcrGhwDtG9uWLMe7HFem0A0V14vGV8fWdfEzcpvdvy0NatWpX m6lR3b6sKKKK4zEKKKKAMjxP/wAeEf8A11H8jXM103if/jwj/wCuo/ka5mvvMn/3VerOapuFFFFe 4ZhRRRQBylFFFfop80FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHwz+2doNppXxXgvLbYkupWEc9wgZixkVm jDkHgAqigY7qSR3PkXi7xffeMbuwmvpGk+w2EFhCGOSqRoB16nLFm5/vfSvqT9uXw9c3egeGNaiQ NbWU81tMwzuUyhChxjp+6YZJHLAc54+Pq/dOG5QxOX0aktZQuvTX/K3yP6i4UrRxeVUKr1lFOPpZ /wCVgooor6w+zCiir2pCwllhOmR3SIYVMsVyyuUkAO7aygblONwyoI3bfm272hz5ZJW3JcrOw3SN Hv8AX9Rh0/TLG51G+nJEVraQtLLIQCSFVQSeATx6V3HxM+Hej/DaxsLObUp73xReQx3NxpqhVGlK yhvKmOD5jndxgpgLkrhlrm7y5t/C15pN14b1u8OoraLLc3dvut2t53DB4oyMEhVO0sDhsnHFc/Xn 8lfEVo1Iz5aa6Ws2/O+y29euhxqNStUjUUrQXS2rfn5BRRRXpncdF4L8d618O/E1vr/hy8Sx1a3j KxXL2sUhjym1sK6sucEjdjJBPqa/Q39ir4r+O/i7oPijVfF+rWWpWcdxHHZLCkUc0JwxkVljAITG zbvGT83JFfmlGoeRVLqgJALtnC+5wCa9Z+Df7Q2v/s9x6xb+HtM0i5vdQkVbu6vt84KRghFj8uRV ABaQlgTu3D05/NuNeG1nuBcMNSi8R7tpNK9k03Zvb+u58pn+V/X8O1RgnU0s2le1+4xfFXjXwf4q 8a+HPB/juS8t7q6ee51CzvBatqDRuTviaQq5lYtgrESX5A8xcE5Xw5/aA8e/Ci91C58O6/NA2ozr cXyXUaXC3Lgklm8wMQTk5ZSGOevAx5+7q8jtsCbiSFU8Lz05ycUyvp4ZJhKlF0cTShNSSTvFXbS3 fR+Wisez9QoTg4VYKSdr6LW3c/UjwD8Xvhr+2DpOraDc6FNdNYRLK9trVrGrDerJ5sLK7lWGSNwI Ybhivhr4M/B9NR/aS0bwD4z0q4hi+1TRXlhOWidlSCSRfmQ5wwVSGU4IIIODmvJdN1K70bULa+sL mWzvbaRZYbiByjxupyrKRyCD3r9Tv2cvir4P+O+mWXiNLPTj4/06xjttTc2gW5t8lgQkhXJjYhmA ViBuwec1+M5xhMR4e4XEzy/mnh60bLV3pStZO/Zt+Wtj4XG0KvDdKr9XvKlUVlrrB9H87+XQ8n+M f7F+heBPhH42vfBN1Nb3kqC8uV1WRZFWzhYzPbRPtBQZVG3NuJ8pQSASw9Y/Y4+J0/xR+CGm3F/c fadV0yWTTbt1g8tcpgx4xwf3TR5IxyTxXSfG74/+FvgTa6O/iZLyVdWmaGKOyhWRlVQN8jAsvyru XOMn5hgGu48NeHNG8LaSlnoWl2ej6fkyrbWNssEYLck7FAAJ78V+I5jneOx2SRpZnBzlOfNCo+tl yyXd9D4fE42vXwShiU23K8ZPy0a8+gui+FtG8OTX0ulaTZabLfTG4upLS3SJriU9XkKgbmOTycnm n+IRqX9g6j/Y/kf2t9nk+x/aiRF5207N5AJ27sZwCcZqPRPFei+JpL2PSNXsdUeymNvdLZ3CSmCQ dUcKTtYYPBweK1ScV8JOdanXU66bkraS/W54jcoyvPfzPLf2dh8Tf+EFm/4WqYT4g+2SeSIxDv8A s+1du/yf3ed2/GO2M816iFC9AB9KUUVWMxbxledflUOZ35Yq0V6IqrU9rNzslfotEvQ5L4seIdf8 K/DvXdW8L6Qdd161tzJaaeAW81sj+EEFsDLbVO5tuByRXzf8Z/2gfiv4f+BfgbVItFi8K+K/EN41 pdl41BtWDHylWKcnaZVGfnDbACCQSCPrzAIxXiP7WnwY0f4rfDS8vr8341Hw9aXV9YCwfmSQRE+W yEEOGKJxgNxgMMnP2HCmOy+ljcPQx1CMlz3cmm3qrKNrpNXsz1sqrYeGIpwxFNNc2rtfpZK17Wvq fOX/AAT88WaT4Su/HWoa9q1jpUF7NZwJdajcpBHLJ+/bbGzn53OcleMDBOcivviOdJmkVTkxsFYY 6HAP8iK/D6C3lup44YI3mmkYIkcalmdicAADkkntX7a6WjafpFokxO5UijK/IoQ4VcDGBjPOPfA7 Cv0DxXyWlhMfTzCM7yrdNrcqil/Wh73F2CWHxUcQpX9p07WSRoUUUV+AnwoUm4DuKUnAr5I/aW+D vxy8RfEKXWfAXiu+/sK8EEC6ZZ6q9ibLC4dyNyqy7l3Fgd/z7dpAyffyXLaOaYh0K+IjRVr3lt6H dg8PDFVOSdRQ03e3ofWx5FKBisbwbpmpaL4S0aw1jUDqurW1nFDd3xGPtEqoA749yCfxrZrxasFT qShF3Se/fzOOSs2kFFFFZEhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR RRQAUUUUAZHif/jwj/66j+Rrma6TxPIos4kz87PkD2AOf5iubr73J01hV6s5qm4UUUV7ZmFFFFAH KUUUV+inzQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAcB8fPDE/jD4QeJ9Ntt5uTbfaI0jjMjSNEyyhFUckt s2j/AHuh6V+cMkMkSRs8bosi7kZgQGGSMj1GQR9Qa/VxhlSPWvzavPD8Xww+LVxoviaAahYWl2be 9V8jzrdxxKNpJDbGWReSQcdxX6XwhjHThXo7295Lq9LO34H7XwBj+ShiMM9eX3kur6P8kcTHA8yS suNsS72ywHGQvHryRwP6Go6+kP2jPgb4T+BnhS1fSrm7v9R1t0jgOoyRygW6gSPNCVjTBLCNcn+G Qjua+b6+/wAszGnmlD6zRT5W9L/13P1fL8fTzGj7ekny3srq23/BCjPFa3hXwxfeMdfstI06Pfc3 UipuYMUiUnmRyASEUcsccAE11Xxk03wPpWt6da+B9QbUbaCzWG9m2ybZLhWYNIGc87hg/INg42k5 46ZYuEcRHDJNyavotF6vpfobSxcI4iOHSbbV9Nl6vpfoef0UUV2naTWckMd3C11HLNah1M0UMgjd 0yNwVirBSR0JU4POD0qGir2i6dBqmoJb3Op2mjwsCTd3qzNGuB0Iijd+enCn8KynKNJOo77dLv7k v0Ik1BOT/r5CaHo134i1rT9JsI/Ovr+4jtbePIG+R2CqMnpkkVp+OvAHiD4aeIptD8S6bJpWqRKs hhkZWBVhkMrKSrDqMgnkEdQRX1R+y1rXwL+Dsj6hr/jbTdf8TXbw+RK+h3Qi05l3A+VLJDkZ38ud nCjgYyfM/wBtfxX4a8W/HHUp9AS6N1bKLPUriV8wzTx/L+6XJICgBT0BK5A6s3wWE4kxWMz55fHD SjQUW+eUWrtW2vbTW22585QzStiMxeGVJqnZ6tNXene2h4HRRRX6EfTF7SNHn1u7NvbyWscgRpM3 d3FbJgdRulZVJ9BnJ7CvaP2Uv2gm+AOv6reXujvqXh3URFFqE9tHm4hZRIYhGWZU+Ys2VPJC5B+U 58Jrufhh4jkibUfCEs1jY6T4re2sr7Ub0gfY0WUOJgWYKAp+Y55IBAKk7h83n+Chj8vrYfEx56ck rrVNK+rv1aWqVt0eVmVCOIw06dVXi7XXlfV/LdH6R/HbxNYeJf2cL7xrpVvply0dhFq+lT65aJIs DMAVkVJFYCUKxCccsQOhNc/4c+I/xD8TfsdjxXpM8Gv+PZbN3iksIUYkicqxEYG0ypHklAvLrgKe h8h8M/tDfC/wVolv8FfEDTeMPA1vbyW174pm8zY8u9pNqQKrOEVtqo6MSCFK5ADVmaT+2/B8HtRu fDnh3wPY3Hw+tg39grb3MsEskJdszNI4k3733kgqrKchsspFfzNR4WzCGHWEw+Dc5Qq+0g52SlT/ AJbt3Te7jp5n5XTyrEqmqVOg5OM+ZOSSTj2177tHXfsMaFq/wu8N/EbXvGXhzUvD0SLFdSahqkMk Mk0caSu4WN1BIXJYsOpfHbjsbf8A4KG/DCbRbq9eDXYLqF1WPTpLJDPOCRlkKyGMAd9zqeOAaxtR /bc0zxv8DfF+q6Fjwp4s063iSODVCkkTSyswCwNg+awVJCAyDkZI2hiPzwcANwwbIByB+lfWZVwb HizGYvHZ/QdKfNFKMXtaKv0as9Nn9x7OCyX+2K1fEZhBwldKyfZK+99Nup95eOv+Ci1hYeNdHh8L aV/afhdCp1O4u4WjuJA2CRbjeACoJB3jDEYGB8x9ii/bW+Dx0mxvpvFgtvtaFvszWU7zREYysioj bSCcc8HB2kjmvyqDAIRtGSQd3OR7f59KSvq8V4U5BiKdOEOaHLo2mry9bpns1eEcvqRjGLlG3Z7+ t0fpvb/t9fC+68XwaJFJqhtJpkhXWpLZY7MbgPmYu4kVQTgkoMYJ6c1W+M37X3wsvfhp4w03TtbT X7+S1m09bCCGVBM8itGMOQgaMclnRj8vIJJXP5pKxU5BIPTirl9HYCx057SSc3TRMLyOYDCyiRtp jI/gMZj687g/bbnnh4V5JhsTSrU5T91rqtWtbvTrboZLhLA06kJqUtLdumuug3SdVudC1Wy1KykE V5ZzpcQSMiuFkRgynawIOCBwQQe4r9gfg348f4h/CPwz4jF3bX15d2cT3ktvGwTzlwJ1VeuQwcAe oHavyEu9EltobGZJ7W5hvOI3hmXKuApZHU4ZCpYAlgAcEqWXmvoL9k+0+J+u/EXwzpXh3X9ZTwVp motLdXFrLMdNWINvkQqwCgyAfKjqDmTdtGSa38Rciw2c5dDFe0jB0bu76pLWPrdbepXFGX08bhlX UlFwvq+3b1v0P0zSRZUV0YOjDIZTkEeopSwU8kD61578Y/jFoPwI8MLr+u/aJLSWZbaKysYlaWWV iWyoLKOgctuPbjnhvmT9pmDVP2gPhx4e+K3hjVrxPA+lQSXU+jFHhvUnSUoZU2B1LDBUueI1VmBY Eiv5dyjhqrmc6c6svZ0ZtxU2rpy6R6av7j8rwWXzxTi5vlhJ2UraX7fM+3iaK+U7L9o/xZ+0D8Jt TPwg0+bSvG+lTWovbW+eGTbC5bJhllHluSUx+8CnAcgZ25+lPBo1keE9G/4SIwHX/scX2/7MMR+f sHmbfbdmvNzPJMRlMf8AaZRU+ZxcL+8rWd2uzvo7mGIwdTC6VbKV7NdV5vyfQ2BR0FArO8R2d5qG gajbadeDTr+a3kjt7wx+Z5EhUhX25G7acHGRnFeFSgqlSMG7Xdr9jjirtJmiDmivgf8AZF/aN+IK /FGx+G3iB5/ENtcXVys11qbStfWjJGzMC8jZ2AxnKuNw3EZHAr74Br6PiHh/EcOYtYXESUuZKSae 6ezPRzDL6uW1vY1WnpdW6phRRRXy55gUUUUAFFFFABRRRQAUUUUAA5rJ1LxZoujarYaZf6vY2Wo6 gWW0tLi5SOW4IxkRoSC+MjoD1qj8R/H2mfC/wTqvijWfN/s7ToxJIsChpHJYKqqCQMszADJAyeSK +Y/j/wCAvC/7UXwWHxb0A6lBqen6bO1rDcP5SyRxSMZEkjw4LLtl2lCNxIBYjGPq8jyaGY1YSxjd OjOXJzpXSk1onqj08FhFiJx9s3GEny81rq/Q+vvMXH3h+dHmLnG4fnX4pR+NfEML6Uya9qaNpII0 9lvJAbMHqIfm/d5wPu46U1/Futy6/wD2++tai2vBw41Nrpzc7gu0N5u7dkAAdelfta8GKz/5jFt/ L16dT7hcFVf+fy+7/gn7Xq6k8MCfQGlByetfjD4P+JHiT4e+OY/FOkanJHrsUru9zIfNE5YnzBJn IcNk5z9QcgGu/j/bC+K1v4uv9ft/E80DXrq0mmsolskUYwkcUm4RjAwSpDHJyc8152K8HMxhO2Gx EZK17tNa9uv3nNV4MxcZWpVE1brpr26n6vlgOpA+tIHBHBB/GvyD+IP7Q3jr4g6zr9zceJNVtdM1 ZmR9IivpPsqQnGIhHnbjAAJAGec/eOY/A/xZ1TwN4R1jw54e1jUdEm1nUIJJtVjuXhW3gi3chYgz hmLAuVJO2MKA2TSfg/jo4dVJYhc+nupXSWl7u/TyTv0E+DsSqfM6i5tNLffr5eh+wJcAdRSBgR1F fkP4l+PHjTVPBjeErnxjq2q2sd7cPLe/bpnW+gdEQRkyBZDGNrkK/B83lVK88/pXxg8d6FpUWmad 4z1+w0+LaIra21KaNIwM4CgMNo5PAwOnoK0peDmOqUud4mKd9rPbv/wLDhwbiZw5nUSd9rPbv/wL H7M7h6ijcPUV+N6/HL4jqrAePvE+GGDnWLg988fPx0qZPjr8ScRuPiD4kU24GwHVbj5juzg/Nhjy fvdhjsBTl4NY9K6xMfuY3wZi1/y8j+J+xeaQsPUZ9K/P/UP+CjHi/ULrTk0HwbYxxKUiuI7uaS7l uHJAARoxGEZsHA2tz0HGK9cPwL+NU/x1j8Ur8R2h8ItqaXraZ9vuMpbZDG2+z7TEcLlM55+/1OK/ PcVwTicrT/tWtCi2m4pu92uml7PU+brZPWwn+9yUHZtXd726aXPqU9KQMD3FeT/tLfF+2+Enwt1q 8g1Kzt/Ectqy6bazXCJNK5ZULxoxy+zeHIAPT3r85/CH7SHxJ0PUZLr/AIT/AFQtFZzxxx6pdzXM cjMrbQFIcGQM2VZgANoBYDiurhvgDH8SYOeNpTUIp2V09fSx0ZZw/iczoyr02kk7a31P1xBzQBiv yZ8MftefFzwnaw2tt4zu7u2jk8wpqUcd2785KtJKrSYPTAYY7Yrp5P29fi295qUy6lpyR3cRjhtx YJssmwPniJ+YsMf8tC456GvpKvhBnkJ2p1ISXe7X6Hpz4PzCLsnFr1f+R+n9FfAX7Lv7U3xS+I3x t8O+Htb1pdW0i5ScXUQsIEICxSOJCyIpUhgq9cY7Enn79BwK/NeI+G8Xwzi44PFyjKTXN7rbVm2u qXY+azHLq2WVvYVmm7X0DtRXwr+1B+1P8SvhL8ebrStFvIbfQbSCCSGwurJXiuw0e5nZyocjcWX5 HA+THUNUWu/8FErq9+EqR2GmCy+IE5aCaaNR9lthzieMPv38YARuhznIA3fUUfDjPMTh8PiaEYyj Ws1Z/Df+btbruenDhzH1YUqtOKcZ2ej2v3Pu+ivBv2N/jNr/AMafhjdah4k8qbU9PvmsWvIkCfaQ I0cMygBQ3z4O3A4HAr3nrXwOaZbWyjGVMDiLc8HZ22PAxOHnha0qFTeLswoooryjmCiiigAoooJw KACikVg3Qg/SlptOLs0MM0VkeLfFuk+BfDt9ruu3qafpVlH5k9w4JCLnHQAkkkgAAEkkAAk1mfDn 4oeGPixob6v4U1VNWsI5mgeRY3jZJAASrI6qwOCDyOQRXWsHiJUHilTfs07OVna/a+1zRUqjh7Xl fLe17aX7XOqooorjMgooooAKKKKACiiigDA8Vf8ALr/wP+lYNb3ir/l1/wCB/wBKwa/Qsq/3SHz/ ADOWfxBRRRXrEBRRRQBylFFFfop80FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXxv8AtreALXSPEGmeKrRJ hNqu6C9yGMfmRogjOcYUlARjPOzIH3jX2RXGfFr4ZWPxZ8HT6Hezy2r7hPbXERP7qZQQrFejL8xB U9QeCDgj2coxv1DGQrSfu7P0f9X+R9Pw3mayrMYVpu0HpL0f+W58dfH/AFWbxrofgbXtLe+1HwxY aLDoy310MtHcxPJuSYAkJIVKHr8wxgnBrnNM+EtsfhyPHGreJLW30R7gWSQadEbm8Fz18ponaIDC ZbO88YxnNcZ4k8O6h4S1290fVbZ7TULOQxyxOOh6gj1BBBBHBBBHBr1z4aeAfF/xJ+B2u6P4c0vz 1XXbecN5wjN4fKZXhG7AJQmF8Ej73GTgH9Vqr+y8DSVCso0+Za6fDJ366X1vf8D+hKr/ALPwVP2d VKHMve0+GT8799yv48+I3hzw14Bs/Bnw6uZns7yPzNb1OW38uW8Y4xGSwyAOcgcYIAJBbPlnhjw5 f+L/ABFp2iaXCZ9Qv50t4U7bmOMk9gOpPYAntXr3hzwP4P8Ahf460Hw98RbFdV1PUHiXUETUFjg0 TfJtXzSjYdgMM4Z1Cqejda+hf23hoFl+z7oEvha/t7vTb7V4Ykms50kikgWGY7V2fKVDRr06EV48 89o5diKOX4WEpSrt2qPVN/zab+S00Wmh5sMwjga1PB4am5e1b/eS6t9fP8NNtDyLXPgJ8MdE8BaU uo/EXQ4fE2nebNq82j36XgulMh2wxxFwwkVQoBVe5ypxkeB6rq2nafrV83hdL2102WN7eNtSaOW5 aNl2vkqgVSwyMLyAxXcQTnP0yxhvRdtPdJaxwW7yjcAWkbgIijIySzLn0Xc2DtwaVfU5dgKuH5o4 mu6r13Vlrrt+XZaI+lwWEqYdy9rWdRt9dlfXT+tB8MghmRyiShGDFHztbB6HBBwaZRWxr/hi58PW Gg3NzuH9r2Bv442QqUTz5oh1658ncD6MK9udWFOUYyestF56X/I9OU4wkk3q9vzMeux+JHxEPxKu dKv7rSrew1a1so7G5uLQkJdrGNsUjKct5gX5WYs24KuAuOeOorOphqVSrCvJe9G9n67/ANMmVGE5 xqNaq9vme4eAf2RfF/xQ8ASeLvDOo6NfaePOC2cs8kV2Xjz+7KmMoHOBjL4+YfNjmvEpoZLaZ4pU aKWNiro4IZSDggjsa+oPBPjHQfDn7C/jTSbfW7ex8U6nqIb7A9yiXNxGZreNjGm7c0ZjVwTjHEg7 E18uV8xkGLx+Lr4z63K8IVHGGlnZdb9d/wADx8rr4ivOv7d6Rm1HS2i/PcKmtGt47qB7pJJrYSAy xQyCORkBGQrFWCkjIBIbB7HoYaK+vklJOL6nuSSaszovGuvaHrmoRt4f8Mw+GrCJAoiW7muZpTtU EyPI20nIYjYiDDdDiuq+Cfi/w3aeMtF0/wCI0UmreCIGkP2eeSZksZG+YSxonOCwAZAMMDlgSox5 nRXm1supVsL9Vu0raO7cl5qTu7nLUwsKlH2F2l3u7rzT3ua+v2U9jqZa4KT2lw7XEE9onlwXEZcg yQgqAqkqRjaCpUqVBUgZUchjYkBTkEYYZ6jFe7/BX9qdvhnZeHtJ1rwdonibR9Fkme0uJYAt/amV 9ztHK24DknjaCcAbhivrj4dP8Gf2kNH8XaN4V8I2ejXOn28mnG/GjW8MkMc6yoJYHUHAP7wjOD1y Oa+BzbirF8Of77g26S09ommrXsm1a66HzeNzjEZa37fDvk/mT0te13pp0Pzz8AeDk8c61Ppp1FbG 4WzuLi2iELyyXkscbOtvEo4LuVwMke2WwpytLitdS1bGq381pDIJHkuVhM8hfaxA27hkswC5JGN2 T0r7o8K/sBab8NtaTxLrXxG/4lmnwzPLItiLIw5idVlEzTMEMZYPkqR8vPFeGfE74A/D3wfoMWm+ HviRZeJfG7bLrZNcQ2VhJaNnBSVsxeZ904acZXJA6A3geNcszLFThhaspQaSTUHaL15m21olo3c0 oZ9hMTWcaU200rPldlvd3a223PFPCHhO+8b69Fo+mAPeywzzIhV2L+VE8pVQisxYhCAAOSQPer+q +JbbW/Bfhbw3ZaEtvqGmz3ck99EweTUHnaPYCoQEbBGFAy2c9ulYuoafP4e1c208kLzW7KxewvIp 06A/JLEzIT7gnB9xius+KPxQi+JeunVk8NaX4cvVkZlm0kOjzKWLBpyWIklyc+aApJLZB+Xb9hiF WrYinOnHnp2upJ25ZWau9feUk/la/p7NVTqVYSiuaNrp32dmr+aafyPqX4y/sraL8KdM8H+L4WsI fB/hqGF9etZ7Xzry/kMqBiM5WQykhNrFVj6jg4HPfs2/tc6b4H1y38GaX8PrOw0bWtaRbd7G/lEs IlZYw0nnGTzHACZIZF44ArjfiR8ZfiL+0P8ADzSbe7v/AA5pWkx3MsM1kmswWL3LxiMo8i3MwZgN /GGOWBJAwpp37H3wl1DUv2ibSK/0/T7628Ok3d832uOdIJApMLRtE5V3Em3uwXDZGQK/IZZfB5Bi f9Y6yqVIKT5VLazdrpNXd3u+6R8VLDReW1f7TnzzjfTm2ttfXV3fX0NL/goZ4nXWPjZZ6XFdPLFp OlxRyW5J2xTSM0jYHqYzDk+w9K4/9lr9pJ/2f/EN+L+zn1Tw5qaqLq2gceZE6n5ZUViFJwSCCRnI 5+XB/RL4k/s+fD/4u6la3/ivw9Hqd9bRmGO4W4mgfZnO0mN1LAHJAbOMnGMnPLXn7GvwmbwrqmiW fhWGxF8v/H8sry3UDj7rRSyszJggHA+U9CCCQfjsv474deRUcjxmHm1ZKW1lr8Sd76b7Hk0M+y7+ zoYCvSk1ZJ7fene/nsYf7Pv7QXhj4kfE7xP4f8K+CP7EsjCNUk1qGJYvtrMUy8yBFIdjISpLMWAJ 4r6KFfAP7MXxNP7Nvj/4g+DfGWpTw+E9KlYC+ngl2xTLMI0ZIlVm/fK2/Azwm7kAmvrf4l/Hzwr8 MPh1Z+Nb2afUtGvmhWzOmqsj3PmAspTcyj7oZuSOAe/Ffn3FmQ1I5tGnl1JypzUVB3cuZ2T3fXuu h87mmAcMWoYaDcZW5Xq76Lr38uh6PigjIr5D+JP/AAUM8O2NrHZ+AtJuvEer3KKI5buJoIInYHCl fvyMG2gqAoOeHri/BH/BRjVbvxRp8fijRdNsdCFrJ9tltFmaY3Co7KY/mICsQibSDgsSXx0yw/h5 xFXoPEKhayvZtKX3bhT4ezKpTdRUvlpf7tz6+8P/AAg8HeFfG2r+LtK0OCy8Q6spW8vY2bMgJDNh SdqlmUMxUAsRk5PNdlXi/wCzZ+0vp/7RGmas8WkTaHqelvGLi1aXz49km7YyybVznY2QQMY79a9o r5DOKGYYXFyw+Z39rCyd3dpW0V9dLbHj4qnXpVXTxN+Zaa6+gUUUV4pyBRRRQAUUUUAFFFFABSBw TjIz6UEcYrwHQf2VDoH7RF78Uz4wvbkTyTTf2U8G0/PGU2NKH+aNc/KuwYCoCTtyfYy/C4TExq/W a/s2o3iuVvml0jptfudVGnSqKXtJ8rS00vd9vL1Mb9on9sTwt8LfElz4Ku/DU3iqfbGmp28rIluk MqZKncG8xtrKdhUKQ/3uorzH9pL9qrwg/wAOf+EA8Baal1o+saSHW80qUWiWKbz+68nyz2Rg6Hbh W98j5j+P/iG48ZfGTxvrgmN/aHVJLaO8VP3flrujhXIyP9XFwepCk+tY/wAO72+0LxNa6hDpH9oK lheM8UjPGklu0M0cspYcgKpflcHKYHzV/WmUcBZVg8FhcY4t1IJTcXJpOdk1ftZ7eW5+u4Lh3CUa NHENNzik2r6OVr/Kz/4JyNOkcySM5ABYkkKAB+AHArrNP+Hd1dfDqbxpcX9ra6JBqi6UYTva5kmZ Fc+Wm3YcIS3zOv3SPTPK3PlfaJfs+/yN58vzMbtueM44ziv2WhiqWIclTd+V2fk+x9rTrQq35Nba P1L3h6zsr3U0XUbg29hGjzTMjBXdVUt5aZz87kBQcHBYEjANLpLKLDWc/Y8m0UL9p+/nz4v9Tx9/ Gc9Pk31TnmiuLi4kW3WBZCWSKFm2RZOcDcWJAGQMnPTJPdbXT7i9hupYIWljtIhNOy/8s0Lqm4+2 51H/AAIU5wv705W20fk/zew5K+snbYrk1c1fRr/QL+Sx1OyuNPvYseZa3UZjljyMjcrAEZBB5HQg 96bp+o3OlXEFzazmKaGZJkA5AdDlWIIwcEnGc9/Wpde12+8T61fatqdwbrUL2Zri4nYBd7sck4AA HJ6AADtV3re1VkuSz9b6W+W/4FXnz9OX8bmh4OsPDuo3l9H4k1a70a2W0eS3uLO0+0s06lSsZj3L ncu8AllAYqScA1iXKxLcSiB3kgDERvIgRmXPBKgkA47ZOPU1HU9jfXGmXsF3azPb3MDiSOWM4ZGB yCDQqc4zlUUm79Hay9NL6/MFBqTle9+nRESuyHKkqcEZB7EYIrf8B+Adc+Jfie00Dw9YyX+o3J4V R8sa5GXduioM8k/zIrnq+ov+CdtqZvjnqE3lF0h0Sc+ZjhCZoQOexIz+v4eHxHmNTKcpxGNpK8oR bV+55ua4qWCwVSvDdLQ/QLwH4B0T4b+FbLQ9C0+3sbS2jVSIYwplcKFMjkD5nbaMsck9zXzTqP7Y vjX4d+H/ABPf+PfAI0u6i1JbLQ7Is9ubpcuZCWbeHWNVUmVBsYuoGM5H0B4m+OXgPwloWoavqPij T/sFhciyupLST7S0M5OPKZItzB8g5XGRgk8A1+cn7XGqXWufEeTU18dWnjLQ9RaS70uGzuXkSwhb aPLMfKRt8u07Tltm5gpOK/lXgnJJZ9j5wzii3GbvzSUr3WrUXtrpe/TY/JciwCx+IccXC8Xrd3vp q0ntr1v0OS+N3xt1j47a5put65bWVpfWtqbMx2IkWNgJGcNtdmx9/HU/dz6AY/w/8O6R4s1PUU17 WodDsdP0m5u1k/dpJPJGn7uKMMVDuzsvy5ywUjIPI5NIy6uQVwg3HLAHqBxnqeeg9/Sm1/W9PLqW Gwf1PAv2cUrK2tvS5+xxw0KND2GH91La3QtXstpKlqLWCaApCFmM0yyeZJkksuEXauCBtO4jH3j0 D7LR7zUbPULq3hMlvYRLPcyZAEaNIsYPJ5JZ1GBzyT0BxWuZEmuJXjiWCNmLLEpJCAnhQSSTj3qO vQ5ZRppQevnr69f+GOmzUfdPoPwL4h8Z/sp6VofiCx8LWMmteKbS4lE+rQyvLFaxuuYhEkiMnCiV mIwVaPGNjV6n4q/b8Xxz8OfE2kQ2F34P1qTTYxZaraTGYyXJKeZGoAUxZHmbX3EgDdwwCn5Z+J/j yTx1r1uYmdNE0q1j0zSLd1AaGzi4jDY6ueWYkk5Y84AA4+vz98I4HN3Tx+aUk69+a6vprdJptp2V la1tz5tZLh8Y44nFx/eXvfXvdK222h2VtpXjf4xXOpamW1PxNLpNmZ7zUL24Mn2aBQz/ADyyNgDA chScnBwDimeAtG8HapY+IpfFXiG60W5trF5NLtra0ab7Zc7W2ozgEIAQvUAHcfmXHPM22pXVnCYo LiSFDLHPiNip8xNwRgR0I3tg+9aHiNLvU9Ql1ZrC1tIr9Wvlt9OVRDBGZCmAik+WoYbQG56dcgn6 qrRqQjKgpqnT05XGyatZta3TvrslZHrzpzinTUuWPS1k1bprda+mx+hv/BPTw1qmgfBnULjUrCay j1LVXu7QzptM0JhhUSKCM7SVOD3xkccn6irivgpaxWXwg8FQQQ3VvBHo1oqRXoAnVRCuA4HAb1Ha u1FfwJxJjpZjm+JxMla8n+Gh/PmPrvE4qpVa3bCiiivmjgCiiigDxX4sJ8Zj8WfBx8EPaL4HLxjW fMEBZR5v7wuJMOV8vG3yjnIbOOK9Z8QaQdf0HUNN+1T2X2y3kt/tNqwWWHcpXehIIDDOQSDyBXmP 7Q/7QJ+Aln4enHhm88Rf2teG1xbOYxFgA4zsYFzn5U43Ybkba9difzI1YqUJAO1uo9q+nxksVDCY TEOjGEUmoySV5Werlq9V5o9Cr7RUqVRwSWtmra2e78/U8T/Zn/ZpP7O9trsZ8TTeIP7UeJthtzbx Q7AwyE3vlju5bPRVGOK9uozzRnmvJzDMMRmmIlisVLmnLd2S202Whz169TE1HVqu8nv/AEjzb9oD 4N/8L0+H0vhga3PoO+4iuPtEUQlV9hzskTK7l5zgMMMqnJxg6Hwa+EOi/BLwRb+G9EDyRq7T3F1N jzLmZgA0jY46BQB2Cgc4zXc0dBWzzbGPArLef9ynzcvn3fVlPE1nRWH5vcTvbzCiiivIOUKKKKAC iiigAooooAwPFX/Lr/wP+lYNb3ir/l1/4H/SsGv0LKv90h8/zOWfxMKKKK9YgKKKKAOUooor9FPm gooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC iiigAooooAKKKKACiiigAooooAKKKKAPjf8AbW+H0ek+ItN8W2kUgXVAba9fkoJkUCM5J4LICMAA fus9Sa8C8N+N/Efg4XA0DX9U0MXO3zhpt5Jb+btzt3bGGcZOM9Mn1r9Cfjn4Qi8bfCrxFp7Wsl3c pavc2scCbpTPGC8YQYJySNuByQxA61+bjo0bFWBVgcEEYINfsfDGIp5jgHhcRFS5Haz103X3bfI/ o/gzHRzLK/q9dczpu2uunT7tvkPubmW8uJbi4leeeVzJJLKxZnYnJYk8kk85pmeMUlFfdqEUkktj 9F5UugUUVJMqq4CggbVPLBucDPI9+3bp2qhkdbXiHxHNr9joEM9zdXL6Zp/2EG5KkRqJ5XVIyADs CyDG4kg5AIUKBTNlZnQxdjUE+3i5MTae0ThvK2grKr42kZ3KVJBHykbgTto1zOFOvJTa1g3a662t 19TFxhVak1rF/wDACiiiuk2LOmz29tqVrNeWxvLSOVHmthIYzKgYFk3AErkZGe2c0y9e3kvZ2tI5 YbRpGMMc8gkkRM/KGYKoYgYyQoz6DpSTwpFHAyzxzGRNzKgYGI7iNrZAGcAHjIww5zkBs0zTytIw QM3ZECD8AAAKxjFOftF6dfy2+ZCir8wytbUvEd1rsGnW1/8AZhBZIIUltrGGObYAq/O6KrSkKoA3 scY4IyayaKqVKE5KUlqtn29AcIyak1qtgooorS9i72HOwdshQgwBgZ9OvPr1r9V/2SfDXi3Qvhzc 3PjXTNN0/W9RvGuhJZW1vFLcQsilJJzCArOSX5PzYxu5Jr8tLjQ9StZ7KGbT7qGa9jSW1jkhZWnR zhGQEfMGPQjIPav2ZGtab4H8HWNzr+o2ej2lrbwxTXN7OkMSNhVwXYgcngc1/Ovi7jZSwmFwdBKX tG9tXpbRer39D8z4yr3p0aMEnzXfnpbb7z5J/b7+O2r+HLo/De2sLKTSdX0uO7urmfzPOBM7hRGV dQMGEE5DA5wRjOfhiKw83S7i9+0W6eTNFD9nZ8TPvDncq91Xy8MexdPWvpn/AIKIXMV58atEmglS aCTw9bukkbBlZTcXBBBHUEY5r5cr9A4Cy+jheH8O6MeWU1eXm76/elY+i4coQp5bTcFZy1fm/wCk FdX4v8CR+E9A8MaiNd0zU59ZtWuZrCznV57A5BVJlBJG5HRhnHO8Y+XJy9KF1HomtSxW9lLamOKG aW5EfmxFpAymHcd287CDsz8pbPFZFfeNValVck7Ri9VvfTby1dz6JqcprllZJ6rvp+A5EDK5LqpU ZAOcscgYGB15zzjoe+M/Wf8AwTik0pPit4gW4SQ6u2lH7IwUlBH5qebkjgHPlYJ9xnnB+Sq9w/Yw vhYftI+Dtr3GJzcQusRZQSYJcBgoJZchSc4AIycBc18vxnhfrWQYyCdvcb08tbfOx5Ge0fa5bXS0 0v8Adr+h+rGOKZPCLiCSJuFdSp4B4Ix0II/Onbh6ijPFf59rmi7n89tXPi7/AIKEfFCPSNC0zwLJ bWOpXupL9vmkmt2Bs0RisckR3cOxEqk5PygjHzcs8P8Awp8Y/Hz9lP4YWHh/xdBFb2sri/i1KBlj mijlZY48BSJBDs2hGBV8AkjaBXQf8FD9S0XT/h9oi33hlNY1O5uJYbLU5DIiaedoLnchGWYY2ox2 koWIbZg+V/sF/Hq+0XxVZ/De9t5b3TtTeRrCSN8fY3CPLJlf4lbbnPVcdweP6WwNLE1ODKOYZdT5 atCTm+azTsmm0ull6bdT9Ew9Gqskp4nCxtKnJyd7O+jTav2+Wx9heBf2d/h78OPEM+u6B4ZtbHV5 wwa6DO+zdnd5asxWIHJGECjHHTis3xD+yn8KvFPiC91vU/CNtcale3C3VxKs80aySDPzFFcLzklh jDHlsnmvWaBX4Is+zVVnXWJmptWb5ne3bfY+IWNxKm6iqy5npe7vY+cfAnwq8a/Cb47RaZ4N0jTt I+DksJluQrpLNJN5bcu7kzmTzMAcmMJjvkV9HUUVjmeaVc1qQq10uZRSbW8rdZPq31ZOJxM8VJTm ldJK/e3V933YUUUV45yBRRRQAUUUUAFFFFABTZBmNvoacBimsu5CPUYrSm7Ti33Gj8c/GPhXXbr4 naz4UtNPtLnU31WfbYaAEliMhJO2MoM7FXOFONgDZCndSw6Po2g+EvEV5rAeDxhHdjTYPD00csDW iMhL3DZILEYZAhPBILgggH6l8Pf8E5dUl1K/u9Y8ax2EyagstlPpkLyO0AZixbeVMcpOwghnC4OS +QR65+0F+zp8L4vh9478TXumQ6Lqdzam5uNZhUySrKhDKyIzbQzsoVtu0vvOWy2a/sGp4gZVGths voVHNPlTcFb3rre/R+Wum+p+xT4jwvtKWHpyclom4q2t136Py1PzNOp3D2lraSyNNZ20jyx20jHY rNt34APG7YucY6Ul/e/bLu6ljgjsoZ5TL9lty3lR5JIVQxJwMkDJJx3Ndp4G+BfjX4k+E9Y8Q+G9 Gk1Sw0uURTrEw81jsLt5ak5cqAuVXLfvEwDk44Kv2ehiMJWqShRmnKGjSezeuq7n21OrQqTlGnJN x3Se19dUOR2jbKsVJBGQccEYI/KrWn6xfaQ87WN3PZG4ha3m+zyMnmxNjcjYPzKcDKng+lU66HxR c694u1JvEepWMjS6oXc3UNn5UVy8ajznG1Qpb+JyO7EnrWtWcHNQqW5Xfd9Vsrder8rFzkuZRla3 6+hz1FWRpl42mtqItJzp6yiA3YjbyhIQWCb8Y3YBOM5wKrVvGrTknyyWhopxezCiur8ffC3xP8L5 tOi8T6YNLm1CD7TbxNcRSO0fHzFUZivp82Oh9DjEs9EuLzR9R1MBUs7ExRvI5IBkkJ2Rjg/MVSRs HHEbc5ABxp4zD1aSr05pweiad09bb+pnGvSnBVIyTi+t9DPr3b9kRfE7eLvF3/CEmP8A4S4+G7ga cJgmzf58G45fKhsZ27htLEbiBmvE9JZ01SzMdouoSCZCto6syzncMRkKQSG6YBB54r7W/Zy/Ym1N /wDhEPH+t61feGtWgvjfzaH9h8qUIknyRlt4KbguSNv3X24BBNfEcZ5xgcvyycMXUUeb4brmu1rZ pa2drPpqeBnuNw+HwkoVZJN7Jq92tbNdtLP1Plv4nfBPxz8J7iNvFmhXVjHcBGF6MTQM7gnYZUJT zPlbK5z8pPIwTgeA9X07QfGuh6jq9sL3SbW8ilvLY28c/nQhgXTy5PlbK5HPrmv2J+INjpd74M1c azoqeItPit3nk0x7YXBuPLG8KsZB3NlRtGM5xjmvxt8Uajp2reIb670nSF0HTZZC1vpqXDzi3TGA vmP8zHuSe56AcV4HBPFcuLsHWoYmkoOKs5RaS1VtE3dP70cGR5tLOaNSnWhytKza21/FM9I/af1n wP4n+Ja654BljOkalZRTz28VqLdbe4yyOmzauCQqsSc5LkgkEV5Osii3dCpLsykNxwADkdM9x3HT oeMJNBJbuFljeJiquFdSCVYAqfoQQQfQ0yv1DL8JDBYWnhoTcoxVk27trpqj6vC0Fh6MaUZOSStd 7jmRkCkqQGGQSOozjI/I1JZxST3UMMULXMjuqrAoJMjE4C4HJznHHPPFQ19K/Cb9pPWLHxZoU+ma X4R8C6PZbf8AhIb2y06C3W+twwJB+UyNJtDFY4iWZsnGAdvDnOMxWDoOeGpKejveXLbt0bbeyt1O bH162HpuVKClv1t+jbudB8U/2SPiJ498UJrfh/wXpfhqwvdFtrqeytbtIUW6ESmWAxk/LJvGBgBO FJYMWNfMGoadqUMYtru4idLK4axSFr2NxE+4lgq7z8m7J3j5CT15r6SP7b/xb8EzztqU2h+IbXVU N1ps8tuPKSHzXTKeUY22ko67ZcOCozjBB8i8WRWXxg19r3wL4Ek8OCG3M+qrBeF7KNjlmmJcKttH neMM+zAXAU5z8bw7XzrCx9nmqh7GKXLOLulbT3nJp36bbni5XUx9FezxijyJK0k9FbTW7v5bGZ4h +C/i3wz4STxRc2NtdeHWlEH9p6bqFvewrIf4WMMjbcH5STxkgZ5GT4GJdyfGjwMtkJmnOt2fEGd2 zzl39CDjbuzyOM54rl4bzVJ9GuNOimu5dKgkF7LaozNBG/Efmso+UH5lTd/tAZ5FWfCWu3vhPX9O 17TbxLO/067imhdi3DAk5IXkr8uGHcNjBzX12IjiKmAr0a84ym1JKystVpdXep7FWNWeFqU6kk5N NK2nTS+rP2uXhR9KWorWQyW8TMQWZQSQpXPHoeR9KlzX+dNRNTafc/nJmU/ivRU8RLoDatYrrjxe eumG5QXLR8/OI87tvB5xjitUcV5lc/s9eFrr42QfFFzff8JDDD5Yh88G2LeWYhJsIyG2HGAwXjO3 OSfTe9duMp4SHs/qs3K8VzXVrS6pd15m1VUly+zbeivdW16r0CiiivOMBCobqAfrS0UU221YYUUU UhBRRRQAUUUUAFFFFABRRRQAUUUUAYHir/l1/wCB/wBKwa3vFX/Lr/wP+lYNfoWVf7pD5/mcs/iY UUUV6xAUUUUAcpRRRX6KfNBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUABGRX5s/HLwpD4K+LPiXSbYx /Zo7rzokijCJGkqiVYwoPAUOF/4D0HSv0mr4t/bV8EHSvG2neJYUhS31W3EM21z5jTx8bip7eWYw CP7hzjIz9rwliVRzD2bek0181qv1P03gHGewzKVCT0nH8Vr+Vz5xooor9rP6ICiinxyvErhHZVkX a4U4DDIOD6jIB/AUMBlFFTPbBLKK486JmeR0MCk+YgUKdxGMYO4gc/wtwOMptK1+oNkNFddo/wAL 9b1nwT4r8UpHHbab4ae3ivFuQ6SM80vlqiDbgspILAkYBHXNcjWFHEUq7nGnK/K7Pydk/wAmjKnV hVclB35XZ+tr/kzV8KeGr3xl4m0vQtOVWvtRuY7WHfnaGdgu5sAkKM5JwcAE1c13Rrv4deMNX0a+ hs728097iwlDozwlijRmRNwU5G7cjYHIU026tZ/CMfh3VdN1aRL29tGvBJaM0Ulownmh2bgc5xFu yMcPj3OCrFGBGMg55GR+VckfaYipKcZXpWataz5k2nr20t+JiuarJtO8LWt5311JLm2ms52huIng mT70cilWH1Brtfg58Hdb+N/iubw/oNxY217FaPeM+oSOkZRWRSAVVjnLjjHrWH498WP468aa14ge 1ism1G6e4+zxBQIwxyBlVUE46tgbjknk19x/sYfsya98OPEn/Cc6hrOk32lalo/l2a6XLJIZFlaO QMxZFAACdBnk9sc/K8T8RLIspeIqyVOtJe6nr72l152PGzfM3l+C52+Wo1ot9ep8IeJdBn8LeI9V 0a6eKW6067ls5XgYtGzxuUYqSBkZBwcDiu/+LXxC8Ha5p2iaJ4E8MnRNBs4muLlb9A9zLeyLsdxL vdtgVYyFDKCRypwKk+Pfwevfhz4+8VqkumHSLfUX8iOHV4JrhIpWLwq8Rk87cEIB3L2JyR8xd8Nf in4E8I+DL7Q/EnwvtvGN1eXHnPqc+pm2mjUbdscbJEXjAxk4f5txzxwOqeIjjsLh8xoRddxtpFpb pXbTaV0tle6uayqLEUqWLpJ1GuiaW61bTdrr1K+o+KNe+I3iTwLolz4tknglFhbRWtgGgt9LkDCF AkZ2R+YqbXLLgZcjIwcfpN+0R8Gf+F2fCm88NQXCWupI0dzYXNwz7EmTpv2nJDKWUkhsbt2CVFfA 3jP4Sx/C+x0j4v6Qbe58HX+pxXGgaRdxTLOjHfLHFcq/8CeWVLK7+YFBBAfcOqH/AAUY+JgH/IJ8 Mf8AgJcf/H6/LM/yfH59UweM4cslQb3tG0rq6a8tn+p8lmGDxGYzo18rtanfsrSvqmjpf2nfgJH4 C/Zv8F33iXWop/GOg40pJrWLdFeRO7MlvuIVsRIGKsfR+MsMfHMs4kghjEUaeXnLqDuck9WJP0GB gcdMkk++fEL9s/xR8VPD50TxR4V8KarppkWYRPbXSFXXoyutwGU8kZBHBI6EivOPi18T4/ifq9jc 2/hvSvDNpZWsdrDbabEAzKkaoDJIRufAQBc/dUAc8k/f8J0M5wFBYXM6d25Sk5JrlV9Uklru36H0 eS08dhqao4uG7bvdWV+iS87+hFoHw41e8+HWs+OW0pLrw/pt1FaNcNcqg84umVKbgzJtcA7cHLqQ cBsW/iZ8Ldf8FaL4b8Saxp1nott4mSaay0u3Mgkto4ig+dXyRuDqwyzMQcsQa9J/Zx/Z/wDEHx78 MJZQeIRp3hOy1kvq1iGZJHBjiw8eAyu+1WUbwAnUbtzAfVGu/sOeFPEXxB0rV9T1a7u/Den6ZDps Xh6UsMLFF5aETq6sF6OVxkvk7sHbXhZnxvhMnzN0MVWu4uTcYxk3ayUY725m9b7feefis/pYPF+z q1Nm7pJ7W0jvvfW+x+bjzWTaQqfYpUv1kAF2s/7pk5JBjKk78lfmDAADG0k7q6j4LfEYfCX4oaD4 sa1e9j06VzJbxybGdHjaNsH1w5OO+Mcda+04v2FPCfgzwH40i1fWtW8QWczR6jaR6dEIruD7OsxV F5dZnZZWTlADnhQSMfC/iO78Kz2cK6DpOs2F3uzM+o6nFcpj5htVUt4zn7p3E+ox3r6PLM/y/iiF fC4anKdN6Sb0VpL+8011Wi6Hp4XMcNm8atGlFyhs301Xm790e0eCPHfxs+Jeta5a+A/HGp67daiJ 5J9OmvlguLe38zAdFnbZDneMfZ5CU4BI+XP014qX4xeCf2QLawaLVdY+IUjfZ7qexm+03tpA8rYY MhLSOE2IWUkgvuzhS1ee/sXaj8NNC0Xxb8SrpP8AhGNT0mAWl/b/AGpprSCByhWSGNt0uXZNuGZy WBC/e2iDQ/jR40H7U+myeFvGMXjvwh4qvFMenR3OUtbXjeHt2O+2eJctu2rv25OSWUfkebwqYzMK lDDYWEaeFan78LOcoq7g5R91+7qu6SPi8apV8TKFGjGMaL5tY25mldxbWm2tux5Ve+Ef2ldb+Hd4 17B4zvfD8sn7+2u7iR7qTI8sr5LN57RkNyoUofvEcZG3+yF4P+Ifw/8AjXptxceBdWtbC8gmtbm8 1PSZ4ltkKFt6SGJtjblUdCGztPXI/ScAFegxTJoEniKNuUHqY2KH8wQa+MreJdSthK2AngqcYVLp 8qa0f5tHjVuJKlXDVMMqMIqd9lb+mQ6fcNPG4feHjYIyyKA6naD8xUkEnOeOOcdqtdRVRo3tbhZP tEhhd8NHJtKrnOME4blsADJ64A6Ytk4r8arqLlzR2Z8bHazCiiiucoKKKKACiiigAooooAKKKKAC iiigAr57/bl8d/8ACF/Au7g/sy11Rdauk0wpeKWjiDK8nmYBB3L5WVOeG2nnGD9CV8vf8FDr/wCy fAy2h3Tj7Vq9vFiJwqnCSvhwQdy/J0GPmCnOAQftODaMK+f4SnUV1zo9nJ4KpmFGMlpzI+C/Afxk 8afDa6sn0DxHqNna2k3nLpwuZDaSHOSHh3bWB78frzVvxX8aNZ8Z+GrjStS0zQPtF3d/bLvV7XSI Le9unBYjzHjUDqxOQoY5OSQTngaK/vSWU4GVZYh0lz3ve2t15n768Fh3U9ryLm721PUfhV8fNQ+G OnTaZL4e0HxLpRc3UFpq+nxv5F2FIjnDhQzFc9Cfu5Clc5rU8TftU+PvGPi281qfxLqHh+Oeya3W w0Z3FsjeUVBWNpBtJbnzMllzkZ2gV41RXJUyDLateWJnRTnLdvX8HdX87GMsswk6rrOmuZ/1tsei a9+0J8Q/Emj6Zpl/4p1CaysYWg8ozHF0rMSftAz+/wCMLiTI2jGOWzmar8TbrWtHaxutB8NCUXKX MV9a6Lb2s8RX/ln+6VEdD3WRWz+VceiNI4VQWZjgKBkk0ldMMowFOyhRirO+it+RtHA4aFuWmlbs j0yb4z3vj34laB4l+I0a+K49NjEDW/lxQCdFMjxo4UKu3zHG7jlQQc19b/sPX+lfEX4e+L9J1XwH 4e0/wxBdQlvLieWG7kILssouHlLFNsbAlsDcMAYr4s8AeFn8a3scF3NbWXh/SmF5qt6DDHNb2jOi yyDI8yUjgKoD4ZgABu5+jPAWv/DD4tfCvV/hJp+pz/DSG3vP7St9U1GdbgassYYvJcZWNVIRFYpu UDahBIQivzHjDAUKuE+p4aEocrjzOF3GnHmvflTWuuyTaTvsfIZ5h6UqPsaMWlFq7je0Fe97Lr6L Y9O+PH7RHgr4SSeHP+FY6B4Y1/xTcQ+RZXtlbRzQ21oHZfKRoSGO59wEasBncT2B0fB/7WnivV/2 gfDnw91Xw5Y2EV5ZW/29FL/aILp7QXDgEtgKpOwoVLAg/MelfBv/AAk+t+Br8aXpur2//Em1SW6t b7TvLceeAI2kinC7mjZY14ztYAEiqq+Pdfj8b/8ACXpqcqeI/thv/t6BVbzi24ttA24z/DjbjjGO K5oeHeFrYN0ppVHyS5ZycnJyl8Lt0SXQzjwxSlR5dJPldpNu93s/RH7IeMfF2leBPDGoa9rd0tlp djEZZ5mBO0dAABySSQABySQB1r8xPih+1Nq3iT4rXnivwpp+laCquv2S4m0SymvvlXaJJJnjdt+O PlbAAAHQkzfEj9s7xz8VPh9feEdbstEFjeiES3NtbypMfLkWQHJlK5LIM/LjrgDt4LWPAnACyWFW rmsFKpJ2S3jy6a273HkHDqwkZzxsU5PS26tp+p6B8Ufjd4g+MWoNfeKIdOu7xIUgtp4bbyXtkBBI UoQWDEEkSbwC7bQuazfAXiHwnomt3d74p8JSeJ7NkP2fTYNSksokcsOWdQzkAZxz1HOc8cjRX7DH LcNTw/1WknCHaLcbelmrfL9T7RYSlGl7CC5Y+Ta+623yO2fxZ4T1PxBYG68E2mk6FHerJcJpF5dN dvb5OY988zoTgjkKpJHBXNetovgH4s+PNMW3+weDPhBo0Ms8mnvdW9vqcjpDucshZpZ3cqoDAuNg wGV9wr5uory8Vkca1nSqyjJJpNtytfdq7+K2z6HHWy5VLOE2mk0tW7X6q737M9Q+MnxX0DxzNodl 4U8IW3hXQ9Dt57O0jkcXM80Ujs26RmGQfmZgMsVZ3IYk5rpvgf8AFb4b+D/hn4z8LeMNF1+ebxEs Uc17pM0bEpGxaMIGZPLKsd3O8N/EMfKfCaK0rZBhKuBjgLyUU07qT5rp81293rrqVUy2jPDrDXaS d9G73Tvv66n0R8DP2mtP+B/iDxI1hosN94dNs0em2s1vDFfTsJ02+ddJHuOUaRyG3KCAqhRivpz9 nr4x/C39oDVbrSF+HVho3iIE6zcwS2EE8EkqSbRMJgoLSDzQdzIpBkIBPJP5t19F/sdfHjwp8CNS 8SXviWO+lk1IWttbixgEhRQ0hkdssuFHyZAyTngHBr8+4x4Rw88vr4zAwm8RZW5ZO72WqWj7t2v5 nzWeZLSeGqYihFurps3rstuvd9fM/TzoPSl6VS0bWrDxFpdtqWl3kGoWFygkhubaQSRyKe4YcGro r+KpwlTk4TVmtz8XaadmFFFFZiCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAwPFX/Lr /wAD/pWDW94q/wCXX/gf9Kwa/Qsq/wB0h8/zOWfxMKKKK9YgKKKKAOUooor9FPmgooooAKKKKACi iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK KACiiigAooooAKKKKACvDP2wPBg8SfCl9UijDXmizpcqVh3yGJjskUEcqvzK5PTEXPqPc6gvrG31 OxuLO7hjubW4jaKWGVQySIwwykHqCCRiuzB4iWExEK8fstP+vU9PLMbLL8ZSxUfstP5dfwPymorr vi14Hf4c/EPWtBIPkW85a2Yktugcbo8kgZO0gHHG4H0rka/o2hWjiKUa0NpJNfM/rrD14YmlGtTd 1JJr5hRRRW50BRRRildJ2Fc1YfFmt2/h+fQotZ1CPQ53EkumJdOLaRgQQzRZ2k5VTkjqB6VlUUVn TpU6V+SKV3d26vuTGEYX5Va5sX/ie41DwvpGhPDCtrps9zcRyqp8x2m8sMGOcYAiXAx3bk5GM+WW S8QFhCogiC/KqRkqDjsBvbnrycdeBxXopU6MKStBW1b+bd394owjTVo6f8F3Z638C/2ddQ+OOopB beI9C0ZN/wA0N1eK968YPzvHbKdx28ffKA5GD1x6l8cPjd8Sf2evHR+HnhfxFJp/h3QtPsrWzL6f bsbhfs0ZeUtJGxJMhcHBwCCOxr5ZsL+50q+gvLK4ms7y3cSw3Fu5SSNwchlYcgg8giur+Jw1yTVb WbxL4pPiTXHgXz4pZ7iaexBAcQyNKgUEGRsqjMFYMDg9fisZlFTGZtCWYSjVoNPlpuF+V6e919Lu 2+m58/WwMq+OjLFNTp2douOz016/j3OU1C/uNVv7m9u5nuLu5kaaaaQ5aR2JLMT6kkmoKKK+3UIw hyRVl5H0XKkrLY+4v2i/EfhjWf2IfAU+j6dK2ny3FpaWHnSnfaSxRypIXIAEhxFMhOACX3Y4FfDt fVXxOs7ay/YI+Gq28Fxb+ZrxlkF0AGdyt5lgB/Af4T3XBr5Vr8/4IoRw2DxFODbSrVN99z5fh2mq VCrCOynLf1Ciul8HeILHwhdW2uJGmo63aTkw6df2Ky2RUoQJHbzASyk5CbMZCkscbTiaXps+s6lb WFqoe6upFhhQnG92OFXPQZJA5455IFfdRr3lO6tGPV6d7/Jaa7an0aqNuV1ZLr+Z+mP7Aum21l+z xYTw2a2813f3Us8ocsbhg+wOQT8uFRUwMD5M9SSfIP24Phz401vxrqHizUmFr4A0XSSlrd21wpdZ pBsETRZDbpJnRWIBXy8HOQRXguiftH/F74Q6ZD4RstYn8OW2mAoumT6TbJJDuO87hJDuyS27Lcnd nvXG/EL4v+MvirdLP4q8Q3mr7CGSCQiOBGAxuWJAEU46kKCe9fiGWcFZpQ4iq537Wm6dRya3k+WT 6XSSdtL3aXZnweEyLGU8ynjeePLJt9W7N9Nle2l7u3mcfRRRX7vGEYfCrH6EklsbuleONa0Twrrv hyyu1g0fXDAdQgEMZM/kvvjG8qWADc4BH6msKvTk8ceBLj4KQ+H7/wAHvN42tbmUW+uWsq222FyH DSFVPnEMNuxwcKfldeg2/hB8EPBXxN8K6hqepfFC38J6hpqtJeadfaaGIjHSSNvPXzF7HC5B4I5U t8zLM8NgqdWviqLprns2o83M9lL3U3qkldpdjyHi6WHjOpWpuN5W2vfon7t3qrb+h2n7OX7YHjvw 54y8LeG9XvX8Q+GpXh0pLFoIxNCrMqRtG6qHZl44YtkZHBII/SoHIr8x/g14/wDgR8IfENprdzYe L/Fet2RJhubiztUtUkDfLNHD524MB03s2DyACBj7/wDg38YdC+N/g5fEWgLdw2wne2lt72IRyxSL glTglTlWVgVYjDDoQQP5a8S8vp/WY47BYN0qW0pcvKpN7afqflHEuHiq6rUKDhDZu1k36HYXdzJH LDBAqNNLk5cnCKOre+CVGOM56jk0yW+tdNZYZrr95IzMFc7mAJLZ46KOeTwAOtWpYUm2bxkowZSD ggjvn9PoSOhqvdxw2lpKQttDG7gymUBUYEgMT6kjPXvivx2m6U1Gm0/l1Z8O7q7LfUUAYqpZX7XU ssbwmFlAdQT95CWCkjAIJ2k47ZHfIFvrXNUpypS5JblpqSugooorIYUUUUAFFFFABRRRQAUUUUAF fKn/AAUakVPgrpCtEshfXYVVmJzGfInO4YPXAI5yMMe+CPquvlH/AIKPDPwX0P21+H/0nuK+84FX /GR4T/Ee5kn/ACMqH+JH5y0UUV/oCf0OFFFFAE9leSafeQ3MQjaSFw6iaJZUJByMo4KsPYgg11Pw q+G+qfFfxzpWhaZY3VxHcXESXc1rGWFtAXAeVj0UAEnJ4zx3Arj67L4PePtS+GfxK0HxDpQmkuLa 5VXt4VLNcRsdrxbcjcWUkAeuO4FeTmjr08HWqYSyqqLs33W1zixjqRw9SVD47Ox6f4g+Gnjf9mXw N4l/4SPwfo13beIZhoq6ndSi42wgPJmNUkBXcyJIjMMgw8gHbXz+DgHpzX6vftX/AAkv/jR8G7rT dJQnWrSWPULO2d1QSyICGjJIIBKO4HI+bblgua/Ka9srjTbye0u4JbW6gkaKWCZCjxupwysp5BBG CDX5/wAAZ/DP8JVr1+VV3L30r9FZOzb6dj53hzMFmNGdSpb2l/eS9NHZshooor9WPrwooooAKKKK ACiiigAooooAKKKKAP01/YB1x9T/AGfrazexktU03ULm3Sdz8tyGYS719gZSnHGU9cgfSTNhSR2F fjX4f+Mvjjwn4WPh3RPFGp6RpBuDdeTYzmFhIRg4kXDhT3UNtJ5xnmvvX9hf446/8WfBus6N4kc3 t74e8iOPVZGJluopRJtEn9508sgvnLBlz8wLN/H3HfAuKwNbEZ5zRdKU7tK90pPf7+iPxfPshr4a VTHXXI5Xst1d/wCZ4n4h/wCCi3jUeJ79ND0jQpdEF062Zu7efz3h3EIXImADFcE8YGayb79u/wCL lz4t0q2+w6fp9xaXBt7vRobIr9slL7fLfzCzxkfdwrAg5zngDV+N37Co+HPgvxN4yh8ZXesR2W65 Wx/srfO6tIB88gl52htzPtHCs2O1fNnhX4c+MPG9rNqHh7QNV1qK0migkmsLd5jE7AlB8oJAATr0 X5ckZGf1bKcq4NzHBPFYSnDliuVuSa95pfzW79t9j6zCYPI8TQdajGNlo3K61t5+p+zsTM8SM6hX IBIByAafXyr+yV+0Z438eeKr7wF450OWLWNLsvtDX8kDW8ygFAFuI2x8zbwQygZ/u9TX1UTgV/Je d5TXyXGSwteze6ad009mj8lxmFqYKs6NS1121QUUdBXFfGT4kRfCX4Z674sltjfDTolZbdW2+Y7u qIpODgbmXJwcDPFeZhMLVxteGHoK8ptJer0Rz0qUq1SNOCu20l6s7QHtmlr46/Yo8f8AjX4wfEHx l4s17xWJtPEawt4bjlkMcEjFTHJHGxIjQKjrwcsc7umT9i162e5NUyHGywNaSlKKV7dG1e3yOrHY OWBrvDzd2rXsFFFFfPHAFFFFABRRRQAUUUUAFFFFAGB4q/5df+B/0rBre8Vf8uv/AAP+lYNfoWVf 7pD5/mcs/iYUUUV6xAUUUUAcpRRRX6KfNBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHx5+3F4 Xng8S+HvESl3trm1awcCM7YnjdnXL9MsJWwOP9Wevb5ir9Q/HjiLwR4gc3x0sLp9wftyqWNv+7b9 4ACMleuMjpXGfsCeHtI8SfAPXLDUhFrdpc6vKtzp97b74YsRxEJhgVbOA/HGWHcV9tS4u/sHJnXq UudU5KOjtpJvy6fifufDvEjw2Trnp83s2o77p3fbofnfRX11+1t+yN4a+DfgZfFPhd9ZnMmppFPb 3Eiy29pA6yEHIjDABxGgLMfvAEkkGvNP2Vf2do/2gfFmoQ6hqL2Gh6VGsl59mYLcyGQOIxGWVlHz Lkk9uAOcj7TC8X5XispnnUZNUo73Wt+1vmfolLO8JVwcscm1Bb9zxCvQfi98T/FvxPu9Ll8XWsMV 9pMT6b56WAtpZGRsusuAPmUsPkGAueFBYk/ob8Nv2LPhx8NfEdxrMNpca5NIu2GDW/KuYbX5wwaN fLGGBAAYkkDoeTn5t/4KP+Jbuf4j+G/DzCH+z7TS/t0ZEY8wSSyyI3zdcYhTgcZ654x8flXHOA4k z2jhMFQ5lFSfPLRrTWy/BniYTP8AD5nmNOlRpbJ+891p0X/BPkOiiiv2Y+5CiiigAp0j+Y27GCQM 4zycdeabRRbW4WJbW2e8uEhjMau5wDLIsaj6sxAH4mls55ba6ilhna1lRgVmRipQ+uRyMe1Q0VLV 7p7AX4dVeHQrvTQZfLuLmG4IEmEzGsqjK9z+9OD2+b1qtBavcRzupjAhQSMHkVSRuVflBILHLDhc nGTjAJENFQqahdwVru7/AK9CFBRu49QrRg0DVm1eHTotNvTqkm1orRIH89tyh1KoBuOVIYYHQ5rO rrvA3wk8Y/Em4t08O+HdQ1KGab7P9sjt2FtG+ASHmI2LgEE5I6j1Fc2MxNLC03OtUjCNn8X/AA6+ 7qY160KMXKpJRXmc7rOr3niDV7zU9Rna6v7yZ555nwC7sSWPHA5PQVXgaNZ4zMjyQhgXSNgrMueQ CQcHHfB+hr3P9oX4Wy/ADw3ofgmWWw1W61GT+2bzVYo1WXeqGJbdRuL+UmZGDMAHL8AFWFeHXlnc adeT2l3BLbXUEjRSwTIUeN1OGVlPIIIIIPSuTK8dQzHDRq4fSDuo26paXt0McHiaeKpKpS+F7eaW nyEhuprdJkilkiSZPLkVGIDruDbW9RlVOD3APaoq6DRPHGo6BYGztrbR5oSxYte6LZ3UnPX95LEz 49s8dq6b4c/s8fEL4qok3h3wzdz2LAML+5xb2xUttJWSQgPgg5CbjweKuvjqeAjOtjpRpwWzct/W 6WvzZVTERw0ZTxDUY977/l+p2fwr+Jnhz4Z/BDV7fXfAsPixvE2pT2XmTyrAEihhgYgSBGfcrzKw xjBOQQRXk3gTwJrfxK8T2vh/w9Z/b9WulkaKDeqBtiM5yzEKOFPJIGcc1+qXwz/Z58P+DfhRo3gj X7ey8ZW+nSyziXU7JXj8x3dspG5cJgOV4Pqf4jXY+GPhp4S8FXct14f8MaPolzKnlyTadYxQO6Zz tJRQSMgHHtX84VPFHBYCeLlg6DlUnJ2k2+V2dovle2lrpWufmP8ArTSwzrOhTvKTerbs9dHZ7aeh +ZqfsTfGhmAPg0qCfvHU7PA9/wDXV+mHw0+H+l/C7wRpXhnR4fJsrGMrjczb3Zi0j5Yk/M7McZ4z gcACunpCwUckD61+VcS8b5nxVTp0MUoxjF3tG+r87t7dPU+XzPO8VmyjGvZKPRX/AB1YuKKOv418 833in4wJ+1rbaJBZzr8MWgEhn+wo1uyfZyWZpwNyyedlQm4cBTtwcn5PLstnmDq8s4w9nFy952vb ou77I8mhh3X57SS5U3q7Xt0Xn5Hu8bhNdmU5BktoypwcHaz7uenG5fzq/VDV57Wxt1vLmIsITkOg +ZPocg8nA46554zV/qa5K6coxq2dnp5XX9I4o6NoKKKK4ywooooAKKKKACiiigAooooAQnmvkn/g o9rpsvhd4f0sWbyi+1QSG6MO6OHy43+Xfj5Xbfx3KrJ2zX1vXxr/AMFKtXlh8GeDtLEkAgudQluX jbPms0ce1SvGNoErbsnOSmM84/RPD6n7TiXCK19W/uTZ9Dw/DnzOirX1/JNnwDXU3PiDwxN8P7XS U8JtB4ohmMkniKPU5CJ0LMRG1sVKDAIGVIPyg+oPLUV/eVahGu4uTfuu6s2vvs9V5PQ/fZ01Uabv o77tffbf0YUUVp6FFo89y0es3V9YwHkXFjbJcsOvBjaSMHPHO8YweDniq1WNGDqT2XbX8CpzVOLk +hmVueCPGeq/DzxXpviLRJ1ttU0+TzYZHQOvIKkEHggqSD7HtX0Nb/sqaH4T+A/iD4j+KtRutU05 4bW80RdIc207xSHYgnEsbKm8yxEhQ23YSGYHnxHwZc+GvDltpfiW9vJ77W9O1iKT/hHUhKpdW6bH 3NcciMEh1ICsTxwBzXytPPMFnGHrwwsXUim4PTRtrby7NuyR40cwoY+lUjRi5pe7to3bb/gvQ/Yy znefT4ZpE2SvErsmMYJGSK/Ir4+fFTxP8W/HF5qviG3n06CCeS0tdMZXWOz2YDR7W/5afdLngkkc AYA+9/h9+1v4N+Mng26s4dftfAviye3eCO21SRSIJmBWN43bYs3zEEKCGOOQK/Pj40fDnW/hV43u NA8Q6vZ6xq20XlzLZXEkwV5fmO8uqnzGAVjxyGU5r8T8McpllmaYmnj6fJW+ymne2t2ntbVa/wCZ 8PwphfquLqwxEbVEtE0726tdLbanCUU6NQ8iqXWMEgF2zhfc4BNXNc0ltD1W4smniuxERtuLcP5c ykAq6blVirAggkDIINf0u6kYy5Xva/3H6k5JOzKNFeueN/2ctR8B/Dv/AITO58VeGdX0mWdbS2Oi Xj3ZmnJyY9wjCjaodj838OMc15HXHgcww2Y03VwsuaKduu69Tnw+KpYuLnRd0nb5hRRRXoHUFFFF ABRRRQAVNZ2VxqN3Da2kEt1czMEjhhQu7seAFUckn0FfQ3w4/Yj8VfFH4bWHivR9f0Mm+fMNpLJJ hYxuDb3VDtkDADZgjrlgRiu3/Z6/Yr8bj4p6frfxA006PpWlSJfKPtME73k6MDGn7t2wuQGZj1Ax 1YkfB47jXJcHSry+sR56V0431uuiW717HzuIz7AUYVGqicoX0637LufJSavLHoz6asFqIpJvOeY2 yNOSAAFEhG5VHPyqQDk5zxjT8O/EPxV4Qs5LXQvE2saJbSOZXh06/lt0ZyANxCMATgAZ9q9o/bE+ BuveBPiffeILmXTptI8Sag72ckLpblGOCUkQkYIzzJyp+8xUtivJfGPwo8S+AdH0vVdatbSDT9Uy bKe31K1uRcKOrIIpGJUd26ZIGckV6OAzPK84wdGreDVbVRdnd9VZ7teh1UMVg8dQpybi+fVJ2evX 1sSt8bfiK4wfH3icj0Os3P8A8XXqfws/bi+Inw9W3stSuYfFmko6Bo9UBNysYYlwk4IYswPWTzMY GBjIPz/fRQQXtxHbTm5tkkZYp2TYZEBOG25OMjBxnjNQ5wCOOfatsXw9lOPw7pVcPHlflZ/o0VXy vBYim4TpK3pY/bLwt4j07xh4d03XNKmW40/UIEuIJVGMqwBGfQ9iOxyK1R1r4l+FX7cXw/8Ahf8A Dbw14Wm0/XdRuNN0+GKa4srWLyWlKBnC75VY4YsuSoyQSOMV1X/DyD4d/wDQB8T/APgNbf8Ax+v4 vxvAufLE1FQws5QTfK32vp+B+JVMjx6m1CjJq+mnQ6z9sb9oW8+B3g2yttCKL4l1lpI7WaRA620a AeZLtOQWG5QoPGTkghSD4n+xtFrXx7uPG8fjzxbP4o8PT2wt7rw5qN1LIzO8iuk6A8RKpVgpjIIY Dhdq58F/ak+M9p8cfinLrmmxTw6RbWsdlZrcoEkZFLMzMASBl3fHsFzg8V574W8c+I/BE8s3h7Xt S0OSbb5p0+7eDzdpJUPtI3AZPBz1PrX9AZTwLLD8MrD0UqeLmlJya1Tve191Zdup+hYXh9xypU4J RrSs7tarW9r7q3l1P1d+DH7O/hP4FXWvTeGhe51iVHkW8mEghRCxSOPgHaN7feLMeMscV6ea+TdP /wCCjPw8EdtDcaT4m34VJLh7S3AzwCxCzdO/A+grY8J/t/8Aw88WeJtL0VNN8QWEmoXCW0dxd20P lI7sFXcVmYgZIGQD19K/n3MuFeKMVVni8ZQnOXWT6pL/ACPzzEZZmlSUq1alJvq2j6aoNfPPxL/b i+H/AMMvGF54cuLfV9XvLMhbiXS4Inijk7x7nkTLDjOAQM4zkED1D4SfF7w98avCSa/4dmle38ww zW9wgSa3kABKOoJGcEHgkEEYNfNYvh7NMDhY4zEUJRpytZtaa7Hn1cDiaFNVqlNqL2djtqKKK+eO AKKKKACiiigAooooAwPFX/Lr/wAD/pWDW94q/wCXX/gf9Kwa/Qsq/wB0h8/zOWfxMKKKK9YgKKKK AOUooor9FPmgooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDnPiJ4P8A+E/8Fat4f+3y6b9vh8r7 VCAzJyDyD1U4wRkZBIyM5q3+yT8A1+Cej6848RXGtNqU0YMTW/kRQmMHlV3tlm3jLcfdAxxk7FdH 4G1MWOqSRSPthmjJJOMAqC2Sewxu/OvHz6piquUVsJRl7rs2rLW34nu4DMsRRpvBRl+7k7tWW/Tz O81LTLTWbC4sb62hvLO4jaKa3uEDxyIRgqynggg4INcv8P8A4QeD/hZNq0vhXQ4NGfVZRNd+QzEO w3bQASQijc2FXCjJwBW94d8T6P4u05dQ0PVLLWLFmKC6sLhJ4yw6jcpIyPStMnFfhDxGKw1OeEcp Ri/ijdpO3dHt89SEXTu0nuv80FfnD/wUZEf/AAuvRiGYzHQogylflC/aJ8EHPJJ3ZGOMDrnj9HT0 Nfll+22vilfj5qn/AAk/lbDCh0nyCCn2Dc/l9gd27zNwbnduxldpr9f8JaPtM+dTmS5YvTq79j6/ hKHNmKldKyfz9DwWiiiv7QP24KKKKACiivWf2ZvhRofxk+Is2heIL670/T49PmvDPZyJG4ZCnUuj DGGJPA6dfXhx2NpZfhp4qtfliru25y4rEwwlGVepsjyairkulTQ31xal7cyQGQNItxGYmKAltkgb a/TjaTuyNuciqddcKkaiTi99TojJSV0a3hLwxfeNfE+laDpiB7/UrmO1hDZ2hnYDc2ASFGck44AJ 7V7i37BvxcHiJdNGlae1mXC/2ut/H9lAIzu2n97gHj/V5yOARzXz5BcS2s8c0MjwzRsHSSNirIwO QQRyCD3r9S/jd+0/p/wF8E+Gri5sjr+u6pBG0dgLnyWKBAXlZtrYGSAOOSeOhI/K+Ms5z3LMXhsN k0IzlWUlZrVNW1vddH10Pj87x2YYXEUqOBSk6ieluq67o8kvf2e/gT+zLqmka1428RXerXwjYJpW pRR3MF05jZWb7MkRbbnOCzbQ23LE4rx/9qT9qfTPjF4f0Pw34PstR0Lw9Z7murS4jjhWYrtEKBI2 YbEAJAzjJXj5Qa8R+JPxB1T4o+NdU8SavKz3V7KXWMsWWCPPyRL/ALKjAH0z1Jrma7Mo4RlCpRzH N60q2Iiur92LfRLyvudGCyTknDFYyo6lVd9l6I2L+81HXtP0iJoZZodPtpLSBlVm+RZJJ39vl85i QOg5PXNZMkjTSM7szuxJZmOST6k02lxx1r9FpUo0lyxSS1283dn00IKmrJHbfCD4R6x8avF3/COa HPaW9+bd7kPe+aItqkZBaNH29erYHbOSAftf9jH9nf4hfBrxh4ku/Es0dhossJto7KC4WVL2QOCt wAD8qhQwG4K3z8gYr4q+Efxl8SfBPxG+s+GpLRbiVBFPHd2yyrNHnPlluHVSQCdjLkquegr9TvgN 8UZfjJ8LtH8V3GmHSZr3zFa38wOpKSMhZT12kqSAQCOnPBP8++KWOzvB4edOMYvCVbRvvJPf5Xt5 n5xxXXx1GDg0vYzsvNPf9PM9Booor+Sj8nAnBrzb4/8Awb/4Xp8PpfDH9tz6DvuIrj7RFEJVfYc7 JEyu5ec4DDDKpycYON8Uvht8QvFPxY8Fa54b8ZHRPDGmSBtT0sSSIbhRIGb5VBSXenyYfGzGRkkg bHx/+MbfAz4fS+Jhoc+vFLiKD7PFIY1Xecb5JArbF4xkjlio/ir6nA4WvRxWFnllVTrT1S/lleyT 5tD0aFOpGrSeGknN7eTvs76HZeDfDv8AwiPhPRtE+1z6h/Z1nFa/a7lsyTbEC72PqcZ/GvN/2kf2 h7P9nnw3puoPpi63fahcmCCw+1fZyyKpLybtjcL8g6dXFdV8HPiSfi18NdH8WHSptF/tBHf7HO+8 rtdlyGwNynbkHAyCDivAviBc+Ef26vBniHSvCpu7bxF4TnMtldXluipOzh1Cq+44il8vuVYFUYqd uD6mS5bCebynnMG6NOVqrWybbWrXS/Y6sFh4PF3xsX7OLtO3S+mrXn2PnT49ftn+IvjBFo0Wiwah 4HjsjMZ10/WJG+1l9m3dtSP7m1sZz989MV9gfsY/FbUfiP8AB6wGv6g9/rVnNLaG6m5knRMFS7fx OFIBPUgZJJ3GvgHx/wDs2fEn4X6A2t+JfDE2n6WkixPcpcwTqjNwu4ROxUE8biAMkDOSM/cP7Cej QD4G6ZGZopyL+bUJVikDeXIx2xqSpPIVCxBwQSo9RX7lxtl2QUuGIrK4xdOE9JRfNZtNvXVvpo32 PsOIqGX0crp/UVFrmsmnfu2r6s+m6KKK/lA/NAooooAKKKKACiiigAooJxSbgO4qlFvZDFPWvi// AIKWahLF4X8FWInZYZry4maARZV2RFAYvn5SPMYBcc7ieNvP2fuHqK+Kf+Cl1+E0TwJZi3t3824u 5ftLKPOj2LGNinrtbflh6onoK/SvDmnJ8TYW66v/ANJZ9Lw2r5rR07/kz4OoooxxX94t2P325Ja3 MtlcxXEEjRTxOJI5EOCrA5BHuDX07+xZ8T/AWgy6x4J8caRZT2/iK5gMd7fW6TW7MgOyKYPkABsF DggM5yRwa+XqK8LOsopZ1gp4OpJx5uq0aa1T+TPNzDBQzDDyoSbV+q7rY/afxRp0EXgXUrGy0O11 a3jsJI4NFKIsNwFjIWDa3yBTgLg8AH0r80Ph58Nk/ad+LOp6Tdw6N8NdQityzW2mWflxGWM7WjW0 eUNvxkkoQF8o7ly2a679kX9pnUPAthfeA7uae7bVGWHw75wLwWl5JuUJIc7lidzHkKDg7jj5iai8 IfsKfGNzFrMV9pnhjVFd9vnanItymcgsHgRwNwJ6NnBORX4JkuVvgyWOw+NxcaU3b2dR31vu+W9n sr6PU/PMFhv7DeIpV6yhJ25Jd+7t91/M7zwT/wAE3LldcabxT4rtpdJguvkttNgcyXcAP8bsR5LH jIAfHOG71gf8FGdD8NaZ418L3emR20XiG7tpv7TWFvnaJPKW3Z1zxwJFDYyQmMkKMfRX7KHwI8Xf AjSvEOneIfEFtqmnXMyPp9nZu7RwY3b3IdRtZ8rlVyPlzk5r86viD4/PxT+KGqeKNfM8cGoXXmPH bBWkihACpGucDIRVXJ9M4PSu7hXEZjnnElTGVcX7alho2TiuVS5ltb5a76pHRk9TE5hmkq863PGk tGlZPm6W+X3pHGV9sfsp/s0/Dz4qfB+78Q6xdXl3rVzHPp1yRdBRpxVvkeMBQVby/LPzlgQSMYJF fJfh/wAJXPxF8b2mheE9Numm1CZYrW1uJhPIgxyzyKiDaOWLbQAAc9M1+gfjrwKv7N/7FXiHStMi txqrWMcepXCOxWa4uGjgnkVjg8ByE4HCrxX1XHebSjDC5bhKzp4itONrNXSb1v5fmevxFjZJUcJQ m41JyW3Rba/M+K/iL4l0bwv4Rn+GfhjUm8R6Vbay+p3OvPEIluphH5SrDGGbEaqD8+4lyTjCgZ8s oor9PwGChgKPs4u7erb3be7Z9ZhsPHDw5Fq92+76sKKKK9E6goq1d3FvPb2SQ2gt5YYik8okZjcO ZHYOQeFwrKmBx8gPUmqtTFuSu1YlO/QK9L/Z++DP/C9vHx8Nf2wNDxaSXRumt/P+6VG3bvTru9e3 SvNKUMVBAJAIwQO9ceOo16+GnSw1T2c2tJWvZ97PcwxNOpVpShRnyyezte3yP2d+F/gCw+F/gDRP C+msJLbTbcRGULt86Q5aSQjJwXcsxGeN1ZfjX48eBfh34s03w34i1+PTNZ1ERtbwSQSsrK7lFZnV SiAsCMsQBgk8CvhD9lf9r+X4LWF3oPidb3VfC6xmSyhtEV57aUuMqm5lGxgzMQTwRx1Oav7U2uat 8b/jzpY8PaBeXyTaZZSaQ1pBKlzd2skSzhyDlQFeSUbwABg7idvH8j/8Q9xP9t1qOcVH7NqU/aJp cz3vr5vVH44uHqqx06WMlaNnLm2v9/rqj7w+OPwn8EfFPwk//CbRRRWenRyzRao0/wBnexyuGkEm cAAAEhsoSqkg4Ffk54x1uDVNSS1055/7B00SWulx3JUypbmV5AXIABdmdmJ9WwMKAB+qf7TPhxPE n7OvjWxuJZbfydKe83Rvlt9uBOqkkcgtEAfUE9K/I6vv/CKl7TB15zqOXJK0YvaOm683d7fqfR8G x56NSUpN8r0XRea9f63CpbW0mvpxDBG0shBO1R0ABJJ9AACSegAJNRVpaF4j1bwvdvd6Nqt7pF06 GJprG4eGRkJBKllIOMgcew9K/oKq6ig3SScul9F+p+jTclH3FqZtFdV4H+IE3gq9lmk0XRfEkMkB txaeILIXUUQLbt0fIZGyW+6R945BOMcqeTWVOpVlUlGcLRVrO9799OliYym5NSjZdH3FLAoF2jIJ O7nJ9v8APrSU+MoC3mKzAqcbWxg9j0PHt+tMrqRqFFK6MhwylSQDgjsRkH8q0fD3h298U6tb6bp6 wG6uG2Ri5uYrdC2CQvmSMqgnGACck8DJrOpUhSg51HaK3b2sTOUYRcpOyRm13Xwo+NHir4N+ILbU fD+p3EVukwluNNaVvs10OhWSPODkcbsZHUEEVz3jDwzL4N8S32iXE0c93YOILkxfdSYAeZHnvsfc mRwSuRxWNXFWw+FzTC+zqxU6c1s9mmc9SlRxlHlmlKMkfsR8E/jToXxy8GR69ovmQsjmC7sp8eZb TAAlTjgggghhwQexyB6BX5Ofsn+KvFek/Gnwvpfh3WJrG2vb5WvbR5mFtNAqs0xkTO1iIg5BIyCB gjrX6n+HfE+j+LtNXUND1Sy1iwZigurC4SeMsOo3KSMj0r+H+OuFFwzmDhQd6UtV/dTb0f3Ox+E5 5lX9l4l04O8XqvJdmalFFFfmZ84FFFFABRRRQBgeKv8Al1/4H/SsGt7xV/y6/wDA/wClYNfoWVf7 pD5/mcs/iYUUUV6xAUUUUAcpRRRX6KfNBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABWf4h0aP xHoGpaVNLJBDfW0ls8sJw6K6lSVPYgHitCimm1qi6dSVKanF6rUu/s0fA+z+BXgS50q01tvEBvrx r170weQvKIgUJubGAnOTnJPToPSvEP8AaR0HUf7G8j+1/s8n2T7SSIvO2nZvIBO3djOATiuX8Kan LNp/2RJpM2xeR4UTJkhI5CkYO7ceOR97vjFdZZSzRzS2tw+9k+aOVsBpVJ64AA4yF4+pAyM/iGdU 8T/aNTE4iSnPmu7rdX7WS9bH1qxssVP29TWT1fqeL/B34keIvBPg7yPjr4m0PRPE811I9rFe3tpb yvbAKAxCMEPzb/ujpjPNfHn7eXi7Q/Gnxi0u+0DV7HWrJNEhha40+5SeNXE9wSpZCRnDKce49auf 8FBbmW8+MujTyjAm0GGSNCACsZuLjaDgnnHJ+tfMdf0/wTwnRp1qfESmlOoneEVaKvpZeh+x8PZT CThmqlZyTfKlZK/YKKKK/bz9CCiinwQSXU8cMMbyzSMESONSzMxOAAB1JPahtJXYm7asZXXfDfx7 L4CvddZdxt9X0W+0icJGGYiaFgmMkYAlERJBzgHg9DX1r4Y+MfDmnS6hq3hPXNLsIseZdXumzQxJ kgDLMoAySAPc1l6D4a1fxTeNaaLpV7q92iGVoLC3edwgIBYqoJxkgZ9xXlV6mCx+FmpzjKns3dWX zOOpLD4qjJSknHq76GbW54VPh5Jr5/EcOpT26WzG2j0yZIna4yNgZnRwExuzgZ44z0Oj4M8Df2/c +If7SuYtKt9E026u7hbmdIJfNSNhFEqPyzNMY0KgZ+bHBIzyVaudLFOeGhJ6Wu1pvtqvQ05oVXKk nta9v8zY8H6Pa+IPEthp15qFrpVvcPsN3euUhQ4JUO4+4pOFLfw5z2r3PwPPp37Rvjua0+L3iK20 w6HpkkEWtWV/aWplWOQssO3a0UqqGlYNEo4ByWBXHzpRXBmOVvHvmjU5ZJWjJL3ovq0/NaNeSOXF 4L6zqpcsrWTtqu9n5k161u17ObRJY7QyMYUmcO6pn5QzAAE4xkgD6CoaKK92MeWKj2PSSsrBRRRV DO/8KWXg+T4U+OJdYlt/+EuQWb6DEHmEhXzwtznB8ojYeFbLcMQABk+l/sFa6mkftC6fbSTSxjUb K5tVSPOJGC+YAwHbEZPPcCvnWvpz9gzx1PpHxcsPDkPhvTNQXUjO8mrtbZvbNFhJO2XtGSgBXHJb r2P57xdhpUsix8tanOm7Nq0fdS0v0Vr26ts+Xzqi4ZfiHrLm11e2i28tL27n6WV8y+Lv2s77wh+1 Na/Dm6060/4R2Vre0e7UO119omjVoyMMRt3Oi7SuerZxgV9NdRWHf+BvDmp+IbXXrzQtNu9btVC2 +pT2kb3EQBJAWQjcoBY9D3PrX8SZPi8BhJ1Xj6PtIyi0tbWk9n8j8SwtWhSc/bw5k00tbWfR/I86 +An7QZ+OOo+LbU+GL3w+NBuxbeZdOW87JcYYFVKSDZ8yc7cjmvYCoYcgH60BAo4AH0oPSuHHV8PX xLqYSl7OGlo3btp3fd6mNedOpUcqUeVdr3/ENoAwAMVmaL4W0bw5NfS6VpVlpst9Mbi7e0t0ia4l PV5CoG5jk8nJ5rzDwB8R/iJr/wAb/F3hvXPBv9leD9OQtp+sGNx55DIF/eFikm9SzYUApjDc17HV 4zDYjLpexnNPmSbs7p31V7dQq050HyN7pPR38zH8X+EdJ8d+G7/Qddso9Q0q+j8qe3kzhhnIII5B BAIIwQQCCCK+JPEFn40/Yj8dRHw1a32qfCuV0ubqWRUnZ2O1JDM6onluMhUUkIw24yxbH3mRkV+f X7WPwZ8X/CLxxrPxV0TWP7Q0vVJzDcpcwCeSATIyNFLGyNE9vgKg3/3kXBIDH9H8PsSq2JqZbiKs fZ1FpCabjKXk/svzs/Q+gyJxrVZYWrJcsl8LvZvyfR9mfYfwl+L1j8VPC9hr1rBPb6dqBYWs08Bi 3MrMjRsMsAwZWHDEHBwfX0KvjzQv2sdC/wCGVtR1bStO0208TaFBb6c+jtbrBb+dKygPEiEfuzte QKpBzGRxgGvVP2VPi9cfF34dW2qXf2UaqJ5Yr+G2lcrGQzFW2uxIJyCQM/6xTnrXBnfCuIo0cRmE aLpwpzcOV6+afpa3Q8nFZdicIp1ZwtBS5dd11Xrp1Pb6KKK/MjzQooooAKKKKAPkv/goH8S/F/gL w54VtPDWpXmj2epzTi9vbFmjlDR+WYkEq4KbsyHAIJCEdMg/FWp/tAfEvVrx7qfx74iWVgqkW+pS wpgKFGERgo4AyQOTknJJNfUn/BSvUbO4Hgmyi1G1a9tWuXm08SkzqjiPZIUHAXKOMnGT0z82Phyv 7b8OspwVTh3D1a1CLk+bVxV37z6vysft3DeCw88spTqU05O+rSvuztf+F3/Eb/of/FH/AIObn/4u szX/AIj+K/FlmLTXPEur63ahg6w6leyXCIw/iUOx2t1GRg4JHQmvYf2WvjhffBHxfokGsXtvpXgf WVlur53tBO0gXzY0kBRWlBEkWwL06nHzE10v7cvxs8FfGJvBZ8H6uNV/s77b9q/0SaDZ5nkbP9Yi 5zsfpnpXtQxLoZ5TwNPLo+zd2qsdla+j92yd1a1zrjV9lmMcPHCLlf21st9/dsndW3PluKJZIpWa ZI2QAqjBsyHIGBgEZHXkjp68Vrr4z1dPBzeFku9mhPeDUHtVjX55wmwOXxu+7gbc7eM4zzWJRX6F OjCrb2ivZ3V+j8j6eUIztzK9tQooorZu2rLbsFfop8Pf2hB+zt+zz4Ab4kQaveapqguFsraCBWuE to2GzzPMdRgI8eOc4ZRjg15R8Dvhn8KPhL4S0TxZ8ZZlh13WJftOl6TfW9wTaxxuwDvFHneH+Vv3 i7cbQO+fN/2uvjvp3xz8eafc6E18uhaZaG3iivEVA0xkcvKihjwyiLk4Py8gYr8ZziFHjbMKWWPD yeGpyblUtZNpNWg+qvv6HwmNUc+xUMMqb9lFtudrXsmrRfa+/oeq+O/+CkGvXGqbfB/hqwtNNXI8 zWt800o4wdsbqI+/GX+or5S8Y63aeLPFN3qWm6Jb6DFeFG/s2xZmijlKKJPLB5VWfcwT+EMFGQBU XhfwjrnjfU103QNIvNZviN5gsoGkZVyF3NgfKoJUFjgDPJFet/tGfsp6x+z9ZaXqb6tDr2jXzi3N 0kPkPDcbWbyyhZsgqrEMD/C2QvG76TLsDw9wxi6eBwdqdaomkrtuVtdel+1/Ox6uGoZZlNeOHo2j UkrWu9fXp6X+RyPg/wCKHj/4A6hqFho7yeFdVlK/bEu9NiNyV2hkVhNGWVcHcAMZ3Z54rtviT+2h 45+KfgC98Ja1YaJ9gvUiWe4t7eVZmKSLIGB80qDlFz8uOvTt5D4t8T/8JXPptzLbeTe29hDZ3M5l ZzctENiSHP3T5SxJgcfJnuawq9r+wsBjalPG4zDx9vFp81tbrrddNNL9Dv8A7Ow1eUMRXpL2is7+ a/rS4UUUV9QeuFFFFABRRRQAUUUUAemfs2eCm+IHxv8ACWjmGGa2a7E90lxbLPE0EYMkiujArhlU rkjqw74r9dra0htIIoYYo4oolCJHGoVVUDAAA6ACvx2+C3xa1P4KfECw8T6ZGtz5QMVzZu+xbmBs b4y2DjoCDg4ZVODjB/Q3wj+2z8Ptb8HW2p6vdnQtZksJr99FfdLIFjZ1KpJtCMzeWSqkqxBBwAa/ mHxVyfOcfjqNbDUnOio2XLq7u7d1v+h+VcWYLG4jEwqU4OULWVtdfP8Aqx3/AO0NrUXh/wCCXjS9 m06XVoV0yaJ7OIMfMV1KHdt+YIA2WYYwoY5GK/Hqv0i0v/goj8NtU1O1s5tM8Q2MU8qxNdXVtB5U IJA3vtmJ2jqcAnA6GvPP2l9B+EfxQ+D/AIg+I3gCbSV1ixuIVvZ4IHhkmEk2CrQnbtkZn3eaULME IzgkiuAK+N4Tl9QzLBTiq0lafRN6JPsHD1atlEvq+JoSXtGve6a6JM+IKUDJ9Se1JSqpZgACSeAB X9OXsfqpPBHbPb3LTTSRzqoMEaRBlkbcAQzbhtwuTnByRjjOar17Z4X+EPxC+HGj2XxCudAk0nQ7 R5ItTh1mWOA3EII3RvBKFLRyq3lhMMWYE8ArXj+tal/bOsX2ofZbax+1zyT/AGWyj8uCHcxbZGuT tQZwB2AFeNg8whja01QkpwXVNOz2tZffv1OGhio4iclSalFdU09exUZSoUnHzDIwc98fhSUUV7J3 BU6ERCaKfzVA/wCWS8ZcZA3Z6Yye3txnI2PAGhQeJ/HnhzRrpiltqOpW1pKwByFklVDjHPQ9q2/F OneDrv4qaqmhz3Nn4HgvN4e4lXz/ALOGUOIsgliSSEBBO3aX4DkeZWxtOFd4ZxbfLzPTTeyXq+iO SeIiqjotO9r+W+3qzkdY1a71/V73U76Xz769ne4nlChd8jsWY4UADJJ4AAqnSnrx0967r4b/AAS8 W/Fuz1GbwrZ22pzWDoJrM3sMU+1gx8wK7LlQVAJ9WGM843rYjD4Cjz1ZKEFZa6JdEXUq0sNT5ptR ivkjjtMlng1C2e2R5Z/MUJGhYFyTjb8pDc9OCDzXt/7M3xg8efDzx/oHgrRZWtdP1DX411HTZLJX kkLtHFKGLDeuxUJ4K4IJPesPUY9e+NR8K+BNB+H0Nh4l8PJc2k0WnQtG7RmRT+/MrEpskMmS7Y3S noWxXoP7Lul+JPgx+1jpfhXV1jttRvYHtdStg/m7A9v9oVdynaWBWPJBIGT1r4LP8XhsZleJjXpw lUUJS9m2m7K9paX6arTrufO5lXpYjB1VUjFzUXLlbTdltL9T9KVORSgYpkkqQxNJIwRFBJZjgAet Y/hfxv4e8bQTTeHtd03XIYGCSyabdx3CxsRkBihODjsa/hJUalSMqsYvlW7toj8IUW05JaG3SFgo 5IH1pa82+P8A8G/+F6fD6XwyNbn0HfcRXH2iKISq+wk7JEyu5ec4DDDKpzxg7YOlRrYiFPEVOSDe srXsu9luaUownNRqS5V1dr2+R6T1oIyKx/Bvh3/hEfCejaJ9rn1D+zrOK1+13LZkm2IF3sfU4z+N bAFc9WMYVJRg7pPR913M5JJ2RgeKv+XX/gf9Kwa3vFX/AC6/8D/pWDX3uVf7pD5/mcc/iYUUUV6x AUUUUAcpRRRX6KfNBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBY0+/l0y8iuYSBJGcjc Mg8YIP4Vo/Fr4mnwT8ObnxKumyaoIbeSZrW1U75IxxJETtJRR8u6QA4Cs2AFGcatbQr90D2WN3nM HgJ5KTryhGcjk4U+x64FeDmOBo1akMXOnzOD1W112v8Aiehgq8aNRKorxurrv5fM/Mz45/GrVfjv 41XxDqtlaae8VuLOC3tNxCwrI7qGLE7m/eEFgFBwPlFeeV+sfx3/AGfvDn7SPh6y+13d1pWpab53 2S7gA3Qu4AZJYz94ZVCRkH5eGAJz+Ud9ZXGm3txaXcEttdW8jRSwTIUeN1OGVlPIIIIIPpX7rwRx FgM5wf1bCU/ZSpaOG9lraz6n9NcPZphcww3s8PHk5Ps72XSz6kFFFFfpJ9WFSW1zNZXMVxbyvBPE 4kjliYqyMDkMCOQQeQRUdFJpSVmJq6szrrv4v+OtQs57S88Za/e2lxE0M1vdalNLFIjKVZWVmIIw T2rkaKK5qOFw+Fi1Rgop72SRlTo0qKapxSXloWLSaOFLgSxvIskZQbGK7WyCD78joevscEJPZS29 vbzuF8q4UsjK6t0Ygg4J2njODg4KnGGBMFKTk5OTnvWyjrzR6mluwlFdl8K/hRrnxh8TxaFoL2CX knOb68SAAYJJCk73wFJIRWIHJGK+u/g3+xhq9/onjGz+I+iaZDqaWZ0zQNWjYSlRskTzykbBXC5j KmRRJxjKgAD5DPOLMtyC6xNRcyteN/es3a9uvd+Wp4mYZzhcu0qy1VtL66+R8JUV9T+Ef+CevjzV PFV9pviG9tNC0m3h3w6za7byO5kyuEWPfHIOC2WYDleAcg15z46/ZM+Jnw60jV9Y1rRLeDRNNyZN RGoW5jkXeFVkXfv+YkYBUE5AxnitcNxdkeLrewpYqLk7WV977Jd35LUulnWX1p+zhWV9Pnfa3d+S PHqK3tb8Liz1qw0/SL2PxGb6G3aB7BCzSSyKA0Ij++GWTcgDAM2FYKAwrqNB/Zx+KHiPUo7Gz8Ca 7HO4LBr2ze0iAAzzJKFQfQnnoOa9qrmmBoQVStWjBNX95209HZndPGYenFSqTUb66u35nALbo0ML m6iVpJGRoyH3RgBcO3y42nJxgk/KcgcZ+nf2Qvid4T+CHxX8T22peLbGXwxe26QW+pmxuVa5kEgM ZClMxAKz79/AOMEgbq8g8Qfs6/Ezw3q9zp1z4H124mgIDS2NhJcwtkAgrJGrK3B7Hg5BwQRXa/sd fA5PjJ8TxJqlpFd+GdEAuNShlcr5rMHEMeBycspJ7bUYHqAfj+JsTlWPyXEyr4m9FRd+Vxe7Tj03 urL1+Z4ea1cHicBVc6t4Ja2afW6+fRH3/wDGf9ojwr8CrfRJvEJvJ11eVo4FsIllKqoUvI2WHyjc ucZPzDAPNcV+1f8AtGa58CdJ8K33h/SLbVINUuHFxcXiSGKONVUhAVI2u4YlSc8Rt8p7c98Q/wBk a5+IH7SY8c6/f2OoeB/KjabS7iSRZkMcGxYwANpj3qJCdwzuYbe5+KPE8954r8d+ND4k8d6Xp11d yiSS4glnurHUGDrsVWtkk+RU5UsMjaq4Bzt/CeF+FcizGdCtTn7X2ceaqrN3cnZRSWt49X6fL4LK cqwOKlTmpc3KrzVnq3slbX3er9D9Rvgz8Sf+FufDjR/FZ0ubRTqCM32Kd95Ta7LkNgblO3IOBkEH FdsDmvzT+Bvwm+JulY8Z/CHxVpHiK6e7OnXy2rMgSM7XJmS6jjJBOM7RuHBUnJ2/pTFvEaeYQXwN xUYBNfnPF+R4XJsa1g6ylCTdo6qUPKSevo3ufOZtgqWDrtUZqUW3pqmvJp6/5j8YNFFFfBXueIFM niWeJ43UMrAgqwyDT6KuE5U5KUd0NO2p+Y3xl/Zf+I3wg0PxHfST6LfeEb64+03cto8MCxeW5MB8 qUKY3PmMqrCWPzMmSGw3AfAn4w678L/FemLa66dO8Pvexz6hDNE08KoGAd9gViH2gDK8nCAnAr9N vjn8GtN+OfgG58N6jdTWLGRbi2vIMkwzKCFYpkB1wxBU9QeCCAw+RPhF+zz4X8CfFzXfhz8Q/FOi a1banbo9tokXnxSzyq+6CVpNqiKQIZAESQsRKw5U/N/VfD3G2FzTJa1PM4qdWOrjGGrjoubqm0u9 tkvM/UMJnVDHZfVpY2PNLqlHVrRX6q6+XQ+gPhx+1t4W+KHiu+0DQI9Tubqxt2u/tK25+y3SArvI 34kQAuMbgMZ7gAH2G28ZaZdXCRCYxF03b5RtVT/dJPf9PeviL9m3RPCPw/8A2wfG+i2+t2ttp0KT 6fpttMShlkaeI+QjuSS8ZUqDu3MUyO4r7N1PWorm+TTrdgkEdzBbtGvyH75LFccjbsUAjHU+xH5l xJk2XUMbGjgqMuRwU7t20kuumrv0Pz7O8PTwGISw7fI0mr76o6zvRiqmp6vZaLYXF9f3cFlZW6GS a4uJFSOJAMlmYkAADqTXy98d/wBu/wAO+BJLjRvB0UfijVmhyupW1zG1jAzK20h13eYynaSgAGDj cCCK+Bynh7Ms7rqhgqTk++yXqwweAxOPn7PDwu/w+8+oNX1mx0DTbnUNRuobKxtY2lmuJ3CpGgGS zE9ABXw1+0F+31fyamNL+Ft5AmniNWk1ya0Yys+QdsccqgKABgl0OdxxjAJ+XfiV8Y/F3xdurC68 V6s+p3NjG8ML+VHEArHLfLGqrk9CccgD0riq/p7hXwswmWSWJzZqrU/l+wvv3/D0P1HKuE6OGaq4 xqcu32f+D/Wh0/xF+IusfFLxGde19oZtXkhjhuLmJCnnlF2h2XO1W2gDCBV4zjJJPMUUV+6YehSw tKNGjG0Y6JLZeR99TpwpQVOCslokS3F3NdsjTyvMyIsamRidqqMKo9gBgCoqKK3SUVZGiVgooopg FfSH7Gv7Pk/xR8YWXiu5u7VNA8P6gklzaszCeWRF8yIAbChQuF3ZbOAwxyDXlHwo8M+DNc8RoPH3 ip/DGgrF5vmWlu9zPO27b5ahEcRnhjucHoMKQ2R90/G3wJ4X+EX7Gniu18AuYdMvUtJzeQ3bTG8E s1vG8m/JBEkeAduFIPAANflnGGfyoSpZPhuaNSvJQ5uV8qTdnr1dn0Pjc9zFwcMBSupVGo81tEno 9er16HwN8T/iHqfxU8car4l1V2Nxeylki3ZWCIcJEvThVwPfknkmubu7SfT7ua1uoZLa5gdo5YZl KvG4OCrA8ggggg0yOQxsSApJBX5lB4Ix37+/apJo7h4Y7iVZTE5MSTODtYoFyoP+yCvHYEeor9Iw 9CGEpwoU0lGKsl6H1lOmqMYwhpFKxqeHPG3iLwd5/wDYOvapon2jb539nXklv5m3O3dsYZxk4z0y a39U+MvinxP4Yu9A8Tate+JdOmmW6hOpXckstrOqsqvG7E4GGIKEFSCcBWwwwfEHhDUPDun6NqM8 LNpur232iyvFH7ubB2yoD/ejcFWHUYBxhgTiVyfU8BjZfWVCMpX+Kyvdee91a34GHsMNiH7XlTff rdefkFFFFesdoUU6OMyMQuMgE8kDgDJ/lRGUEimQMyA/MFOCR6A4OKTdhN2EB2kH09aCSSSep71p eJNaGvavLdR24tLYKkNvbBt/kwooSNN2BuIUDLYG45J5JrMqKblKKlJWfYUW2k2rBRRRWhQUUoJU ggkEdxSUAFPjlaJsjbnaV+ZQeCCD178nntTKs6dPbW9wzXVsbqIxSIEEhTa7IwR8gHO1irY77cd6 mekW7X8iZOybtcrEYOO9TwXbRxmB2ka0eRJJYUfbvK5AOcHBAZgDg43HitvwFqfhrSPEdvc+KtEu vEGkoRvsrW9+yluRkswUlgBn5QUJOPmHfI1a7jv9SuZ4beK0gdz5VvCDsjQcKozycDAyck9SSSTX NzupVdKVN2ST5tLP01vdeiMuZzm4OOitrpb5ddCoeDWz4d8J6j4ni1OeziH2XTLWS8u7mQ7Y4kUE gFv7zthFHdmHuRjU4yMYwhZiiksFJ4BOMnH4D8hW1WM5QtTdn3tc0mpNe67M6G7+I3iXUPBsXhW6 1q8uvD8M6XENjPKXSJlVlATP3Vwx+UcZ5xmucp0aGSRUGAWIALEAfiTwPrTamjQpYdNUoqN3d2Vr vuKFOFJNQSV9dDrvhnommeIdcubC/wDEEXhq5mtJksr67AFoJShBSdycojJvUMASGZePXkaKKmFK UK06jldO2mmlvPfXzFGDjOUm9HbTsanhfVLjRPEemX1rqUmjz29xG66hCpZrf5hlwBy2Bk479O9e mfGrQNF8P/HL4jWviSa7Ysbi7086R5Z3XM22WAS7lXCbZPnAG4EEAnqfIoZpLeaOWJ2iljYMjoSG UjkEHsalmv7i5vJ7ueVrm5nLtLNcfvGdmzuYls5Y5Jz1zz1rzsRgJV8UsRGXKuVx03eqa18rP7zl qYZ1KyqqVtLab7p7/L8SOCB7meOGNS8kjBFVQSSScAADmiCeW0uI5oZHhmiYOkkZKsjA5BBHIINN RDI6oMZYgDcQB+Z6U2vVny2anax2O1ve2Pcf2bv2lT8BtZ8U6peaKfEt3rEMf7yW6McvmrISxMhV jhg7MTgklV9Sa+1PC/wItfGvxm8P/HU6he6ZLe6dFdN4fuLdQ8cj2vlDdICCAEYZUqTkdQPlHz7+ zn8IvCvhvxLJba3faRe/Ei7s4tY8JaPdrcxGzkMTSxm5O3Zv/wBWfKJcqELDOc19Z/s6r8TR4FmH xVMP/CQfbJBCIxDv+z7V27/J/d53b8Y7YzzX8qceZlh6deti8rfs5yShNt61ISVvci9OVW1kran5 Bn+KpKtOthPdbXLJveUWvsp9NN1bU8w/aV/bD8H+B7fUvCFpYnxdqcvm2GqWUdxJaJbI0eGBmCHc x3YwhyMNkqQAfPf+CcXw4/d6947bU3GWfSF0yMjYceVL5r4brztUEDHzHnIx6n+0H+x/o3xF0XWb 3wfp+k6N4w1S6iuLq+vVcpMAcuBjd5LMcMXRMsQQ2dxI7b9mv4Dj4A+AbjQn1U6xdXl217cTrF5S K7IibEXJ4AQcnk+g4A+dqZvkWD4Ung8sm41qrSmpat23fZLXS2rR588XgaOUuhhW1Um1zX3dvwS7 dT0XQ/FWi+JpL1NI1ex1R7KY290lncJKYJB1RwpO1uDwcHitQcV5n8Hv2e/C/wAEL7xDdeHjfPJr cyyzfbZ/N8pVLlY0OAdo3tyxZj3Y4r03FfkmPhhaeIccFNyp6WbVntrp6nytZU4zaotuPdqzCiii vPMDA8Vf8uv/AAP+lYNb3ir/AJdf+B/0rBr9Cyr/AHSHz/M5Z/Ewooor1iAooooA5Siiiv0U+aCi iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooauB1tt4oFjbxX0Ubu8rFLuDgIzgDEgI+ 6W+mDg+ma+O/22PAGl32hp44S1eLXvtMdvdT2sPyXEbKQrTAcArtAD99wU5+Xb9SaTqA0+7RpY0n tiw82GRA4YeoB7gE4P8AQmvIv24oB4Y+Ed0bTUHsoNQuoY7cRHf9pQ5LwkggqMfNu5BCbedxIw4e VPK86pQpq0qjVn3V9Yv0T+70PteGsViIZlQdKVk2k15M/O+iiiv6nP6gCiiigAr6N/Y88QfCzwFr 114p8e67FBq0BMGnaZPpktwsZzGwuRIqMFbIZR0I+Y55FfOVFePm+WRzfBzwc6koRlu42Tt2u09z gx2EWOoSoSk4p723/G56/wDH34y+Hfi34+1DxHYeE3s7m4ia1aS91F5Y5FVdkU6xKEMcgUKdu9ky OVY5J8t1HSLnSDam7gZEurdbmBwQVljYEBlYZBAYMp7hlZThgQNLV4tBvNH/ALSs72e31eW5xLoz WxMMSEMd8c5kYsoIA2uAw3fefBY4TOzKqliQvABPT6VGWYSlg6EKGFuoQ0tLmb07Nv8AFXT6BhKM KNONOldRjpZ36erPR/2eNBtdd+LvhUXHiKz8PtDqlrJG1wZVknIlB2RMiMoc4wN7KMsOT0r9fl6C vx1+BPhm48V/FvwraW11a2bJqdrK0t1dxwYUTJnZvZS788ImWJ6Dg4/YpRhRX8xeMaX9o4e07vle mmn/AA/mflfGVvrkNb+7t2PlL9q/w98bB8QtH8S/DmTU5tA0yxSaeysL4Irzxyu7B7fepmDJsG0B s4Ixzz5n8RJf2ifjcfDvh/W9EuNC8KeKhbx3VrZ6cHjs/LmUvLcFx5sJBVZQjOAVwoJIYV9844xQ QB2r4PL+M3gKNGCwdOU6StGbj7y7PtdPW58/h83eHhBKjByjtJrXyfqnszwD4F/sZ+EPgvq0WuPc 3HiPX0hEa3N9HGIYXyCZIY8Eo3AGSzEDIB5OfOP2uf2mviV8IfF9zoejaLaaboN1aKtnrlxbvJJJ Iyne0bh9gZCcbGUkbckEMK+xxXl/xz/Z68N/H7TtLtvEFxqNm2nSvJBPp06xt84AZSGVlIOFOduR jggEgrJuJaeIzqOO4i/fQaad9bdVZaLfoPBZjCeOWIzJe0j1v+Fltv0PNP2B/G+seN/hTq769rd/ rt9a6tJEsuoymWRIzFGwUOxLMMljz0zgcCvofRfC2jeHJb6XStKstNlvpjcXT2lukRuJT1dyoG5j k8nJ5rkvhx8OPCP7O3gGXT9OmGnaPAzXd5qGpXCgu5ChpZXOFHCqOAAMdK7PRdb07xHpkGpaVfW2 p6fcAmK7s5VlikAJBKspIPII49K8TiDGxx2OxGLwMXHDzlppZemmnnY4MdVjXr1KtFWhJ6dCp4z8 NReMfCOtaDPPLbQ6nZTWck0JG9FkRkLLnjIDZFfjX448NHwZ411/w+bj7WdJ1C4sftGzZ5vlSMm7 bk4ztzjJxnqa/axjgHPSvy//AG19V8C3HxYv7Lwlo0EGpxTO+tapFLJ+/uicNGIy2wYPLMFyXJyc g7v1vwfzGtSxtbBKLcJq+iVk11b/AAPseDcROGJnQSbjJX9LdX+Rzv7Mn7Q978BPGXnz/ab3wxeg pqGnQkFicfLLGCwXzAQByeVJHoR+pvhPxNY+NPDOl67pju+n6lbR3UDSKVYo6hhkHocHpX4m5xX7 O/CjS7/RPhj4U0/VIILXUbXS7aG4gtkCxxOsSgooBIAGMccccYru8YcrweHnQx9ONqs20/NLrb9T bjLC0aVSnXgrSle/nY6ujpQBivFb/wDaNktP2jrb4Uf8IrdsJ4PNXWTNtUjyWl3LGVwyDaVLb/vB hgkc/wA+YHLsRmMprDq/JFyeqVord6n59RoVK/N7NX5U2/RHd/FnxLrnhP4da9q/hnShruu2duZL WwwW8xsjJ2ggtgZbap3NtwOSK5H9mD406h8dPht/b2qaSulX0F09nKYQRBOyqpLxBiSF+bGCTgqR k18L+NPBH7Qfg/4navrR03xMmu6jN9omv/DiyzQXChyEBMOV2DaMRvghcZUZr9KvBF/qeq+DtEvd asRpur3FlDLeWYOfJmZAXT8CSK/QM/yTB5DlNOEJwrzqtNTi9Y6axau7rsz3cwwVLAYaMYyjUcnf mT1Wmqt27M26+Pf28/gx4PvtAPjmXVbTw54nQpDmfdt1QDAEZVAWMijo4B4GG+UBk+wgMV8oft9f D7WvHmj+CF0PwtqPiG4gv5Ukm04lmgjdVyjKAcByoPmFSE8vkjdg+XwLXdDPqDdX2cXfmemqtezv pZ2MMiqezzCm3PlWt3pta9tdNT49tfGPhj4k/YpfGt1N4Y1bRrOJI9Z0a1eefVEhVVWKVWf/AI+C ANs5YKAMMMBcfQvxy/bf0e60PSx4BsjLqN9al7i81FQJLJgxRVZOQ0mAx+9j7hO8YA8O+OP7LHiH 4GXukvqF5Fq+lapdfZre4063keYNhTtaMgKHOTtQOd20+hx6Rq//AATj8dx6jKNJ1/QrrTuDFLev NBMQQCQyLG6gg5HDHOM8ZwP6XxdXhOpVw2OxGK9z3uRN+70Ultfezs36aH6Ji4ZHiJUa+IqXjq4r ppv0vv0b/A+cbPSPE/xG13U9jXmu6mkUt7eXEkzTsyxIxLtJk7jgbVOTksqjJIrmq/Sz9nz9mvUf gT4J1BdWvdNudd1O8CzNaK0ieTgLGilkDFgTI3C5+Y46c/Mf7Un7PmuaJ4u1nxZo1hBd+G50W8ma xZc2xwFcsmdxBbLkgcBjuAxmvcybi/LcfjZ4Wg4qmtIva7W6+fT0LwHE+Fr5jPBWUYWXLLa77f5e h873V893BaRNHCgtojErRRhWcF2fc5HLNl8ZPOAo6KKk1bWb7XrxrvUrua/u2AD3Ny5eV8cDc55b AwBknAAHQCqdFfo6pwTUku/47/efdqEVqkWV1CVdOey2weS0omLGBDLuAIAEmN4XBPyg7ScEjIBq tRRVKMYvTS40ktup6t+z1+z3rH7QXie4sLG5XTNLsUD6hqboJfI3h/LAj3KXLFCODwAST0B0PjN+ y74n+EfiTVLZo7nUfDtjaLdHxHJZtDauCAAmVZwrmQiMKTkkg4CndWx+yt+0+/wG1a6tNWhmvPCt 2jPLbWNrCbgT/LtfexUkAAjDMQM8CvqHxZ+3z8KZbFdPn0vV9fs7+yVriFLKF41EindBKskigsBw wAZeeCa/GM4zjizAZ644bDe0wzSskvS7vb4vLb1Phcbjs4w2YNUqXPStokvvd+/4H5wUUUV+0Rd0 mz7tO6NDQ9Gk12+FslzZ2YCl3nvrhII0UdTlj8xA/hUFj2BPFXZPHniSXwxH4cbX9S/4R6MbRpIu nFr/AKwycxA7Sd53ZIznHoKwqK5qmHhWmpVUpJWautmuvqZSpRqNOaTtqtNn3CvUfgB8GLH42eJr rR73xXZ+FWSJWt3uVjke6kJ4ijiaVGY4DHK5xt56ivLq90+GvgT4Zav8P7638TeJ4dO+IBS7uNIt Y7zZaSbrVWtxcTlTCjCRSdvmKQTtfJ+UeLn+LnhcG/ZSlGctFKMeZx7tp9F1fS55+Z1pUcO/Ztpv qlzW87du7OV8U+PW0PT5Ph9purR+I/AdjeGUSGxjge7l3HdPGzeY8TclFKtgqoJX5mB82YAMdpJX PBIwSKkurd7O5lgkMbPE5RmikWRCQcHaykqw9CCQexqe9tLrRp5rS4Qwysq7gGyHQgOpBBwysNrA jIIwQcV6WCw1HCwUaerlq3ouZ9ZNLS7vqdlClCjG0N3q/N9Xp1fUp0UUV6R1BRRRQAUUUUAFFFFA BRRRQA4qBGG3fMTjbjt6/wCfeu7+EvgTw7451K/tte8X6d4YdbSc2Md8XjW4uRGxiDylDHHGGwWL NuONqqS2Rh+G9D0TVdE8Q3Wp6+2k31hbLPY2QtPN+3uXCmMNvXYQWU9G+XccfLzz1ebXUsZTqUKN RwktL2266XVn52+9M5KqdeE6dOTi11t8+qs/l+YU+aCS3YLLG8bFVcBwQSpAIP0IIIPvTKes8iwv EJGETsGaMMdpIBAJHqAzfmfWvQs1Y6tUJvZo9hc7FJYIc4ycZI/IflTaKKqwzW8R6jp2q3FtPp+n vpzm3RbuMyq0clwBh5I1CrsVsBtnIUkgHGAMx5XkVFZ2ZY12oGOQoyTgegySfxNMorKnSjSioR2X fX8yIwUEkgrb0C78PWEwk1fTb/WBsBEFveLZqjhjwx8uQupXb02HkjPANYlBGDSrUo1o+zk38nZ/ etQnBTXK/wDI0fEGtzeItYudQmiht2mI229uCIoUACpGgJJCKoVVBJwFHJqktvK8DzLG5hRlRpAp 2qxBIBPQE7Wx9D6UXF1NdyB55XmdUWMNIxYhVUKq89goAA7AAVHTpw9nTjCOlreY4x5YpI6z4T69 oXhb4keHtZ8TW13eaLp90t1Pb2Sq0shTLIAGIBG8JkEj5c1+l3wO8A/CPxfY2XxM8H+DrTT5tRyY nntQjW7xsYzsiyY4mBUgtHjPPJya+N/2Z/B/w7+NXhnUfAHiIQ6N42Z5JNC1iKIiRwyhnVsELKV2 E7X52sdhByR9/wDwZ+GqfB34a6P4TGpy6sNPVwbyZdhkLyM5wuTtUbsAZOAOpr+YPE/N6bn7ClOp TxCfK43ajKnq7q2ju7flY/JuKcZCU+SLlGotGujjq7+epgfEzw98PPhnqGpfGTWdEX+3NKtdrahb 7jK4I8pQE3BC5DiMM3OCBuAHHH/sffEP4i/FLQNc8TeMpraTQr65zogSONHVVeRZU+TB2KQqgvli Q3JGM+zy6z4a8WXOreGWvtM1a6ii2ahpJljmdI3HSWLJIVgejDBBr5Q+HH7COvaB8ToPFut+MLWF dO1Rby1t9HtmQzwo2VQnKiAEAL5ahwFyoOMV+b5bPA4rKsThc2qcldKPJKacnyrVRgvs3e7vaz2P msPLD1cJVp4qXLUVuVtNuy2jHtr12t0Ps7FZ/iDXLTwxoWoavqEnk2NhbyXU8mCdkaKWY49gDXl3 wD/aDb436j4ttD4YvfD40C7Fr5l05bzslxhgVUpINnzJzt3DmvWNS0211jT7mxvreO7s7mNoZoJl DJKjAhlYHgggkEH1r4PE4GeW4v6vjo2s1dJpuz10e2x4tWjLDVfZ1lZrc4f4K/G7QPjv4YuNb8Px 3tvDb3LWs0F/EqSo4VW/hZlIIYHIJr0EDFct8O/hj4Z+E+gvo3hTS00nTnma4eJZHkLyMACxZ2Zi cKo5PQAV1NZ5jLCTxU5YFNUr+6pb28ya7pOpJ0U+XpfewAYopGztOOuOK8e+AZ+Lx1Lxb/wtA2X2 X7WP7HW1MR/d5fdtMeD5eNm3zBv65xToYL2+Hq4j2kVyW0b96V3b3V1t1CFLnpyqcyXLbRvV37d7 dT0PxV/y6/8AA/6Vg1veKv8Al1/4H/SsGvsMq/3SHz/M86fxMKKKK9YgKKKKAOUooor9FPmgoooo AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACqnxE8c+FdF+GN5D45OnzaOs0SLHqdubhX yflVIwpLMrAMOuBnstW68++OnwxHxX+H13o8TpFqETrdWUspO1ZlyMHB6MrOuTnG7OCQKUcLQxVa ksQ2kpJ3W613R6mVyprF041puMW0m1uvM+Y/2g/2dL3RWHjnwVYjVvAupxi6D6YhkFgdm596qTti OC4fhQCAdvy5+fK+w/2Nf2lz4B1MfD3xeNUmF5fRWenF0Mn2OUkR+S6sQyKCFGADg9gBX3j4g8N6 V4o0efTtX0201TT5gDJa3kCyxPghhlWBBwQCPcCvo8w47x3CeKjluPw/tYu3JNO14/c7tddj9zfE GKyVxwmKp86W0r2vHo9ndn4l0UrfeP1pK/fIy5oqXc/TU7q4UUUVQworTfS7y10a01LFq9o0zBCk kUkiv6SoCWQHb8okADYYqCN1dl4d+N+oaHevPd+FvBevRtGUFtqPhmzWNTkHcDDHG2cAjlscnjOM eVicTiIxcsJBVLXuuaz/ACa9btHHVq1Ur0IqVvO36HnkcjQyK6syMpDBkOCCO4PY1+32nsz2NuXB VjGpKli2DgcZIBP1IFfkC+vWvxG+Nej3+naBYeH4dQ1CwiXSrFAltG48qN9qgDCs4Zsdt3Unk/sK vCD6V/NHjDXdX6iqkOWfLJtXva/Lpp2Py7jGq5yw6lG0rNtdr20+QtFFFfzcfnIV5n8bP2gvDHwG t9Gl8Rreyf2rM0MKWUSyMoUAvIwLL8q7lzjJ+YYBruPFGtN4b8N6pqqWc+oPY2styLS2XdLOUQts Qd2OMAepFeAeH9W0/wDbs+BetQaloknhVkvTBa3JdbswzRqjiWNiqE/fKMAFyrMobkkfVZJl9GpN Y3MIt4WMlGbTSavtpu++iPSwdCEpKtiE/ZJpSaeqv+PnseZ+IP2ibb9oXxf4t+EfiG4tPDPhfWfL g0LWo4pDNJKssT27OGO1kmwHH3PlIG7LA19Q/A34UQ/BX4baZ4Uiv21Q2rSySXjReV5rvIzk7Nzb QAQMZPT3rl/AX7LHg/wtovgyPWbceJte8LA/YtZud8bg+aZFGwOQVRj8ituC445JJ9mFevxHnOBr 0o5flF40E7tO1nJe6pLrqtWn1OrMMXQnFYfB3VNO7T6yWnMuuq6Hmf7Qngjxj4++HU+l+B/EP/CN 62Z45PtAlkhMkak7oxLH80eeDkA527TwxI+A/iB+yb8ZTpV14x1vQ11DUbm4/wBKsdOKT3pJ484x wgq+44JKlmJYsw+8a+/PjX+0F4Y+AsGjS+I1vZBqs7RQpZRLIyqoBeRgWX5V3LnGT8wwDXpMcgmj V1ztYAjIx+hr0cg4rzbhPCU50qEfZ1G2pOOrS3Sfa9jqy/NsXlNOMqcFyyvZtavurn5eeFf2YfHn hT4xeA7e68LanfWMtzpt/dXP2Im2hVmR5o5HG5F8vDqQ2CduduGXP6iqMKKMDPQUorxeKOLMVxTO jPFRSdNW06+Zx5nmtbNZQnWSvFW06hSbRnOBn1paK+ITa2PGEKg9hS0UUNt6CCgjNFFJOwCFQ3UA /WloopttqzGRXFutwqAkqUdXVl6gg/1GQfYkVh6zpF5d6LdWk81rdxz5M73QZEVAoHCjI6jce3Xj mugY4U4HQV8BfGL9q/43+GFAvdIt/ACrqs0NuZbLdJeQr2Hmh1dUyu6WPAYuu3jNfccL5Tj83r8m CnFOLT95289OvTp8zvwWV1czm4UWk13dv+C9uiOK/ab/AGbtY0HUNZ8aaFYWA8LQ+Us1npqLGbLC qjMUUbShbncD/EeMKTXzVX7ARy6f4q8Ox6x4Z1O28QW048mabTZY5YuCCVUKCeGwMbiVAA6dM/xJ 4G8J+P8ARItS1jQtF1TWLJVia7v9PjncooLBCzqSAcnrwWyB1r+gMq8QquEoQo4mlz2fLdOzjslz Kz69T6fLeMq2X01hMbT5nFWTvZ2X5s/I+uu+JHxN1T4o3+kXeq21jayaZpkOlQpp8BhQxRlipK5I B+c/dwOmAK+gfEv7Dvizxn4212/0HVPDVnYXl7LcW1nNLLA0aOxcIqLEwwuSowTwvas3U/8Agnl8 UbCwnuIbrw/qMsaFltba8lEkp/uqXiVcn/aYD3r9EnxXw9KtSnia8Y1YrS91bmtf/hz9ApZ9lOK9 nWdVc3TyvueB+A/h/r3xM8RRaF4bsP7S1WVGkS386OLcqjLHdIyrwO2af8Qfh5r3wu8UXXh/xHYv YajBhsE5SVD92RGHDKcHkdwQcEED67/Y+/Ze+IPw4+MMfiHxXop0XTrSymWN/tdvN50r7VCYjdiO CzZ/2QO9eo/td/BR/jj8PrDU9InhPiTSppDbwNKdk28DzLcEttViEQhsYYqPuhiR85X8QKFLiCGB hKM8M0k5xd7Sd7XadrafI82txRSo5nHD80XSa+JdH67WPzPor2Mfsg/FoxK48KDJP3DqNqCBxz/r f84pP+GQvi3/ANCn/wCVK0/+O1+jf29lX/QVD/wJf5n1H9r5e/8Al/H/AMCX+Z47RXsX/DIXxb/6 FP8A8qVp/wDHaP8AhkL4t/8AQp/+VK0/+O0f29lX/QVD/wACX+Yf2tl//P8Aj/4Ejx2ivYv+GQvi 3/0Kf/lStP8A47R/wyF8W/8AoU//ACpWn/x2j+3spf8AzFQ/8CX+Yf2tl/8Az/j/AOBI8drt/BXw +XxNoPjO5uftVneaLpKapbtIBHbsDLFlZGIJy8bkxgY3HHOBz1f/AAyF8W/+hT/8qVp/8dr2G/8A 2GtbvvBWlS2fi+S315dNigudJ1FCbdGMhkkiE0bEhFLcDY2WXOQCNvhZpxLltKMIU8VFczWq961m nrbo9te552MzzAU1GKxEVdrVa7NPp32PmDwF8OfEfxO1mTSvDGlyarfxwtcPEjom2NSAWLOQByQO vJPFYF1azWN1NbXMMlvcQu0ckMqlXRgcFWB5BBGCDX1Nrf7BfizT9TtZvDfiPTJIo4YXM17JLBNH cBRvKbI2+XcMqcggEA8jJ+g/hv8AAeLUPhq+g/GN4fHuqi6kktr15JJZbWE7CI0uW2zDLIScEDB2 8gc+NjuOsJg7V6UlVpuy5Umpru9dH+FvM87EcU4ShapCanF20Wkl9+j/AAPzRor6W0/9hvxrrf8A wkE1xJpvh2aG526baSTGeC5jLncfMUs6Kq427lLN3C9aj/4YJ+IP/QW8N/8AgVP/APGK+lXFmTbP EK//AAL+h6/+sGWJ2dZHzbRX01a/sC+OHI+0a5oEQ8xAfLlnfCc7m5iHI4wO+TyMc8vafsfeO9U8 ea34es7X7PZ6cWMWs6rE9vbXaZAUxlBICWB3bQTtwQxB4rWnxRk9Tm5cQtFd7lwz7LZ35ay01Z4n BAs0Vw5mjiMSBwj5zKdyrtXAIzglucDCnnOAYa+m7b9gXxu9tdNPrugxXCIDbxxyTOsjbgCHYxjY NuSCA2SAMDOR5P4l/Z/+IPhnXbzTH8JaxqDWz7PtWn2Es9vKMZDI6qQVP4HsQCCBrheIsqxc5RpY hNrvp+djShnOAxMnGnWTaPPKK7D/AIU54+/6EfxJ/wCCi4/+Io/4U54+/wChH8Sf+Ci4/wDiK9L+ 08F/z+j/AOBI7vruG/5+L70cfRXrHgD9l/4heP8AUri0XRJ/D6QxeYbnXrea1iY5ACKfLJZuSeB0 ByRxn0O7/YF8bRx2xttd0GZ2jzOssk0Yjk3H5VIjO5cbTuO05JGOMny8RxLlGFqezqYhX+/8jz62 d5dQnyVKyufMlFfSsX7BHj9pVD6x4cSMkbmW5nJA74HkjNXNZ/YC8YQapLHpPiLRLzTxjy7i9M1v K3AzujVJAuDkcMcgA8ZwOV8XZIny/WF9z/yMP9Ycrvb2yPl6ivf9S/Yg+JljfyW8MWk6hEts04u7 a9xG7jOIQJFV95wMEqE5GWHOIZ/2LPiVH4XtdRTTreXVZLl4pdHF3CJIYgoKS+YX8tsncCobIwp5 ydvTHifJ5KLWJjr5/n2+Zus8y12/fx18zwaivYv+GQvi3/0Kf/lStP8A47To/wBj/wCLTyKp8KiM EgF21G0wvucSk/lXV/b2Vf8AQVD/AMCX+Zt/a2X/APP+P/gSM34F+HdI19PG0moahFo97p+hSXlh qd3EZLe0kE0SlyFy4ch9qFVYqX3AFlWoPib8PrzTdA03xffePtE8X3GrlcrBfzS3zD51EjJMiybA ItpZgCG+XHGa1PBX7LXxJ8Wa/faR/Y83h8QKyz3mrrJBavhvuq6q3mZIBGwMOAc4wat3n7HPxXtb m4ij8Ow3aRSFEmh1C3CTLkjeu51O04z8wB5HA5x85LHYKGYyr/X4rZ8r5bctkrKT2u1fR/LqeXLG 4SGKc/rUVto7bWWif46P5HitTWVlcaleQWlpBLdXVxIsUMECF3kdiAqqo5JJIAA65r2a9/Y2+K1o tsYtAgvDLEJHWDULcGFiSPLbe65YYB+XcvIwTzjF0rwz8Q/2ePGtr4nu/CVzBPosgf7ReWrTWQZ0 2qTKh2E/OMENw2O4xX0DzvBV6clg60J1LOy5lq+i+89NZnha0WsNVjKVtFdbn0R+yp8Arz4LSP8A F34jPbaFpNlp0zw2l1HJ9stXZtnmSR7PlJTcAo3MfNAwDxX0T8TfB+i/ta/BmC38O+KpLPSb2ZLm HULaEuknlsQY5ImKsRnPykqQyqe2D8iaD+3FqWufDzWPDPxG8Jx/EKC5BMs/nrZAxFkAV1jiIXa3 KyLgg7O/zV61+zD+1vouua9ofw50P4dP4Y0ZYpvJkttSa7W3ADSEuGjU4Y5yxYncw65r+b+Ism4j rYiedVad8RSldOLg4KCV9E3zN37o/MsywmZOpLH1Y/vIPdOPKorsm73v5FP9lz4P+Kvh7+094wk1 LQr5NHtrCW0h1u+Dst2PMh8uRZCSrvIqF2AztOV+XG2vtIivhxf+ChPiCbx1qEEXgLOh2NvcNNZF pDfK8QY75HC7Y1yFDAodmSdxxivqP4Q/F62+KXw70jxPLp82hvqCM32KcmQptdlyGCjcp25BwMgg 4r4fjHLM8rVKeY5hQUbxjH3Wnrbqk27u3oeJnNHG86xOLildJaNPp6nfqoXoAPpS5rxG7+L3jiP9 oi28KxeFVb4fyWnmSeIGik4fy2bcJAdg+cCPyyu7+LO0ivAvjf8AtRfGL4I/FXWIJo9LvPDl85fR o7q1LweQCBlXQo/mdN6uTgngbSpPk4DgzMszrKjTlFTlBTV5bp9P8S6p7I5MNlVfF1FTpyjzOPMt Vqv8/Jn3XSMcAn0rwP8AZW/aYuvj5omqnV9Fj0e+0oxJLdQSH7Ncs4Y/IG5UjbyuWwCDnmvZfEWt vYaDqNzpscWpahDbySW9mJ0QzyBSVTcSANxwMngZr5/GZLjMvxzwGKjaaaT1utfPY4K+GqYas8PV 0ktNzybWf20PhHpem39xH4qS8mtXaEW8FrOXlkAYhU+TBB243/c5Hzcivnb9k/4v/EP41/tDpd61 4xuBYWdlPcTaNGClvNFnaqLGq7AVeVDvb5yABk9vmvXvA3ivwtaDVNR8CX2k6X563UpvNPl8hcSM qRF3G+NOduxny3BJPyY+t/gx8Ovijc/tCaR8StRubew8P6/ZR3+peRcJEqo1tiO0e3ZtxZG2AEg4 A3ZDZA/obE8N5Lw9lOJWGlGUqsJWlNxbTSXuxSW7u+vRH6FiMvy/LcHV9nJNzi7OTTd1bRWW7u/w PrjxV/y6/wDAv6Vg1teJbiK4+zeXIkmN2djA46Vi1+PZZFxwsE13/M/KZu8gooor1CAooooA5Sii iv0U+aCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPkD9rv4e3vhXxfpvxC 0NZYBK8f2qeEf8e91GR5Uuc8bgFHAABj5OXr7h+AvxWh+Mnwr0jxEDEl/LF5V7BETiKdcq4APIBI yPYjk1wnjHwrZeN/C+paFqKb7S+haFyACUJ6OuQRuU4YHHBANfF/ww8YeJP2cvil4k8LLfvazXcU 2mxSMf3C3Dr/AKLcsvPy/MjHqQG5BIxXq5hlUeK8rjh72xGH1i+8eq+X+R+sZZV/t/LVh2/31Dbz h/wDyvxv4B8SeAtTe28RaFe6JK0skcYuoGSOUoQG8tz8sijI+ZSRgg55Fc5Xrlj+zV8TPEXiy6td V0e500lJLy817Vy5sUAQyM73SB1YnocFjuJzjDY8w1iwh0zUZba21G21aFMbbyzWVYpMgE4EqI/B OOVHI4yME/t2W4+jiIrDqrGpUik24p28u6T8r3e5+2YTF066UFNSklduO36/mUqKKK909E6/4Y/F TX/hDrt3rHhyWCDUbiyksvOnhEvlq5U7lB43AqpGQRxyCCRXIE5NKACDyBjt60lc8MNRp1ZVoRSl K131dtvuMo0qcJyqRWr3fe2x0Pw8vtU03x54eudDWBtajv4DZC5jV4/O3gJkEEfexz1HUYIBr9pI dwiTeQXwMlRgE1+MfwpgW6+KPg6F9u2TWbNCXBK4M6DnHav2eUgqO/Ffy54ztPE4RW1tLX5o/J+N H/tFJW6P8xaqatqtroWl3eo306W1laRPPPPIcLHGoLMx9gATVsnFVdU0y01rTrqwvreO7srqJoJ7 eZQySRsCGVgeCCCQR71/OVLkU4urflvrbe3Wx+dxtdc2x4d8EP2s9N+OnxH1vw3pHh+7g02xtzcw avLICJ1Dqh3x7R5ZJbKjcxIBJC8ge9KAOgAHtXE/DL4K+DPg7Dfx+EdFXSRfsjXLefLM0hUHaC0j McDc2ADjk+tdvXtZ1Xy6tim8qpuFGyspPVu2rer3Z14yeHnWbwsXGGlk9/MKKKK8A4jL17wto3im K2j1nSrLVo7aZbiFL63SZYpVzh1DA4YZOCORmtQDAozzRnBrWVWc4qEm2lsuxTk2rMKKKKyJCiii gAooooAB0rmviD8R/Dvwt8PPrnifUl0vTEkWIzNG8hLscBQqAsT16A8AnoDXS1yPxS+F2gfGDwhd eHfEVsZ7KYh0ljIWW3lGdssbYO1hk84IIJBBBIPfgVhXiYLGtqlf3uXe3lc3o+zdSPtr8t9bb28j e0DX9O8U6NaatpN5DqGnXcYlguYG3JIp7g/5xWhnmuV+F/w30n4S+CNN8LaIZ20+xD7JLpw8rs7s 7MxAAJLMegA7ACuqHSssVGjGvNYZtwu+VvdrpfzIqKCm1Td1fS/Yy/FV7qGm+GtVu9JshqOqQWss lrZlwnnyhCUj3HgbmAGfevmn4PaH8Rv2gPh/42tvi5pUFrHcuyaEuq6OsU1jM0cgMiRkK21N6bWJ 3n5vn719Usdqk+gzXyB4L/bS8YfFj4m6Vo/g34fmbw+t+tvqd3KZJmjt3fCTM6hUgO1XYq2/O3AO a+64bp46rgsS8DRjeHLJ1JNJwtqkm39q1j2cBCvOjVlQgvds3J2Tj2tfucj+ybqmv/AL4+an8HfE V/Zy216pnRLJPNQ3hhjkUiQqrgGFSCGGMgYAzk/Yur6Zpk120yyCwuJUbdM8iopLABgyNzu2tnGB 15IJzXwx+1D4j1v4K/td2/j+z0csrRRy2st7zbXZFv5EoUpggqrYIYkg4JBVlB734BftV+KfjZ8U LjS7jT9L0+OOCWawWzDJJnfyCruwdirEswAxtJPt+oZtw/jM0VLiHDWjGVKLqNNJOfW6+6/zPRz7 LK2MoQzOnFOLhFyat8XWyPqTwpHDoE11Hd3cMTyxQybZHCMpIYlSD3Gf1HrXWo6yAlWDDJGVOeQc EfnXO+G4rqzkns5oUjuVVme4Kb/NbdlXZtwJHzHAI52nnIIFg+Gop4hFKkccQL5jjd2XkEBkUnah yScYbHY1+K5oqNfFSqVp66arVPTfofCUeaEEookuLmXUr6NLJpDbiJw10jfu1c4KEc/PgqQQOPmw e4qDX7CK2s0kAMk5kAM0h3ORg8Z7DPOBgegrajtYYnV0hjR1QRhlUAhf7o9vas3xP/x4R/8AXUfy NcmFxF8RTp0tIr736mzho3Lc5miiivuTEKKKKACiiigAooooAKKKKACiiigAooooAKKKKabWw07B RRRT5n3DmfcKKKKTdxXuFFFFIAooooAKKKKACiiii9wCiiimm1sNNrYTFGMUtFVzyfUpzk+oUUUU nJvdkuTe7CjrRRSTa2BNrYOlFFFJu7uwbb3Ciiim23owbbCiiikIKKKKACiiigDlKKKK/RT5oKKK KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+b/wBsX4Trr/hxPGWnwyPqWlos V2qEnfa5J3bQDyjNnPHylifujH0hTZI1mjZHUMjAgqwyCPSu/A4ueBxEcRT3X4rqvmevlWY1Mrxc MTT6bruuqPlrw1+1je237KusaJLaQ3mvW+3SI2Y+cFtnjC+fLG+4FfvKc5Uuy5HzYr5JSZ41dUdl WRdrhTgMMg4PqMgH8BXe/FrwNefCX4h6ro7CW3025LS2y29wcz2TyHYpb1+TBDA/MmcEYJ5bxR4e bw3qYtxMLu1mijubW7WNkWeF1yrAHv1UjnDKwycV+zZLgcBg+ethFb275/wWnyfQ/pvKKOEowdTD bVfeX4afIyKs2dl9sjumE8EJgi83bM+0yfMo2p6t82ceinvgGtXQfD2XSoPHnh2bXJYYtFi1CCW9 a4haaPyFkVnBRVYtlQRtwc59K+ixNSVKjKpFNtK9lq3bp8z3a03TpuaV7an018H/ANhjSvi98KdH 8UWXji4tLrUDvKvpeY4dpZJYtpkBciRSBIGAIH3eeOL/AGof2bdJ/Z48M+EYI9Yl1nW9Subxpro2 xhSSJFh2qF8xguwsfUt5jZICgV6ref8ABQaw8I+MotM8KeErOT4eWaCCKGOP7JcEgnMkQBKKncIU BPcrnA6v/gozd6Tc/C/ws0n2X+2X1JXt0lKi5SAwuZSoznbuEQbtnbnnFfz7gs14qw/EWFp5m5LD 1pScY+7e1nZSsr6XV0/zPzfD4zNqWZUY4xtU5ttLTaz0dl0ur3PiKy8H6pH4ITxppskzRWOom1uZ Lf5Wsn2xvDKWDbgHYuA2AAYwMksBXuHgj9sP4jfDj4fadDa39p4ulmluLi5n1uSS7ns0DIixttlV 1XPzBnyp80KpypFfM1e4fAbw38FL7w/qd98T/FN5p+pM7W1rYWcM58pCnE+Uibc4bdgZKjaNwO4C v1HiLBYWphfaZlR9vGMrpRhzSs+mnbvp0ufWZpQoyo8+Lh7RJ7KN3btp+Z1vxj/bU8TeP/CngtNE 1G48N67beddaudIlkhjaUOViTk5ZdilypLL+8UEkqcfYX7I/xdvvjJ8H7TVNYuxe69Z3MtlfzLbi JWdSGQgDCkmN4ydoAyTwK5n4T/sgfCaw0q51jS3vfFGj+IdLS2A1CdXieBtj712ojK5ZFbOcqR8u 2vXPBlj4H+GotPAnh+XTNIniiNxFoyXKm5ZCTmUqzGR8kHLnPTrxX8x8UZrkOMwDyzKMJJTpycua yulq5J9bJu1vJan5ZmmLy+th1hsFRacXe7WtuqfXd/gdnRRRX4wfIhRRRQAUUUUAFFFFABRRRQAU UUUAFFFFABRRRQA1xuUj1BFfD3hj9lf45/CTXPEeu+FvGGnXc06XEiW6zyb9QkbcEeSKRPKWT5i4 LMwDADO0k19x0Yr6jJuIsXkkKtOhGMo1Lcykk07bHpYPMKuCjOFNJqVrpq6dj82/Fn7DvxSuPB+k 6wgOueJr+7uLjVNIe7iQ2jOQQ4dnCOzbSXII5KABgpavJNBl8R/s0fGrSrrWdOW01rQ7iOa4sTLH MTG6fMu5GZctG5xzxuBr9f6+JP8AgoP8KvFPiW70vxVpOhW95oWk2En2++ttv2qP94D+8HDNGo5G 3dtzKSFHJ/ceEOP8RnOK/sfNlBUaikr/AA77R3tbolv5n3OUcQVMbU+o43l9nNNdt9l28l18z6c0 vxZpXiK10jxBpM1rPpGoyJNDOjjIZgm9iVYFeGIZTkAoMj5q7q1uFu7dJkBCONylu69j+I5/HnFf NH7J8kcfwS8M6clpPZ2V9bt+4usr5kplbMqtyQGcFlOCCNoIxyPd1t9Y0GztT9ohuLO1TdMgU72X PzAE9do6cjp0r8w4jymlh8Q8LTmrxbUb9Yq/49Ox+XVksPiqtOOsYtr7mdLmsjxP/wAeEf8A11H8 jWq5YL8oDHI4Y44zz29K5i51pdd0Zp0iaJEufLAY5JAXOT6denNfG5dh6kqyqpe7Fq/zHOaXu9zL ooor9AOcKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAOUooor9FPmgooooAKKKKACiiigA ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi iigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8V/ar+HNl4v+HF3rRtZ59W0KJ7i3NvKE/dk r5u/IIZQo344PyYBGTn5e8C/D3WPjXolxa6dqkEEfhuxdrbRnkdpJZGy5ManCjzHB3Nng7QRjbX6 B6jp9vq2n3NleQpcWlzG0M0MgyrowIZSPQgkV+cvxZ+H9z8L/ife6UWGm2puPtOn3Akdgls0h8t9 wBbK4weCcocZ4J/ROGsVOtRng4z5Zx96Lavbukv8u7P2bgvMJ4jDTwCnapD3oN66dUl/W5wNFe2/ tJeD9ESfSPHPhe7+3aJ4i372htykUU8YUE5wMM53sVYA7lc89vEq/TcDi442hGtFW7p7prRp+jP1 /AYyOOw8a8Va+6e6a0afzOg8LaHo2sWWuy6rrp0WaxsWubOL7IZxezBgohyGGwksPmwQBknGKW81 kaz4Rt4dQ1Kaa+0uSO1020YEqtq5mkl5xgbZCmOc/vG6hRjnqKcsLz1PaTk3ZprRe7be2l9evrod Do80uaTvrdbaemnUuaedPEN99tFy0vkf6ILcqF87ev8ArM/wbN/TnO3tmoBPi2MXlx8uHMmPn4BG M+nJ/wAgVFXWfDL4i3fws8VxeILHTNM1S9hjZIU1WFpY4mbHzqFZfmAyAc/xHjOCKxCqU6U50o88 uivb5X6Dq80ISlBcz7XPtTwf8WPGniv9kHTJvhUstv4k8MeRpt+k0KSyPFDCC5tw4ZXYgxnaRuxu ABbbn4g8ZePte+IPiqbxF4i1CTUNYmMfmXIVImOxQq4CKFXAUdB79axXvJZWGZCiiQyqicKjHGSq jgdB09B6Vt/EPxrefETxlqfiG+3ia8dcLJJ5jIiqERS2BuIVVBbAyRnHNfGZPwzSyjEVpRpxaq8z 5re9G7Xut68yer6Wt1ueDgMpjgatS0U1O7vbVXt7t+q+61j9i/BXiKx8W+ENG1nTZJJLC/s4riBp c7yjICN27nODzmtuvyj0D4u/Fb4ZaLo91ofxDtpLG+toLaGxXU7a6FkACqRPbTZ8ghUGWChcEZbJ Ir7D8bftm6L8L/ht4auri503xx4tvLdEurbQr+M26TqkZmLSLv2DL/KNpz6AZI/lzO/D/MMLioxw TVZVJSUVG91bfmuklbvc/K8bw/iaFWMKLU+Zu1t9O97WPpmiue+HvjO2+IngfRPEtnE9vb6pax3K wyEFo9wyVJHBIOR+FdCa/Kq1GeHqSpVFaUXZrzR8vKLhJxlugooorEkKKKKACiignFABRRnNFABR RRQAUUUUAFFFFACAnNeX/tNePNV+GnwP8T+ItEkSHVbWOFLeWRA4jaSaOLftIIJAckAgjIGQRXqO K+b/ANvuSyT9n+7W7v7izle/txbQwY23Uu4ny3H93aHfqOY1POMH6jhfDU8XnWEo1VeLnG6te6vs enllKNbG0ac1dOSv6XPmX4A/Grxx8UvjppcnifxbcXkaWkoNi4WKC6CqxEYijCruGS+4DdhCM199 2eqR+K9GurW5lWG7SInJYquFCHexxt+8PwGcetfBf7AfgjT9d+Iesa5ezWskul2RhtbSdX3Cec7E kyBjG3zF4OfmJ4xk/as9vcPZSW9r5VzbNcEeRATIySgfeHAJBCtjqMZzyM1+78b4bB1MzWFw8PZu ko2aSSXXT5WNuL3So5m6eHiklFJpK2u/T1On8P6pPNYouoQy3EqQiaIqjMXXJI3DGN2Y8qT1yMc5 za1u3ittJiENulqrShjGihcHaeuOM/4VS0XxEttaR21wqQXcEaxvFcSGIlVzgqGG3OCvUjPOcACp de1m2nsNjN9nnjmw8ExAdcA84zyORgjI5r8YqYav9f8AcptRcum3ql2Pl6c48mr1MOKeOdcxur9+ D0qSsKXVHCGOAGOPG0ZOSPxqzpd5JIFjYh/mPzMwzjHp1619rUwFSEHU6djmjiIylympRUck8cTY eREPXDMBT1O5QRnn1GK8xxaV2jqumLRRRUjCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA5Siiiv0U+a CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArwT9sTwAnib4cLr0Mb NqGhSCT5FLF4HIWQYHYHa+T0CN0ya97qtqenW+saddWN5CtxaXMTQzQuMq6MCGU+xBIrtwWKlgsR DEQ3i7/Lqvmj1cqx0stxtPFR+y9fTqvuPkz9kFIPG/hTxl4M1uJL/Q2EMy20meGcsGIOeOY0YYwQ Rkc183eJvDt74R8Q6ho2ox+Ve2MzQSgA4JB+8uQCVIwQe4IPeu10qfU/2ffjWsdxKwk0m9EVwyDi e2bGTtB/ijYMATwSM8ivoz9rH4bWXjbwJD430xw93pkAkLW8W/7XbOynJI5wgJcHoAXz1yP1aOMj l2Zqpf8Ac4mzT6KVv10v6+R+8RxyyvN1Nu9DFWafRSt+p8V0UUV97ufpAUUUUAFFFX9E0DVPE2oJ YaPpt3qt84LLa2MDTSsAMkhVBJwKidSNKLnN2S3bJlJQTlJ2SKFXdE0i48QazY6ZaeX9qvZ0t4vN kEab3YKMsSABkjk198fCT9krTPib+zp4Q0zxzaap4f1awu7y5i+z4t7lElkIKyrIhHzBI25XcAq4 IGRXhvxX/Z+0P4F+OZNa0nxpomsaZoE9teSaBeaii6wzB0PleWiEYJKneQMK2Spx835phuOMuzCv WwFC6rRcktLxbTsrNaa6f5nydLiDDYmc8PTX7xXS6pu9lr5n6FfCnwfL8P8A4a+GfDk8yXFxpmnw 20ssQ+R3VAGK8DjOcZGcdea6s8iuC+B3xXtvjV8NtM8VW1mdON0ZI5bMzLKYZEcqVLAD0BGQDgg4 5rvcZr+JM0hiKeOrRxatUUnzLzvqfiNeNSFWUaqtJN39eoUUUV5ZgFFFFAADmuS+LHh7XvFfw613 SfDGr/2Fr13bmO11Alh5TZBPzL8y5GV3rkrncASMHraK6MPXlhq0K0ErxaaurrTujSnN05qa3Wpx XwZ8L+JPBvw20bSPFutnxD4gtkcXN+XaTeS7FRvYBm2qVXc3Jxk12tHWkZtqk+lViK08XXlWklzS d9FZXfZBObqTc3uxaK8q+Cv7SHhX4732uWvh2LUIn0lk8xr2BUWVGLBXQhm4O08NtPPTrj1U9a0x mCxGX1nh8VBxmrXT81dFVqNTDzdOqrSXRhRRRXCYhRRRQAE4rH8XeENH8eeHr3QtesItS0q8TZPb TZwwzkEEcgggEMCCCAQQRWxQK1pVZ0JqpSk1JaprRoqMpQalF2aPNfB/7O/gX4dWN5b+FtI/sVrt leWVbiWZnKghQTIzHAyTgEdT0yarPay6Jdz2d4DGWHDKzBTkMobI6rhiehPGOMmvU6q3+l2uqRCO 6gSZR0J4K9OhHI6DpX12C4lxKnJY+cqkZbtu8vvZyYulLFT9rKV593rf1PNBepeXD/2o/miNQu+I L5jkFRw44YgAnLZBAPrmq0ohivAhna6to+FdARleTgA9OTyPr9a7Rvh7ZtdyP9olW3blYkAyp/3j nI69vx9cfxJ4Th0lEkt5nZSrErLgnI9xjsfTtX3ODznLq9WNKlN3a2tZL/I8eeHrRXM1sYF3dveS 7m4A+6o6AVBQCNvfPrRX10YRjHlitDz3Jt3Zq2uqwwxAOshkP3n4Jb8a0YLmK5UmNw2OvtXM1oaL LsuWQnAdenqR/wDWzXiY3AQUJVYbnfQxEuZRext0UUV8weqFFFFABRRRQAUUUUAFFFFABRRRQAUU UUAFFFFABRRRQAUUUUAFRQsVLIxO7JIz3Ge30zj/ACKlprIHxkdDkH0NUmrWYmuo6ioZblIY5GfI 2dRjn2/OpqHFpXaBNMKKKKkYUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHKUUUV+inz QUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHyX+2p8MvLmsf G9jBw+2z1LYvf/llKcL6ZQsx7RAV1f7IfxXg8ReEl8J6hdRDVtMytrE3DzW3BGOxKkkcc4A+tey/ EbwVbfETwRq/h66by476EokuCfLkBDRvgEZ2uqtjPOMd6/PLw/f6x8KPihG9pFFd61o1/JaiFAzp NIrNEyjGGIbkDoea/RMtUM5yqeBqP36esfTp+q9LH7Hk6hxHkc8BUl+9o6xfl0/yPrL4g/se+HvG PiC71my1e+0m6vbs3V1EVWeJtxJkCA4ZSzHOSzAZOFxgD4fY5Y8Y9hX6txM0lujOgR2UFlBzg46Z 71+bPxF+Dviv4Xukmv6WLaznmeKC7hlWWGQrzwQSVyOQHAJAPHBx6HCmZzqSnh8TVva3Km153t36 Hq8EZ1WxDqYXG1rtWUU7X63t3OJooor9MP10Kv6Hr2o+GtTi1HSb2fTtQhDCK6tZCkke5SpKsOQc MRkc817j+yN4O+F3izVfEh+J95pdtZ28EP2KPUtUaxLuzPuKkSJuwFGRk43CvUvj98MfgZonwx1T Uvhr4j8Pab4htgMrb6495LdQsCskCL5zlWcHqFOQGU4VmI+Bx/FeFw+Y/wBj1cPOTdlzct4e8ur7 a66HzeIzmjTxX1GdKTbsr293X+ux89zfHj4rr4QtYX8a6+ukveSeVci+cTNMiJvTzgfMKhZUOwtt 5BAzXL6Lo/iP4v8Aj2Kxs1l1nxJrVyzZdgGlkOXdmJwAAAzE9AAa+pv2YPjL8G7XwLoHw48WaItx dz3cl1cahrWn272BunJCsWZ2IITbGHKjpztBr6bvfCPwb/Z51K78bz2Oj+Eru5j8r7SuV3ALykEA JAYgciJct3zXweY8XQyCvVwdHLHGtLmVNxirT10emvmz53EZysvqToU8Jy1HflaW+ujtub3wP+CW ifAjwhJoWiS3Vyk9wbu4uLx1aSSUqqn7qgBQEAAx+ZJNeh45rws/tu/BcH/kcT/4K7z/AOM12/wy +Ongf4xS38XhHXF1WWxCNcRm3lgZA2cECRFJHB5GccZ6iv5mzXK88nKpmGY4eoru8pSi0tfNo/Nc ThcbeVfEU5K+7aa/Gx3tFFBOK+VPMCijOaKACiiigAoIyCD0NFFNO2qA8I8dXvw+/Y18F614o0bw wLebWLxIzaWcjAXVwRIyJliRFGAJDhRhRnCk8Hc/Zu+PT/tBeEdQ1xvDz6AtpetZhDdC4SUhEckN tU5G8ZBXHTBPIHpWv+HNK8V6ZJp2tabaatp8pBe0voFmicggjKsCDggH8Kt2Vlb6daQ2trBHbW0K LHFDCgVEUDAVQOAAOABX09fMsHicA4V6Up4pvWo5N+6tlb/M9GeIpVKDU4t1W/ibe3axNRRRXy55 wGjPNcf8XfiA3ws+HGueKk0ubWjpkIl+xW5KtICwUktg7VXO5mwcKpOOK439nP8AaU0j9obStRkt NMudH1TTfL+2WczCSNfMLbCkoA3A7G6hTkHjHJ9inlGNq4GeZQhejF2b00fpv13OuOErSoPEqPuJ 2b8/zPYqKKK8c5AooooAOgrnvF674rcY3HD8evSuhzWB4q/5df8Agf8ASvXyl8uMg/X8iKivFo4X UrUREOOHbLMucnHqe3X8PSqFdI9qr7hyoc5chuW9vpWLf2jW8rN8u1j0XOFPXFft2BxcaiVNvU+d xFFxfMirUlvMbedJB1U9PUVHRXrTSlFpnHF2d0dXRUcU8c65jdX78HpUlfn0ouLs0fRp3V0FFFFS MKKKKACkZgqkkgAcknoKWmugkRlYZVhgj2prfUGKrBlBBBB5BHQ0tV7edRM9v/HGBggYBGB/jViq nBwdmTGXMgoooqCgooooAKKKKACiiigAooooAKKKKAK93aJdRMCq7yMBiOR+NSWzmS3iZjlmUEn3 xUlUrQvOrYciEksCowTlm4z/AIc811RvOk03omZO0Z6dS2HDMVByV6+1OpqII1CqMAU6uZ2voaeo UUUUhhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBylFFFfop80FFFFABRRRQAUUUUAFFFFABR RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8PftgfDI+FfHMfiOyt9mma3lpSi4WO6H3xw ABvGH5JLN5h7V9w1x3xf8DH4j/DnW9AjYR3NzCGt3bAAlRg6AnBwCygEgZwTivcybMHl2MhV+y9H 6P8Ay3PquGs1eU5hCo/glpL0fX5bnnX7JXxO/wCE08Ctot3Pd3Wr6NgTT3R3iSN2cx4brwBtweeP Tp7F4n8MaZ4x0O70jWLRL3T7pdkkL9+4II5BBAII5BFfnT4G8deIvgj43uJ7QCC8tpGtL6xmwySB Xw8bYzyCvDDkY9Cc/o9o2r2mv6Va6jY3EV3aXMYkjmhbcjA9wa9PiHL3gMUsTR+CesWuj3/4KPZ4 syqeVY5Y3DO0Kj5otdHv/wAFHwF41/Zr8c+HvFOqWGleGtW17Trc+bBe2Fq9wskLNhMlF+/6p14J A281g+I/gZ8QvCYuW1XwXrltBaxCea5FjJJBGmwOWMqgoAAeeflwQcEEV+oPhnxA2i3aowQ2srDz cryP9rIGePT6+ua7yy17TtVdo7e5SST+4wKk8HoCBnp2r5/HeI2cZXUUZYVTppL3tfx6I+iwXHWJ lCMakItrR7ps/EyaCS3cLLG8bFVcB1IJUgFT9CCCD6GmV7f+1P8ACXxp4U+K3i7W9X0m9m0a9v5L y31eON5bYQySHykaTGEZRtTYcEYGMgqT4hX73lePoZphaeLpNPmSejvZ2va/kfseExNPGUY1oNO6 W2tn2CtzxN458ReMzB/b2uajrC2+7yEvbp5UgDYyI1YkIDtXhcDgegrDo6mu+dGlOcak4puOza1X p2OmVOEpKckrrZ9gr7a/4Jr+F5/7U8YeIWuIhbrBDZLAkyM5ZmZyzIG3IBsABYANuOCdpr4qubd7 ZkSSKSJyiuVkGCQw3KQPQqQR6g5719h/8E1Gx438ZjjnToT15/1pr868RXKfDGJdN6Wj53XMj5ji e7yqo4vt+aP0ABzXJfFjw9r3iv4da7pPhjV/7C167tzHa6gSw8psgn5l+ZcjK71yVzuAJGD1tFfw th68sNWhWgleLTV1dad0fhdObpzU1utTifgz4X8SeDfhto2keLdbPiHxBbI4udQLtJvJdio3sAzb VKrubk4ya7YnFGaBRia8sVWnXmknJtuystey6BObqSc3u9QooornMwooooAKKKKACiiigBrosiFW AZTwQe9Y3hjwR4e8EwTw+H9D03Q4p2Dyx6daR26yMBgFggGTjua26K2jWqwg6UZNRe6vo/kUpNKy egUUUViSFFFFABWB4q/5df8Agf8ASt+sDxV/y6/8D/pXrZV/vcPn+RE/hZg1BeKpgYt0Ax1AyD2z kcdO46VPTXUsjAHBIxmv0anLlkpHHJXTRzMyhJWAxjPGDkfzP86ZVrUVdZ1Dhgdv8R9z7mqtfeUZ c8FI+enHlk0FbujytJZ4bnYxUH2/yawq29EUi0YkEZckZ78CvNzRL2F/M6sI37Q0KKKK+RPZCiii gAooooAoPcxpe7wWjAQmQlCNwyAOP61KLlbxdkDMf7zLxtH4/wCB/DrUk9ssu59o8wrgEkjvkdPe seK7k0+5cMN5PDgjGSOhB/r717FKlHEQvD4orqcU5ulL3tmb1FIpJUZAB7gUteQ9DtQUUUUgCiii gAooooAKKKKACiiigAqnpLI1mAgIwcMT3PerlZeluUvJ4idxAxu6cLxXbRhz0anlZmE5WnE0JJQk kacZckYz7E5/z61JUOA90cqCUUFT3GSc/wAhU1cs0lZI1V3cKRWDKCCCDyCOhpaaHBCkHIboRyKm xQ6iiikAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBylFFFfop80FFFFABRRRQAUUUUAFFFFABRRRQ AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfGX7YPwh/sHXYvGGkWRXTr/I1Ewp8sVxu4 kbnjzN2OgG5SScvVL9lz46ap4d8QaP4LvpLV/D13M0cTzAI9vI25gFYfeDOcYbPLDBHQ/YPjLwrZ +N/C2p6FqC7rS+gaFjtBKEj5XXII3KcMD2IBr83/ABL4O1T4Z+NBpWvwz2dxazJIZLVsGSPdxLCx 65AOD2IwcEED9QybEUs4y+eXYrWUV7ve3RrzX5H7jw/jKPEOUzyzGWc4LS+9raNeaP05BzUtrdS2 Vwk8DmOVDlWXtWdo2pWus6TZ31jMLizuYUlhlU5DowBBz9DVyvy6pTUk6c1ps0fiU4ypTcXo0zoP jBdReJvgN42eJIw0uh3qbJXUBH8h+CxwBzg5OOMHivx/r9EP2l4fENz8F/EEegahNZ7UEt9FC203 NqufNQtkYG0lj1yFZcHca/O+v0Dw4ytZZhsSozvGUrpdVof0HwHL2mCqVObVu1u1l+oV0Xw41ax0 H4heGNT1P/kHWWp21xcnniNJVZugJxgHoCfSudor9axFGOIpToy0Uk1pvqfpNWmqtOVN7NWPdP2u vip4W+KXxNnvfC2nWUlosMCnXIkmjnvCI+QyMQuF3BclN/7sfNjAHLfBH4/eI/gJqOqXnh230+5k 1GJIZk1GOR0AUkggI6c8nk5rzSivFo5FgoZbHKqkXOkklaTve3f/AIBwQy7DrCLBTXNBJLXrY+uP Dv8AwUf8bW2rwPrnh3Q77TAT50Fgs1vMRg4Ku0jgYODgqc4xkZyPvbwb4u07x34V0vxBpUpksNRt 0uYS4wwVhnDDsw6EdiDX4o123hXx94w+BvjHUpPD+rPpOsQGTT7mRI0lVgr4KlZFIIBQYyMjHavy rifwwy7MoR/srlo1VfTW0l59rd7HyWacK4fEJfUrQn21s/8AI/XPUPH/AIZ0jxBbaFfeINLs9but vkadcXkaXEu4kLtjLbmyQQMDnFXPEPifSPCWmtqGt6pZ6RYKwVrq/nSGIEnABZiBkmvyJ03xv4g+ I/xp0HX9bvG1XXbvVLINN5KqZGV40QBECjoqjAAz9TX0f+2HY/Fm607xbL4sOlj4f21/by6IPOQS bydieUEAdn2O+9ZflHzFMhQa/L8Z4aQwOOwuCrYpJ1FeXrdJqHffrbRHylbhv2GJpYadZJyV363t aPf8D7T1n4n+D/DqWb6r4p0bTUvYvPtWu7+KITxYzvQsw3Lgg5HFeXWf7Wejat+0BZfDXS9O/tS2 u4Q8evWd2skTOYDOAqgEMmwD5w3XPGBmuC8JfsbeG/ij8KvAN34r1y9vdUstJECXmi3CLDJbu7SQ oN0bA+WJMBgATznIwBwdx8e/Bv7OFx4k8HaL4D8nxD4Ut3sdH17WUEtzeO8u5xIVjRkjPmySrhgr qvG3cK83LeG8qxM6uFwalia0bxt8Ki72U73u0tNLbO/Q48Nl+HrOdKgnVqarslrZS3u/S3U29V/4 KSx6ZcX1q/w7uo7y2umgEFzqXlMEUsCXHkko4IAKYOMn5uOYdL/4KY2s2oQpqPgCa1smbEs1rqom kQeqo0SBj7Fh9a+H9Y1a71/V73U7+Zri+vZnuJ5m6vI7Fmb8STVOv6BpeGfDfskqmG962tpS38tT 9KjwtljhaVPX/E/8z670X/gob4l0/wCJGsahf2B1bwdcuVs9JPlwTWaBhtcSBCXbaCSrEjJ4KgV9 Y/DH9qDwX8W/HuqeFPD0l5cXlhAbj7U8IFtOisquY3DEnDOBkgA9VJHNfkoDwa+ov+CdhUfHPUct GGOiT4DqSx/fQ8L2H1P0HWvmONOA8kw+V1sfh6XJOnDTl2drWbX59+p5Ge5BgaOEniaUeVxXTZ7b n6S0UUV/IB+QhRRRQAUUUUAFFFFABWB4q/5df+B/0rfrA8Vf8uv/AAP+letlX+9w+f5ET+FmDTDE u8sPlY9SO/1p9NeTYQMMSc4AH9eg/Gv0SN76HI/MwNTdnvZNwIxgAZzx/nn8aq1oapZtEfPZ9+5s YPXpx/Ks+vucLKMqMeU8Csmpu4+CFriVY0xub1rpLeEW8CRjoo6+prH0uW3t2Mkr4foFKk4HrW0j rIoZWDKehByK8LNKk5SULe6vzPQwkYpc3UdRRRXgnoBRRTd679u4bsZ255x600rgOooopANdtiM2 C2BnC9TXOzzRz3jSMriNjyAecV0lcpX0GUwjLnZ52Mk1ynUxyLKgdCGU9CKdXPJqMsMaJExRVGCD g5Oc56VfttSAligCtICB+83ZJJGeR/8AXrkrZdVhdrVa/cawxMZWTNKiiivK2OwKKKKACiiigAoo ooAKKKKAEY4UkAnHYd6yLEGa6juGYBmdl8sf7pJI59T+tbFZ4tYY5IJIAIxvwWYnPcYwfXpXoYWo ownF7v8A4JzVYtuL7FqH5ppyeoYL+GAf5k022uhcPKmCGjYg+nU4/lVW7hE18ER2G5QJFQ4yPU/g e4q1HYwxxeWEGCMFuhI9zSnGnGCcnq7fIcXJystkOmuliWTALvGu4qO340kH2cu3k7Mgc+X0/T6U kyKIxEhSPbh+nCgHOfzHt39KfAXO/ewb5sAqMDGB/XNZNRVNtFpty1JaKKK5TUKKKKACiiigAooo oAKKKKACiiigAooooA5Siiiv0U+aCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK KKKACiiigAooooAKKKKACvFv2lfga3xV0CK+0eCD/hJ7HiJ5G2G4h+YmHdnAO47lLcA5GQGJr2mi urC4mrg60a9F2kj0Mvx9bLcRHE0HaUf6szx39lb4I/Ej4deH9cTxRZNa6fJJC1hYLdRXJBIYySL5 bMApynGeeTjvXsVeZftA/HbxD8FtC8PX+kaZb3kL3jW888zsgEZG/wAnKMrZbDENyF2tkHIr1XQ/ iX4X+LvgS11fwzc2032dgZrWF8PahiQVZMAgk7e3cHocnixtfNJ1Fj8XSThVlbmhoo20V1dvU93N KGJzCH9sTikp9trrT5fPcx/EOjReI9B1HSpneKG+tpLZ3QAsqupUkZBGcHuCPaviT4u/so6z8NPD 39tafqX/AAkdjDk3gjtTDJbp2fbvbcvXJ428HGMkfddcV8atFm8QfCfxVYwNcLO+nyvGtoMySMi7 xGBg5DFdpA5IYgV9DlGaYjLqyVKVoya5lbdfn9xXDmd4rK8TClSlanOS5k18vU/NSiiiv6BTUldH 9SRkpK6Ls+tahcm3Mt7cSG3tzawlpCTHCdwMYOeFw7DHTDEVSoopRhGGkVYaSWw+CXyJ45NiSbGD bJBlWwc4I7ipptSubm+uL25la7u7gyNNNc/vWkZwdzsWzljknd1zznPNVqKHCLd2tROKbvY9A+AG kafrXxl8JwatfJpmmQ3q3lzdSttRI4FMzbmyNoIjILZ+UHPavZv2yPjV4Z+LHxF8PabpviW8v/CG nfLfCwt/3ay+YQ8kRZgJW2cA42gcqzbiB4p8OYta1fw/4w0LQvCg8R3l9aQSNc29uZbyyjjuE3GE LlsPvCsqjJGD0U1seOv2bPH/AMPNE0fVrzQL6e3vLE308lnA0gsNpJKTlQTGQm1iWwOSMkq2PzzH YfAVs7ji8ZWUZwThCN49Vdy7p62V+3mfMYilhp5gq1epaSXLFXXVXb/G3yPrj9hz4h/Ef4iXmqza jLbD4d6dCbCwtkghj+yzJ5Zjhj2AOVWJgCXz/DyTmq//AAUmt2PgHwnKulpKi6m6tqfy7oCYmxCP 4sSYLHHH7kZ7V1H7M37T/wAM77wBb6XNcaT4I1HToYvtlvcrb6db3M7L+8kgAfDAspz0bkZHIrg/ jd+1R4O+P/gjX/hv4divYNY1GREsb7UxDBZzvDOkgUSGQlTIIyqFgoJZQduePwvC4bMI8Y/X4YF0 6VOSUrKyUXpzNrfu+58DRp4iOc/WI4fljGSukrJJ6Xb/ABPhq20u9vLO7u7e0nntbQK1zPFEzJCG bapdgMKCxAGepOK1/D3w78U+L7J7vQfDuqa3bpIYnfTbSS42MADhggJXgjGcZ5x0Ndfpnxt8e+Bf AN54G024t9A0tJJ7fUbZbSJbq4eXKv5pcF9yhSm5dpUBQTnbX2h+xr+zhB8P7XTfiDFr11cpr+hW 5/sqSHYkLSLHIzFg3z/MDt+UYDHqea/buI+LJ8PYOpia6im3+7V3LmXnZKza1WrR95mmcTy2jKpU STb91au689FbufP/AMBP2M9S+KXhrxKviaw1rwTqVtLbnT7+/tGVJAQ/mJ9ncIzDAX5tw5K46MDJ +xJ8MNbuP2hJtStft1ro3htrmK8uJ4GtzKxDRpA6ZO1ySHKEnGw55wa/SMDA6Y9qAoXoAPpX85Yz xNzLG0MZQqwXLWVkukNLO2l3f10Z+b1uJsXiKdanNaVNEuke9vX10Fooor8aPjwooooAKKKKACii igArA8Vf8uv/AAP+lb9YHir/AJdf+B/0r1sq/wB7h8/yIn8LMGomuFV2UrJx3CEg/kKlor9Ei0t0 cjv0Ks8ZuzGjwuEDZbcR6H0PrWJd25tbhoznA5BPcV0tUdS0/wC1rvT/AFqjAB6EelevgcX7Kooy 0icdejzxutzCpUdo2DKxVh0IODQ6NGxVlKsOoIwaSvqvdmu55GqN7Tb/AO1oVfAkXr/tD1q7XLwy tBKrr95TmtCPXHC/PErH1U4/xr5vFZbPn5qK0fQ9OjiY8tps2KrrEzzbnGCjblOcjBXBA/GnWl0t 3CHUEdiD2NJduqIMsitnILvtx7jg15MYThNwtrsdjcZLmvoT0VSj1SELiV1VxwduWB9wRSS6xbov yFpDzwBj+dV9UrN2UWL20LXuXq5u+iWK6kVGVhnOF7e1SXWpTXORnYh/hXv9aqV9FgMHPDtym9+h 5uIrxqaJFmxsxeuy+ZsYDIG3ORWiuix7FDySMRxkYAqlpM6QXPzbsvhAAPUit6uLMMRWpVeWLsjf DU4ThdrUhtrWO1TbGuM9SepqaiivBlJzd5PU9BJJWQUUUVIwooooAKKKKACmuxVSQpY+gxn9adRT QDRIvqBjseO+P51Tuty38JbeYTgYVuN2eCR+X6Vamt47hcSIGHv1FZV5FLaT+c4WSJsptLEnb6ZP I4zXpYOEJzsnr2/yOWtKSRd05mnjeZx99yyg44GMf/Wqa4uktlBbJLHCqoySfasiw1GWACIIZl/h QdR3q/NB5jLK6MCvBMhHAGCD8vTnv2z0x01r4bkr/vPh6WIp1ean7u5GYEkkOVWSRhuJBznvxnoP TscYNaCKVRQTkgYzSKgYIzLl1HBYDIp9cFaq52XY6IR5dQorP1G+kgLLHgEAcnGc8dPX6dec0tld zMAs6kMGwSy44OcH8xj8RV/VKns/a9CfbR5uQvMoZSCAQeCD3pkTqUVdwJGR9cHB6+9OVt3IwVIB BB61HEiR3EwVQC2HJ9c5H9P1rBLR36GreqsTUUUVkUFFFFABRUc8ogheQ4+UE4JxmsG41Ca4LfOy oc4UHHB7e9d+Gwc8TqtEc9WvGlubz3MUbFWlRWHYsAaRrqFWIMsYI6gsOK5mivX/ALJj1kcX1x9j ppbhIRIWyNihj75z/hWHPqMlwwLJECOM7Af55qrRXXh8BToXb1ZlUxEqm2gUUUV6hyBRRRQAUUUU AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQByvxO+H2n/E3w bf6JfxRs0iM1tNICfs84UhJRgg5UnpnkZB4Jr5I/ZR12XwD8Zr7w9q8z2D3iSafJblgU+1xuNqsR kZGJFBB5LY719w18uftf/BYahaSePNKULcW0aR6jbJGP3qZwJsgZLLkBs/wgHI28/V5LioTjPLa7 tCron2l0fzP0HhnH06tOpk2KlaFXRPtLp959Rg5FFfF/7L37QUnhm/g8J+JL4DQ5vksrqc/8esme ELdoz78KcdATj7QByK8rM8trZXXdGrr2fRo+dzrJq+SYl0Kuq6Po0cn8RPhh4e+J2jtY65YpMQrC G7jAWe3JxzG+CRyAccg4GQRX5p6ha/Yr+5t/3n7mVo/3sZjfgkfMp+6fUdq/VgjIr4x+O37LNp4D 8Pa/4u03XZGsYJY3j0ua3LMgklVNvnb8nBfIJXOBgknk/VcKZpTwtSWHrzaUrKK1avf8L6H3nA2d 08LOeExVR+80op3av+l9D5tooor9gP3oKK90/ZT8eeHNG8b2fhzxdoHhO+8OalNI9zqniC1jMlri IkBZnyApZF+Vhgk8EE5rh/jp4g8NeKPiv4g1Hwfp0Wl+HJJUSzt4IFgj2pGiM6ouAoZlZ/X5uQDm vnqOZ16mZzwE6DUYx5lO907uyXk9/uPLp4urPFyw0qbSSvzX0ev57/cZNlNCNHsrfw2dcXxHcRXU WqxwODDNbYDKsax/OV2K5kD5Hyg9M4t6Z42134dXVy/hnxNOi6rpkVvcz2/ytsZF3wkNkq0bBkDD Bwu5SFYZx18Ha03h611saZdHS7u6Nlb3KwsUmmAyUUgYJ9u/OM4bFXULrT7i0tBbWElneINtw4uC 8UuFUKyoV3IxwzN87AlvlCAYq1Qw9ebirVItu+z1vfVvXTZJbdfK1Tp1JW0ktb7PW99fTZdihT0R XVyXVCq5CtnLnIGBgdeSeccA98A79/rWu+NbKwsFt2ubTRbNvJtbC0CpBEoBlmcIvJOAzyNknucA YLz4c+KdP8M2/iK48O6nHoFxGJo9TNq5t9pcoCZMbVywwASCcqRwwJ7PrdGmlHESjGTdrcy+S1tu jb28IpKq0m+lz3D9m7Vvg9deI/BkfjDT9d1nxXLK2l/Z7qKK60ol3KQM0bEsQFkVAACAVztGAx/T G2t4rS3ihgjSGGNQiRxqFVFAwAAOgAr47/Y80DU08RQaZrPwj0/QtIsNNh1Ky8QXNi5uDdSRxbmW aVnyXBY7UKmMLtOCMV9k5r+KvEXHQxWaclNysl1mpLV3VraL0Pw7iCuq2MfK3Zd5JrXXS23oFFFF flJ8wFFFFABRRRQAUUUUAFFFFABWB4q/5df+B/0rfrA8Vf8ALr/wP+letlX+9w+f5ET+FmDRRRX6 EcoUUUUAIyhlIIBB4IPeuevbbyJSUVhEeme3sf549K6Kq0tqZpMOQ0R+9u6+wGOg7568CvSwWJ+r ybexy16XtFZHO0Vo3GksbllhI24Bwx+7nP8Ah+tVzZMVUqQxOODx12//ABX6V9TDFUp2szyZUpx3 RWoqX7JP/wA8ZP8Avg1FW8ZRl8LuZtNbhRRRViCiiigCzYtH5mySMvuI27QMhu3XjvW800cOFeVQ 2P4iAT71zCjcwAxz6nFdDJpsEiqCrcY/iJ4HbntXz2ZQpqcXNvU9HCylZqKHvfW6KSZkwPQ5P6VK jiRFZTlWGQfalVQqgAAAcADtS18/Jw+yj0lfqFFFFZlBRRRQAUUUUAFFFFABUc4jaJhLt8s9dxwK S5hWaIq+7A5+X29u/wBKzrlZbdEkfypAxVfmXBOAcE5/X6da7cPSVRq0rMwqTcVsZaO0bBlYqw6E HBqT7XP/AM9pP++jTJI2ico4KsOoNNr7TkjOzaueHdrRE9tePBciZi0h6EFuvFdBb3CXMQdDkHt3 B9K5itPRJ9srxE8MMjJ7j/P6V5OY4WM6ftIrVfkdmGquMuV7M05oBIdwADjowwCfbOMj8KzruI2k nmkqu8YyoPBHI7c8jqeua0Hu4Y926VAV6jcM/lWJf37Xj91jH3V/qa8/AUqs5Wa906cROEVdbltN UtwpDJICeMpxhQTgcH0NPttUgAmkf5HZs7QMkgADrWPRXsSy+i01rqcSxM0dLbXUd0m6Ns46g9RU 1corFWBBII5BHUVeh1ieJQG2yAd264+teXWyqSd6TudVPFp6TN2kZgqkkgAcknoKo2+sRTMqsDGx 7kjaPxp90WtrCUOWk4Khu+D0z/KvL+rTjNQmrNnX7WLjzRMvUL5ruUgH90p+UDv71Uoor7WlTjSg oRWh4U5Ob5mFFFFakhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU UUUAFFFFABRRRQAUUUUAFFFFABVPWtItfEGj32mX0Zlsr2B7eeMMV3I6lWGRyOCeRVyimm4u6LhO VOSnF2aPzV+Mnw8Hwu+IOo6BHLcXNrDslt7i4i2GSN1DDHZsElSwwCVbgdB9bfsv/G9PiJoC6Dqt wz+JNPiLO7Iqi4hDYVlxxlQVB4HUHnJrP/a++F83i7wvYa1ouhz6nr1pcJBI9mjPN9lIfI2DlgHK ngEjLHgZrgP2W/g98RvDPjyx8R3GgXOk6DJDNb3kt+qxSNHjIAiYiTl1QhtuOPSv0rFYzCZrkqni ZpVYbXaTbXb17dz9uxmKwnEHDyrYiSVWC6tXut/v7H2HVe/0+21Wxns7yCO6tLhDHLBKoZHUjBUg 8EEdqsUV+aptO6Pw+MnBqUXZo+Ev2n/gZbfC/VrPVdBtmg8N3wEPltMZDBcAElct821lXcMk8h+g wK8Mr9Cv2nfBc3jb4Q6pBZ2EuoanZSRXlrDCTv3K2HIAPzHymk+XnOeATivz1r9u4ZzGWMwVq0ry g7avW3Rv+uh/TPB+ayzLLV7eV5wdnffyYV1Pwx1Lwto/jfTL3xlp17qvh+CTzJ7SxZA8hHKghsBl JABXK8E88YNvS/g946vZI5YvBWtTQ+WbgGawmjjkRV3EBiFzkDACnJJAXJIqP/hTfj4f8yP4k/8A BRcf/EV62JxmAxFKdCddJSVrqST17O59RVxOFrRlSdVK6to1c9i+P37aOufFQ6ba+F49S8E2NhLM zSWepMst4p2iMvsVdm0BvlDMMv1O0Gvn/VNfu9d1yTVdTMd/dzOsk7SKEE5GMl9m0ktj5myGYkkn cSa3H+D/AI8jXL+CfEajpltJuB/7JQnwf8eSLlPBPiNh0yuk3B/9krzMtwuR5RQVLByhFK6vzK+r u7yvf8TkwkMtwUPZ0JRXz1189z0LVf2ltfTUvDsvgDTrvwT4c8MWyN/Ydnfy3FrIfPLPLOcKXV2k RCHzyeuWr9E/gT8Y9M+OPgC08Q2cMVlcsWju9NFwk0lq4YrhsYIyF3DIUkEHFfMf/BP/AMA6z4L1 TxjqfiXRb3REngt7a3/tGzeJ5Tudn2hlBwMJk9DkenHo2q/AKy+Gfw0+IkPwm1PULfxZ4g8uSKa5 uyGiCSljDDLtBU7WlUMzFssNzjGR/P8AxjHKcfiXleHg6c4Sjy1U3JSUvi5n5Xve7fQ/Nc6q5fWr vB00oyi0lK9009+Z+V731PplmVFLcAAV4L4I/bZ+Gvjfxm3huK5vtNu5Lj7LaXF/bhYLyQvtURsr NjdwRvC5yO/FfFV1eftCJpniTQNQtvGmq2l7B9ivI7uO5uk2q65MTHcCSBtJQkMrMeRyMf4RfB7x xa/FfwhLd+C9ZitbfV7WaeW906aOBI0lVnZ2KgYABPXnpznFLB+HGW4fCYmpmOLjOaV4csl0V9b7 3eljalw9haVCrUxNdNpe7ytdutz9aQc0VnjXbEAfv/8Axxv8KX+3rH/nv/443+Ffz7LB4hNpQf3M /PeZdy/RVD+3rH/nv/443+FH9vWP/Pf/AMcb/Cl9UxH/AD7f3MOZdy/RVD+3rH/nv/443+FH9vWP /Pf/AMcb/Cj6piP+fb+5hzLuX6Kof29Y/wDPf/xxv8KP7esf+e//AI43+FH1TEf8+39zDmXcv0VV j1S0lQMLiMA/3mAP5Gnf2ha/8/MP/fwVm6FVaOL+4LosZrA8Vf8ALr/wP+la/wDaFr/z8w/9/BWL 4luIp/s3lSJJjdnYwOOlepllKccVBuL6/kRN+6YlFFFfenMFFFFABRRRQAzygGdgSGYYLZ6U24hM 6BQxTGTkfQ4/I4P4VLRVqck7pkuKegVmalpvmZmiHz9WUd/ce9adFa0K86E+eLJqU41I8rOUorZ1 DS/PYyQ4Dn7ynof/AK9YzKVYgggjgg9q+yw+JhiI3jv2PDqUpUnZhRRRXWZBW5Zaqlwyo48uQ9PQ msOhWKsCCQRyCOorkxOGhiY2lutjalVlSd0dK95DHJsZwrdPmBA6Z69KfLMkK7nYKCcZPrWA7zXq M8kikJ/eIHUdvypY7hjJFJKrPBH8oDLkAY6dhmvDllsUvi1W/wDwDvWKb6eh0NFQW13BP8sTA7R9 0DGBU9eJODg7SVjujJSV0FFRmdBMIiwEhGQp7ipKlprcaaYUUUUhhRRUFrIZw0u/MbH5Fx0AJH61 ai3Fy6ITdnYnqC8tRdwMh69VOehqV3EaMzHCqMk+1ZN7rBcFIMgHguev4V1YWjVqzTp9OpjVqQhH 3ijNAbcbX4lzyoIPH+f8+sVDMWYkkknkk9TRX20E0ve3PCbTegUUUVQgooooAKKKKACiiigAqyt8 7Wxt227DgBsY28j0qtRWc6caluZbFRk47BRRRWhIUUUUAFFCqWYAAkngAd604bSWBCEgjmcNhvMA OPlBx19zWFWtGlvuaQpuexmUUUVuZhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFbWkzfabV4Xydvy/VT/k1i1YsLn7Lcq5+6eG+lcWMpOt SaW61R0UKnJPXYjuITbzvGeqnr6io62dVsZLmSN4lLHGDyBj0/mazZbC4hGXibHJyOcflSw+KhVp x5pK/YKtGUJOy0ICMik8K6Tp3h+8uBp+n2en/bpTNctbwJGZpT/GxAG5ie5z1pa0NPEcFrLckbpY zhRnpngcfjWmKlajKPfT/IrD1KkJWjKy6k+sxDasmCT0IBHA5wenqf5VoQBlgjD53hRnJzziqcd8 tzYSkKoKgrsZycjH59M/lViwuRdWyt0I+UjJPNfMVvaqioyXws9KnJOd09yaRyi5CM/suP6mlU5U EgjPY9qWmySLEhdyFUdSa89SlK0UdLk1q2QyM1zEQifKTg7zjcOcjjJH4irFUrS4ZvMHlSsd2SNo UDIHGCfx/GrtaVk4PlZnB82pDB/rZ/8AfH/oK1NTUjCM5GfmOTn6Af0p1Zzm29GXFtIKKKKzGFFF FABRRRQAUUUUAFFFFKwBRRRTsAUUUUAFFFFABRRRQAUUUUAFFFFABUM1nDcHLxqT6jg/nU1FXGco O8XYTipKzRk3GiYXMLk4/hfv+NZTKVYgggjgg9q6uszVNOaZjNEMtj5lzyfpXv4LMJOXs6z+Z51f DJLmgY9FOkjeJsOrIeuGGKbX0SaaujzGrbmjpF1Fb+YJG2MxGCeh/wAK1ZZxGisNrBiAOeufT1rm au2LfaY2tHbAblCRnaRycfhXi4zBxlJ17+p30a7S9nYnksLpJnlj/wCWjHKq2GAJz1qWKW4tbczF TPEwDAM+WUY+laCAqihjuYDlsYyfWhU2sx3MQex7V40sXzrlmkztVHld4sjgIfMm4M54OP4cdv1q aqb2zfaS0SmNT99g+N30HPT/AB9aadVijDiQnzEYqVUdcHqKzdGVR3p6/oUpqCtLQs28/nq52Mm1 iuG74/8Ar/yqWqMGqWuVRcxA9MrgDnpVuKZJl3IwYA4yPWs61GdN3cWkVCcZLR3H1SVfsV5jeBBI DhM8KRyfw6/nV2qWpuqx4lVGiPbdh856j6U8PeUvZ9GKroubsVNauW8wQhhswCwHr71mVJcTtczN IwAZscDpUdfZYaj7GkoHi1Z+0m2FFFFdJkFFFFABRRRQAUUUUAFFFFABRRRQAUUVu2mnRrDA+Csi /NuRs59s+lcmJxMcNFOXU2pUnVdkYbo0bFWUqw6gjBqe0sZLxvlGEBwXPQVuzWkVw6tIgZl6E1Kq hVAAAA4AHavGqZs3C0I6nbHB2l7z0KltpcVvtblpACNwJGc//Wq4FwSQMZ5OO9FFeJUqzqvmm7nf GEYK0UcpRRRX3586FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR RQAUUUUAFFFFABRRRQAUUUUAb2n3Ru7UqGIlUbSxGfofem2byzGZJmLyRnG0gBTkcdvrWVZXP2W4 WQ5KjggHqK0tRDJF9qgcrvUBsdweh+tfN1sOqVVwWils+z7Hp06nPBN9DL8l5roxhQrsxG0dAc/y prh4Wki3Hg4YA8HBrYsLYWELySvGQeQy9h9f6VjSSGWRnOMsSTivVoVvbTcV8MfzOSpT5Ip9WWLG +Niz/IHDY4zjpWjohX7KwBy27JHpwKxKmt7uW1VhGQu7GTjPTP8AjU4rCKtCXJu7fgOjW5GubZHR ruy2cYzxj0x3/HNUxBFc37uHZni29wQDzx09v1qKyt3vIHkmcus3BUHGMd/rwKvwwrApClsE5wxz ivmppYZyipe9seom6tnbQkooorgOgKKjnlMUTsBllUsMjjinLIHZgA3y9cqR/wDrquV25hXV7DqK KKkYUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBk67/AMsP +Bf0rKrV10YMJ55z3+lZVfaZf/u0f66nh4n+KwqW2nNtOkgAbb2PeoqK75RU04vZnOm4u6OgtdSh ucDOxz/C3f6VbrlK09M1Lyx5UzAKPuse3tXzeLy3kTnR+49OjiuZ8szUd2QnEbOOOVI9/U/T86wb 9YhKDEGjLfejZcFT/wDXroWYKpJIAHJJ6CqU2mrcXS3AlIBIOB3x6HNcuBrxoSbnobV6bqKyKH9k yi3MhIzgEIAST7VDHdXFmDGpMfOSpUZz+Nb8qM7RFcfK2Tk9sEf1ont0uEKuoPBAJHI+ldEcx5tK 0eZP8DJ4a2sHZmdDrYCgSxtwPvKQcn6cVQu7t7yXc3AH3VHQCrGqWyWywKuC4U7iBgn0OPzqhXr4 WjQ/jU42ucdWdT4JMKKKK9E5gooooAKKKKACiiigAoooouAUUUUAFFCjJAJAz3ParttpMszsHBiU ZG4jOT/nvWNWtCirzdi4wlN2ihun2JvJMkERDqw9fQVvqoVQAAAOAB2pI4xFGqDOFAAzTq+OxeKl iZ36LY9qjSVKPmFFFFcJ0BRRRQBylFFFfop80FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFa+k3YlQ28nzcfLu7j0rIp8MrQSq6/e U5rlxNFV6bj16GtKo6crli5uVRJIIXLQMQwz29RyPWpL+OK1RIfKHm7ATIGPXPPHerc9jDdWplgj USMAVwcfh6Vl3VxJcSAygB1G08Y6etcOHcarXJpbfvc3qJwTv12Iat6fbxzSFpioiXg7m28nOP5V UZSrEEEEcEHtRXp1IupBxi7X6nLF8ru0dNbxxIu6IBVfDYHA6enanu4jUsxwBXO295cQrtidsddu M471oWatJEtxPMcF8gNyBjPrwOf8818viMDKk3Ocrr8T1qeIU9IouLdNI2Uhd4scPwMn6HHHvTYL xrouI4ygXjMnHPpj2q1ULTKtwq5YE8HPA9v8Px57VwpxldKJ0NNWbYeQZGBlIYL90e+ep9+P1NSh QowAB34paKwlNy0LUUgoooqCgooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo oAjlaQMqxqMHOXPRfw71HHcOi/v0EWON4IKn/D8asUVqpq3K0Q4u90yI3UQVSJFIZggK88+nFS1X msoplA+ZMYIKHGCO+OlNFrIzMWcBl4jcHJXk+vsQPwrTkpSV07epPNJPVFXXEzHE3OASPz//AFVk Vq3j3AsnS4jViGG2QEfyrKr6rL040eVu9ux5GI1ncKKKK9I5gooooA07HVlggEcqs237pXnipYtY gijCBJNqgAE4yRj61j0V508BQm22tzpjiJxSR0UWo28y5Eqr6h+MVX1DU0jQxxEO7D76ngf/AF6x aKwhllKE+a912NJYqco2Fd2kYszFmPUk5NJRRXsJW0RxN3CiiigAooooAKKKKAChVLMAASTwAO9C qWYAAkngAd66GwsltYlJUeaR8x/pXDisVHCxu9WzejRdV+RTgtTaNbo5G52LEZ7grgdRnH49elXJ LWFJIgIo/nfByo/un/AUl43lyo/JKqxAGeTleOPWkS5F0E2DMituA7YORn3wDzjuK+flUq1Uql+9 z0lGMLxKNrpXm+Wz+YEYZyAvp9f6VaOmQTxMFiaBwcZY59D64qS1EoijicFWXG7BxtAxge+cfzq2 qhVAAAA4AHapr4yspfFttYKdGDWxnLosaRnLF5McZ4XNaCAqoDHcR3xjNOoriq16lb43c6IU4w+F BRRRXOaBRRRQAUUUUAcpRRRX6KfNBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBp6LdbXMBA+bLA+/pRqNoourfJP7zCsR7YG ec+tZisVYEEgjkEdRWm//EwmicEI7R4Ujs4OT9OP5149al7Gv7aLsmtTthPnp8j3RXvZA90/mxlH C4Ow9WHQ89ulVK1Xgk1aViwWBYyVyPmJPp/n1rMkjMUjIcZUkHFdeGqRa5OqWqMasWnzdBEbYc4B 4IwfcVqWp2CNVDzRocrLtCg5I45x/P8AAisqtbT9R3ttlzv67+ORzwfpnt/LNZY6MuTmirl4drms 3Y00OUXknjqwwTTqRWDKCCCDyCOhpa+Ne57aCiiikAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU2QuF+RVY+jHH9DTSu7A3YjntUuHDOW4UqAO2eCa5+5g NtO8ZIbb3HeugN0iyKjblduilT/PpWLqUsU1yWjJJP3iTxkccfl+te/lk6kZ8ktrHm4pRcbrcqUU UV9KeYFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGlosO+dpChIUcNngH/wDVWzWfohH2VgGB O7JA6jgf4VoV8XmE3PESv0Pcw8VGmrDSgLhsfMAQD7HH+FIIlDbsZYEkFucZ9PSn0VwKTWlzoshi RLGzso+Zzkk8k0+iik23qwStsFFFFIYU2RikbMFLEAkKO/tUTXDLdLHtBUgc55B+Y/8AstKt0r7M LJ8+DnYcDIzyelbezkrOxHMmOglaVCWXac4xz/UCpKKKzk03oUtFqFFFFSM5Siiiv0U+aCiiigAo oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK ACiiigAqxbTNHFJwDs2yKDnhgwH9aKK5cT/D+78zWl8RrPGINRhKZXzt29R0OBnNUNXRYrnCqAXA cn9P6UUV4uGbVaHp+p31V7j9ShT4JWhlR14ZTmiivoamsGebHdHUUUUV+fPc+jCiiikAUUUUAFFF FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFVr+FJbaXIGQuc9 +OR/n3oorpw7aqx9UZ1F7jOdooor7w+eCiiigAooooAKKKKACiiigAooooAKKKKACiiigDR0NyLi Rc/KVyR7g/8A162qKK+PzJWxDPawv8JBRRRXlHWFFFFABRRRQAUUUUXAKKKKACiiigD/2Q== Jim Pugh Geographic Technologies Group (GTG) Project Manager, Field Operations Manager 1202 Parkway Drive Goldsboro NC 27534 JPugh@GeoTG.com United States 919-759-9214 Kathy Solie Sarasota County Government GIS Department Manager 1001 Sarasota Center Blvd Sarasota FL 34240 KSolie@SCGov.net United States 941-861-0678 Sharon Schulte Sarasota County Government GIS Project Manager 1001 Sarasota Center Blvd Sarasota FL 34240 SSchulte@SCGov.net United States 941-661-6603 Saraota County Government GIS Department Data are considered current on the date of the original publication. This data is for informational use only and is not intended to be a substitute for a land or engineering survey. False 0