А если я, например, создал функцию, которая через ADO извлекает значения с базы Access. Тогда, если в базе нет нужной информации, функция возвращает #value. Можно ли как то в функции прописать, чтобы вместо #value ничего не выводилось или выводилось, например, "no data"?

{quote}{login=The_Prist}{date=28.10.2010 03:17}{thema=}{post}Public Function Get_Monthly_IMS(SKU_ID As Integer, Year As Integer, Month As Integer, Market As String)  
 
Dim cnn As New ADODB.Connection  
Dim rs As ADODB.Recordset  
Dim sqlstr As String  
 
cnn.ConnectionString = "бла-бла-бла"  
sqlstr = "бла-бла-бла"  
cnn.Open  
 
Set rs = New ADODB.Recordset  
rs.Open sqlstr, cnn  
Get_Monthly_IMS = rs.Fields(0).Value  
rs.Close  
Set rs = Nothing  
cnn.Close  
Set cnn = Nothing  
if isError(Get_Monthly_IMS) then Get_Monthly_IMS = "no data"  
End Function{/post}{/quote}  
 
Не работает. Все равно, если записи в базе данных нет, функция возвращает #Value!

{quote}{login=The_Prist}{date=28.10.2010 04:05}{thema=Re: }{post}{quote}{login=The_Prist}{date=28.10.2010 03:56}{thema=}{post}Значит возвращает это как текст. Вот и пропишите замену:  
 
if Get_Monthly_IMS = "#Value!" then Get_Monthly_IMS = "no data"{/post}{/quote}Понял, что именно за ошибка. Возникает здесь:  
 
Get_Monthly_IMS = rs.Fields(0).Value  
 
Думаю у Вас и сессия не закрывается при ошибке, т.к. функция завершается. Попробуйте так:  
Public Function Get_Monthly_IMS(SKU_ID As Integer, Year As Integer, Month As Integer, Market As String)  
 
Dim cnn As New ADODB.Connection  
Dim rs As ADODB.Recordset  
Dim sqlstr As String  
 
cnn.ConnectionString = "бла-бла-бла"  
sqlstr = "бла-бла-бла"  
cnn.Open  
 
Set rs = New ADODB.Recordset  
rs.Open sqlstr, cnn  
On Error Resume next  
Get_Monthly_IMS = rs.Fields(0).Value  
rs.Close  
Set rs = Nothing  
cnn.Close  
Set cnn = Nothing  
if isError(Get_Monthly_IMS) then Get_Monthly_IMS = "no data"  
End Function{/post}{/quote}  
Сейчас попробую

{quote}{login=The_Prist}{date=28.10.2010 04:14}{thema=Re: Re: Re: }{post}{quote}{login=yavorsky90}{date=28.10.2010 04:12}{thema=Re: Re: }{post}Прогресс есть. Теперь функция выводит ноль вместо #Value{/post}{/quote}Значит надо строку:  
if isError(Get_Monthly_IMS) then Get_Monthly_IMS = "no data"  
заменить на  
if Get_Monthly_IMS = 0 then Get_Monthly_IMS = "no data"  
 
Но для этого надо быть уверенным, что реальные данные не будут иметь значение 0{/post}{/quote}  
К сожалению, могут. Это данные о продажах. Естественно, что продажы могут быть нулевые. Но это не значит, что данных нет.

The_Prist,  
 
Вы просто молодец. Я добился того, чего хотел. Спасибо вам огромное.

{quote}{login=yavorsky90}{date=29.10.2010 10:40}{thema=}{post}Продолжаю углублятся в данную тему. Использовал ваш код:    
Public Function Get_Monthly_IMS(SKU_ID As Integer, Year As Integer, Month As Integer, Market As String)  
 
Dim cnn As New ADODB.Connection  
Dim rs As ADODB.Recordset  
Dim sqlstr As String  
 
cnn.ConnectionString = "бла-бла-бла"  
sqlstr = "бла-бла-бла"  
cnn.Open  
 
Set rs = New ADODB.Recordset  
rs.Open sqlstr, cnn  
On Error Resume next  
Get_Monthly_IMS = rs.Fields(0).Value  
rs.Close  
Set rs = Nothing  
cnn.Close  
Set cnn = Nothing  
if err.number <> 0 then Get_Monthly_IMS = ""  
End Function  
 
изменив при этом, чтобы вместо "no data" ничего не выводилось. Но вот новая проблема. Если я хочу, например, просуммировать те значейки, в которых находится моя формула (которая ничего не выводит), то получаю #Value!, хотя по идее должен был бы быть ноль.{/post}{/quote}  
формула типа =D1+D2+D3+D4 вернет н\значение  
формула типа =сумм(D1:D4) Вернет результат суммы  
при условии что в диапазоне суммирования присутствует строка нулевой длинны  
т.е.  
выполнение этого условия  
if err.number <> 0 then Get_Monthly_IMS = ""  
 
возможно в этом причина

{quote}{login=The_Prist}{date=29.10.2010 10:59}{thema=}{post}if err.number <> 0 then Get_Monthly_IMS = Empty{/post}{/quote}  
А теперь функция выводит 0 (а это не совсем верно, как я уже выше указывал).  
The_Prist, я вас уже, наверное достал, но должно же быть решение...