Pretty tough to tell what you are trying to do here but it seems like all the VBA is doing is running a query and seeing how many rows it has? You could turn this into an iTVF pretty easily like this:
create function Building_Status_Staking_Does_Building_FieldWorkDate_Land
(
@ID_Building int --Not sure of the datatype here???
)
returns table
return
select cast(COUNT(*) as bit) as MyResult
FROM APD_FieldWorkDate_2 fwd
WHERE fwd.ID_Buildings = @ID_Building
AND fwd.ID_Bio_Svy_Type In (15, 18)
_______________________________________________________________
Need help? Help us help you.
Read the article at http://www.sqlservercentral.com/articles/Best+Practices/61537/ for best practices on asking questions.
Need to split a string? Try Jeff Modens splitter http://www.sqlservercentral.com/articles/Tally+Table/72993/.
Cross Tabs and Pivots, Part 1 – Converting Rows to Columns - http://www.sqlservercentral.com/articles/T-SQL/63681/
Cross Tabs and Pivots, Part 2 - Dynamic Cross Tabs - http://www.sqlservercentral.com/articles/Crosstab/65048/
Understanding and Using APPLY (Part 1) - http://www.sqlservercentral.com/articles/APPLY/69953/
Understanding and Using APPLY (Part 2) - http://www.sqlservercentral.com/articles/APPLY/69954/