Не работает функция в 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

Новые блоги и статьи Все статьи Все блоги /
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026
Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .

Опции темы