StrReverse в DAO запросе к базе Access не пашет! - VB

Узнай цену своей работы

Формулировка задачи:

Что за нафиг такой?
Выдает рунтайм еррор 3085: Неопределенная функция 'StrReverse' в выражении.
Без нее запрос работает.

Решение задачи: «StrReverse в DAO запросе к базе Access не пашет!»

textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Sub</font> Test()
    <font color="blue">Dim</font> db <font color="blue">As</font> DAO.Database
    <font color="blue">Dim</font> rst <font color="blue">As</font> DAO.Recordset
    
    <font color="blue">Set</font> db = OpenDatabase(<font color="teal">"D:\1\db1.mdb"</font>)
    <font color="blue">Set</font> rst = db.OpenRecordset( _
      <font color="teal">"SELECT Mid([Customer],IIf(InStr([Customer],'\')<>0,InStr(InStr([Customer],'\')+1,[Customer],'\'))+1) "</font> & _
      <font color="teal">"As CustomerRev FROM CustomerBook"</font>)
    
    rst.MoveLast
    Debug.<font color="blue">Print</font> rst!CustomerRev
    
    rst.<font color="blue">Close</font>
    db.<font color="blue">Close</font>
<font color="blue">End</font> <font color="blue">Sub</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы