Как исправить ошибку функции?

[klim8]

Пробую использовать функцию из примера, а она выдаёт ошибки.

1. Как определить причину ошибки?
2. Как исправить ошибку функции?

Public*Function*funCreateForm(strForm*As*String)*As*Boolean
********Dim*frm*As*Form
********On*Error*GoTo*999* 'Переход*по*ошибке
********funCreateForm* = *False* 'Значение*возвращаемое*по*ошибке
********funDeleteForm*strForm* 'Удаляем*старую*форму
********frm* = *appAccess.CreateForm* 'Создаем*новую*форму
********With*frm* 'Изменяем*параметры*формы
************.Caption*=*"Мой*калькулятор"*'Вставляем*заголовок
************.ScrollBars* = *0* 'Гасим*полосы*прокрутки
************.RecordSelectors* = *False* 'Гасим*область*выделения
************.NavigationButtons* = *False* 'Гасим*кнопки*перехода
************.DividingLines* = *False* 'Гасим*разделительные*линии
************.AutoCenter* = *True* 'Выравниваем*форму*по*центру
************.BorderStyle* = *3* 'Устанавливаем*диалоговую*границу
************.Section(0).Height*=*3.862***appCM*'Изменяем*высоту*окна
************.Width*=*10.926***appCM*'Изменяем*ширину*окна
************.HasModule* = *True* 'Разрешаем*программы*в*форме
********End*With
********funRestoreFormControls*frm** 'Создаем*элементы*формы
********funInsertFormModule*frm* 'Создаем*модуль*формы
********appAccess.DoCmd.Save , *strForm* 'Сохраняем*форму
********appAccess.DoCmd.Close(acForm,*strForm,*acSaveYes)*'Закрываем*форму
********funCreateForm* = *True* 'Возвращаем*результат
********Exit*Function* 'Выход*из*программы
999:
********MsgBox*Err.Description* 'Сообщаем*об*ошибке
********Err.Clear()*'Очищаем*по
****End*Function

[Alex11223]

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

Как определить причину ошибки?

https://habrahabr.ru/post/339038/

[shanemac51]

могу предположить , что 99% звездочек --лишние

Public Function funCreateForm(strForm As String) As Boolean
        Dim frm As Form
        On Error GoTo 999  'Переход по ошибке
        funCreateForm  =  False  'Значение возвращаемое по ошибке
        funDeleteForm strForm  'Удаляем старую форму
        frm  =  appAccess.CreateForm  'Создаем новую форму
        With frm  'Изменяем параметры формы
            .Caption = "Мой калькулятор" 'Вставляем заголовок
            .ScrollBars  =  0  'Гасим полосы прокрутки
            .RecordSelectors  =  False  'Гасим область выделения
            .NavigationButtons  =  False  'Гасим кнопки перехода
            .DividingLines  =  False  'Гасим разделительные линии
            .AutoCenter  =  True  'Выравниваем форму по центру
            .BorderStyle  =  3  'Устанавливаем диалоговую границу
            .Section(0).Height = 3.862*appCM 'Изменяем высоту окна
            .Width = 10.926*appCM 'Изменяем ширину окна
            .HasModule  =  True  'Разрешаем программы в форме
        End With
        funRestoreFormControls frm   'Создаем элементы формы
        funInsertFormModule frm  'Создаем модуль формы
        appAccess.DoCmd.Save ,  strForm  'Сохраняем форму
        appAccess.DoCmd.Close(acForm, strForm, acSaveYes) 'Закрываем форму
        funCreateForm  =  True  'Возвращаем результат
        Exit Function  'Выход из программы
999:
        MsgBox Err.Description  'Сообщаем об ошибке
        Err.Clear() 'Очищаем по
    End Function

[klim8]

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

могу предположить , что 99% звездочек --лишние

Да... вручную перепрописал красные строки... Ошибки пропали..
Наверное при копирование со страницы сайта, копируются скрытые знаки...

Но есть ещё пару вопросов (см. скрин)
Вроде всё по инструкции
Метод DoCmd.Close (доступ) - ссылка

[Serge_Bliznykov]

погуглил.
попробуйте

appAccess.DoCmd.Close ObjectType:=acForm, ObjectName:=strForm, Save:=acSaveYes

а то, что добавили от себя - ВЫКИНУТЬ!

у Вас параметр передаётся:

Public Function funCreateForm(strForm As String) As Boolean

[klim8]

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

погуглил.

блин... я тоже гуглил...
1. Не могли бы вы подсказать какой запрос нужно написать чтобы гугл ответил?
И почему именно так нужно прописывать эту строчку

2. Что происходит с

Err.Clear()

?

см. гиф.

Спасибо.

[Aleksandr H.]

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

1. Не могли бы вы подсказать какой запрос нужно написать чтобы гугл ответил?

https://www.google.com/search?q=vba+...ient=firefox-b

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

Что происходит с

Ниче не происходит, вывалится в ошибку. Уберити скобки.

Я для себя определял так : параметры в скобках передаются только при передаче обекта. Например:

' some code here
a = MyProc(b) 
' another code here

но

' some code here
MyProc b 
' another code here

[Serge_Bliznykov]

уберите круглые скобки:

        Err.Clear 'Очищаем*по

а ещё нужно дописать передачу имени формы в процедуру:

Private Sub Кнопка2_Click()
  Call funCreateForm(Me.Поле0)
End Sub

потом нужно исправить строчку:

        Set frm = appAccess.CreateForm    'Создаем новую форму

Но это не очень поможет.
там дальше при запуске на выполнение ещё ошибки появятся в строчках:

funDeleteForm strForm  'Удаляем старую форму

funRestoreFormControls frm   'Создаем элементы формы

funInsertFormModule frm  'Создаем модуль формы

эти функции тоже должны быть описаны.