Спасибо большое, что пытаешься помочь.
Про указания имя Проекта я в курсе. Но в этом случае
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Function InstForm_B()
Dim frm As Form
Set frm = New ProjectA.Form_frmTest
frm.Visible = True
Set frm = Nothing
End Function
оно не работает.
И не будет.
Ты пытаешься присвоить переменной с типом Form класс
не соответствие типов однако
Ну так я об этом и пишу с самого начала.
В обычной модели, когда всё лежит в одном файле, я могу без проблем создать экземпляр формы с помощью данной инструкции.
1.
Set frm = New Form_frmTest
И никакой ошибки несоответствия типов не возникает. Так как данный модуль находится в данном проекте.
А я пытаюсь узнать, можно ли как-то извернуться, чтобы этого же добиться из другого, «подчинённого», проекта.
1.
2.
3.
Public Sub Test_A()
ProjectB.OpenForm_B
End Sub
Модуль в проекте "Б"
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Compare Database
Option Explicit
Public Function OpenForm_B()
Const cFrm As String = "frmTest"
DoCmd.OpenForm cFrm
End Function
Public Function InstForm_B()
Dim frm As Form
Set frm = New Form_frmTest
frm.Visible = True
Set frm = Nothing
End Function
доработай функцию.
передавай в функцию имя формы в качестве параметра.
А зачем её дорабатывать, это просто пример.
Я пытался показать, что я умею вызывать функции из другого проекта с указанием имени проекта. И это работает для вызова функций, но не подходит для указания в конструкции
1.
Set frm = New ProjectA.Form_frmTest
