Не работает функция в Acces

@aleks_des · Регистрация: 20.01.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужна помощь, есть код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function ЧислоИзТекста(str As String) As Integer
    Dim digits As String
    Dim num As Integer
 
    digits = ""
 
    For i = 1 To Len(str)
 
        If Asc(Mid(str, i, 1)) >= 48 And Asc(Mid(str, i, 1)) <= 57 Then
 
            digits = digits & Mid(str, i, 1)
 
        End If
 
    Next i
 
    num = Val(digits)
 
    ExtractAndSumDigits = num
 
End Function

В Excel работает чётко добавил в модуль базы в Запрос1 выдаёт ошибку "Неопределенная функция в выражении"

В чем может быть проблема?

@Jamaica · 25.01.2024, 15:38

Сообщение от Jamaica

Прошу прощения за криворукость,

Криворукость, похоже, не лечится.

Нашел еще ошибку, буде править.

@Jamaica · 25.01.2024, 15:50

"И снова закинул он невод" (c)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function Reg(str As String) As Variant
    Static myRegExp As Object
    Dim myObj As Object, myStr1 As Object, myStr2 As String
    If myRegExp Is Nothing Then
        Set myRegExp = CreateObject("VBScript.RegExp")
        With myRegExp
            .Global = True
            .Pattern = "\d"
        End With
    End If
    Set myObj = myRegExp.Execute(str)
    
    For Each myStr1 In myObj
        myStr2 = myStr2 & myStr1
    Next
    If IsNumeric(myStr2) Then
        Reg = CLng(myStr2)
    End If
End Function

Результ:

@Jamaica · 25.01.2024, 15:58

Вариант RegExp Replace в статике:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function RegNAStat(str1 As String) As Variant
    Static myRegExp As Object
    If myRegExp Is Nothing Then
        Set myRegExp = CreateObject("VBScript.RegExp")
        With myRegExp
            .Global = True
            .Pattern = "\D+"
        End With
    End If
    With myRegExp
        If .test(str1) Then
            RegNAStat = .Replace(str1, "")
        Else
            RegNAStat = ""
        End If
    End With
End Function

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .