Skip to content

Commit fe64fde

Browse files
josef-poetzljosef-poetzl
authored
46 azure build process missing type for vbproject unregistred microsoftvbeinteropdll (#47)
* use package: ThammimTech.Microsoft.Vbe.Interop * COM interface: replace VBProject with object
1 parent 4211fb6 commit fe64fde

39 files changed

+660
-204
lines changed

‎access-add-in/AccUnitLoader.accda‎

0 Bytes
Binary file not shown.

‎access-add-in/LocalTest.accdb.src/dbs-properties.json‎

Lines changed: 204 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,204 @@
1+
{
2+
"Info": {
3+
"Class": "clsDbProperty",
4+
"Description": "Database Properties (DAO)"
5+
},
6+
"Items": {
7+
"AccessVersion": {
8+
"Value": "09.50",
9+
"Type": 10
10+
},
11+
"AllowBuiltInToolbars": {
12+
"Value": true,
13+
"Type": 1
14+
},
15+
"AllowDatasheetSchema": {
16+
"Value": true,
17+
"Type": 1
18+
},
19+
"AllowFullMenus": {
20+
"Value": true,
21+
"Type": 1
22+
},
23+
"AllowShortcutMenus": {
24+
"Value": true,
25+
"Type": 1
26+
},
27+
"AllowSpecialKeys": {
28+
"Value": true,
29+
"Type": 1
30+
},
31+
"AllowToolbarChanges": {
32+
"Value": true,
33+
"Type": 1
34+
},
35+
"ANSI Query Mode": {
36+
"Value": 0,
37+
"Type": 4
38+
},
39+
"Auto Compact": {
40+
"Value": 0,
41+
"Type": 4
42+
},
43+
"Build": {
44+
"Value": 720,
45+
"Type": 4
46+
},
47+
"CheckTruncatedNumFields": {
48+
"Value": 1,
49+
"Type": 4
50+
},
51+
"Clear Cache on Close": {
52+
"Value": 0,
53+
"Type": 4
54+
},
55+
"CollatingOrder": {
56+
"Value": 1033,
57+
"Type": 3
58+
},
59+
"Connect": {
60+
"Value": "",
61+
"Type": 12
62+
},
63+
"Continuous Form Navigation Keys": {
64+
"Value": 0,
65+
"Type": 4
66+
},
67+
"DesignMasterID": {
68+
"Value": "",
69+
"Type": 15
70+
},
71+
"DesignWithData": {
72+
"Value": true,
73+
"Type": 1
74+
},
75+
"HasOfflineLists": {
76+
"Value": 70,
77+
"Type": 3
78+
},
79+
"Name": {
80+
"Value": "rel:LocalTest.accdb",
81+
"Type": 12
82+
},
83+
"NavPane Category": {
84+
"Value": 0,
85+
"Type": 4
86+
},
87+
"NavPane Closed": {
88+
"Value": 0,
89+
"Type": 4
90+
},
91+
"NavPane Sort By": {
92+
"Value": 1,
93+
"Type": 4
94+
},
95+
"NavPane View By": {
96+
"Value": 0,
97+
"Type": 4
98+
},
99+
"NavPane Width": {
100+
"Value": 215,
101+
"Type": 4
102+
},
103+
"Never Cache": {
104+
"Value": 0,
105+
"Type": 4
106+
},
107+
"Picture Property Storage Format": {
108+
"Value": 0,
109+
"Type": 4
110+
},
111+
"ProjVer": {
112+
"Value": 142,
113+
"Type": 3
114+
},
115+
"QueryTimeout": {
116+
"Value": 60,
117+
"Type": 3
118+
},
119+
"RecordsAffected": {
120+
"Value": 0,
121+
"Type": 4
122+
},
123+
"ReplicaID": {
124+
"Value": "",
125+
"Type": 15
126+
},
127+
"Show Navigation Pane Search Bar": {
128+
"Value": 1,
129+
"Type": 4
130+
},
131+
"Show Values in Indexed": {
132+
"Value": 1,
133+
"Type": 4
134+
},
135+
"Show Values in Non-Indexed": {
136+
"Value": 1,
137+
"Type": 4
138+
},
139+
"Show Values in Remote": {
140+
"Value": 0,
141+
"Type": 4
142+
},
143+
"Show Values Limit": {
144+
"Value": 1000,
145+
"Type": 4
146+
},
147+
"ShowDocumentTabs": {
148+
"Value": true,
149+
"Type": 1
150+
},
151+
"StartUpShowDBWindow": {
152+
"Value": true,
153+
"Type": 1
154+
},
155+
"StartUpShowStatusBar": {
156+
"Value": true,
157+
"Type": 1
158+
},
159+
"Theme Resource Name": {
160+
"Value": "Office Theme",
161+
"Type": 10
162+
},
163+
"Themed Form Controls": {
164+
"Value": 1,
165+
"Type": 4
166+
},
167+
"Transactions": {
168+
"Value": true,
169+
"Type": 1
170+
},
171+
"Updatable": {
172+
"Value": true,
173+
"Type": 1
174+
},
175+
"Use BigInt for linking and importing data": {
176+
"Value": 0,
177+
"Type": 4
178+
},
179+
"Use DateTime2 for linking and importing data": {
180+
"Value": 0,
181+
"Type": 4
182+
},
183+
"Use Microsoft Access 2007 compatible cache": {
184+
"Value": 0,
185+
"Type": 4
186+
},
187+
"UseAppIconForFrmRpt": {
188+
"Value": false,
189+
"Type": 1
190+
},
191+
"UseMDIMode": {
192+
"Value": 0,
193+
"Type": 2
194+
},
195+
"Version": {
196+
"Value": "14.0",
197+
"Type": 12
198+
},
199+
"WebDesignMode": {
200+
"Value": 0,
201+
"Type": 2
202+
}
203+
}
204+
}

‎access-add-in/LocalTest.accdb.src/documents.json‎

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
{
2+
"Info": {
3+
"Class": "clsDbDocument",
4+
"Description": "Database Documents Properties (DAO)"
5+
},
6+
"Items": {
7+
"Databases": {
8+
"SummaryInfo": {
9+
"Title": "Database"
10+
}
11+
}
12+
}
13+
}

‎access-add-in/LocalTest.accdb.src/modules/ExampleClass.cls‎

Lines changed: 41 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,41 @@
1+
VERSION 1.0 CLASS
2+
BEGIN
3+
MultiUse = -1 'True
4+
END
5+
Attribute VB_Name = "ExampleClass"
6+
Attribute VB_GlobalNameSpace = False
7+
Attribute VB_Creatable = False
8+
Attribute VB_PredeclaredId = False
9+
Attribute VB_Exposed = False
10+
'--------------
11+
' ExampleClass
12+
'--------------
13+
14+
Public Function Method1() As Long
15+
16+
Dim x As Long
17+
18+
'1 This line must be ignored.
19+
20+
1 x = 4 ' Line number with code
21+
22+
x = x + 1
23+
24+
2 Method1 = x
25+
26+
'3 This line must be ignored.
27+
28+
End Function
29+
30+
Public Function Method2() As Long
31+
32+
Dim x As Long
33+
34+
1 x = 1 + 1
35+
2 Method2 = x
36+
37+
3 Exit Function
38+
39+
4 'This line will never be reached.
40+
41+
End Function

‎access-add-in/LocalTest.accdb.src/modules/_Example.bas‎

Lines changed: 36 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,36 @@
1+
Attribute VB_Name = "_Example"
2+
Option Compare Database
3+
Option Explicit
4+
5+
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
6+
7+
Public Sub RunCodeCoverageTestExample()
8+
9+
'CodeCoverage config:
10+
With CodeCoverageTest("ExampleClass")
11+
'TestSuite:
12+
With .AddByClassName("ExampleClassTests")
13+
'Run tests:
14+
.Run
15+
End With
16+
17+
End With
18+
19+
'wait to see CodeCoverageTracker code:
20+
'Sleep 5000
21+
22+
Debug.Print CodeCoverageTracker.GetReport("*", "Method2", True)
23+
24+
'Remove CodeCoverageTracker code:
25+
CodeCoverageTracker.Clear "ExampleClass"
26+
27+
End Sub
28+
29+
Private Sub TestRef()
30+
31+
Dim r As Reference
32+
For Each r In Application.References
33+
Debug.Print r.Name, r.IsBroken, r.Guid
34+
Next
35+
36+
End Sub

‎access-add-in/LocalTest.accdb.src/nav-pane-groups.json‎

Lines changed: 24 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,24 @@
1+
{
2+
"Info": {
3+
"Class": "clsDbNavPaneGroup",
4+
"Description": "Navigation Pane Custom Groups"
5+
},
6+
"Items": {
7+
"Categories": [
8+
{
9+
"Name": "Custom",
10+
"Flags": 0,
11+
"Position": 2,
12+
"Groups": [
13+
{
14+
"Name": "Custom Group 1",
15+
"Flags": 0,
16+
"Position": 2,
17+
"Objects": [
18+
]
19+
}
20+
]
21+
}
22+
]
23+
}
24+
}

‎access-add-in/LocalTest.accdb.src/project.json‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
{
2+
"Info": {
3+
"Class": "clsDbProject",
4+
"Description": "Project"
5+
},
6+
"Items": {
7+
"FileFormat": 12,
8+
"RemovePersonalInformation": false
9+
}
10+
}

‎access-add-in/LocalTest.accdb.src/themes/Office Theme.thmx‎

3.13 KB
Binary file not shown.

‎access-add-in/LocalTest.accdb.src/vbe-project.json‎

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
{
2+
"Info": {
3+
"Class": "clsDbVbeProject",
4+
"Description": "VBE Project"
5+
},
6+
"Items": {
7+
"Name": "LocalTests",
8+
"Description": "",
9+
"FileName": "LocalTest.accdb",
10+
"HelpFile": "",
11+
"HelpContextId": 0,
12+
"ConditionalCompilationArguments": "",
13+
"Mode": 0,
14+
"Protection": 0,
15+
"Type": 100
16+
}
17+
}

‎access-add-in/LocalTest.accdb.src/vbe-references.json‎

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
{
2+
"Info": {
3+
"Class": "clsDbVbeReference",
4+
"Description": "VBE References"
5+
},
6+
"Items": {
7+
"stdole": {
8+
"GUID": "{00020430-0000-0000-C000-000000000046}",
9+
"Version": "2.0"
10+
},
11+
"DAO": {
12+
"GUID": "{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}",
13+
"Version": "12.0"
14+
},
15+
"VBIDE": {
16+
"GUID": "{0002E157-0000-0000-C000-000000000046}",
17+
"Version": "5.3"
18+
}
19+
}
20+
}

0 commit comments

Comments
 (0)