Access com-AddIn erstellen

23/12/2007 - 12:47 von Andreas Vogt | Report spam
Hallo,
da ich ja die ODE besitze habe ich heute gemerkt dass ich damit auch
com-AddIns schreiben kann.
Hat das eigentlich Vorteile im Vergleich zu VB6? Außer dass man in VB
das Projekt "im Voraus" testen kann?
Konkret möchte ich ein AddIn für Access erstellen (nicht IDE)
Und eine Symbolleiste an der Position msoBarTop erstllen lassen.
Doch die Symbolleiste wird nicht im Datenbankfenster angezeigt sondern
in der IDE.
Starteigenschaften ist "Load on Demand", Hostanwendung ist Microsoft
Access, Version der Anwendung ist Access 10.0.

Hier mein Code im OnConnection Ereignis des Designers:
Public objCommandBar As CommandBar
...
Dim objCommandBars As CommandBars
Dim objCommandBar As CommandBar
Set objCommandBars = Application.CommandBars

Set objCommandBar = objCommandBars.Add("Hurra", msoBarTop, True)
With objCommandBar
.Controls.Add msoControlButton, 2, , , True
.Controls.Add msoControlButton, 21, , , True
.Controls.Add msoControlButton, 19, , , True
.Controls.Add msoControlButton, 22, , , True
.Controls.Add msoControlButton, 4, , , True
.Visible = True
End With

Gruß Andreas

PS: AEK Tutorial und PC-Creativ.de kenn ich schon, hat mir bislang
aber nicht geholfen.
 

Lesen sie die antworten

#1 Gunter Avenius
23/12/2007 - 13:05 | Warnen spam
Hallo Andreas,

Andreas Vogt schrieb folgendes:
da ich ja die ODE besitze habe ich heute gemerkt dass ich damit auch
com-AddIns schreiben kann.
Hat das eigentlich Vorteile im Vergleich zu VB6? Außer dass man in VB
das Projekt "im Voraus" testen kann?
Konkret möchte ich ein AddIn für Access erstellen (nicht IDE)
Und eine Symbolleiste an der Position msoBarTop erstllen lassen.
Doch die Symbolleiste wird nicht im Datenbankfenster angezeigt sondern
in der IDE.
Starteigenschaften ist "Load on Demand", Hostanwendung ist Microsoft
Access, Version der Anwendung ist Access 10.0.

Hier mein Code im OnConnection Ereignis des Designers:
Public objCommandBar As CommandBar
...
Dim objCommandBars As CommandBars
Dim objCommandBar As CommandBar
Set objCommandBars = Application.CommandBars

Set objCommandBar = objCommandBars.Add("Hurra", msoBarTop, True)
With objCommandBar
.Controls.Add msoControlButton, 2, , , True
.Controls.Add msoControlButton, 21, , , True
.Controls.Add msoControlButton, 19, , , True
.Controls.Add msoControlButton, 22, , , True
.Controls.Add msoControlButton, 4, , , True
.Visible = True
End With

Gruß Andreas

PS: AEK Tutorial und PC-Creativ.de kenn ich schon, hat mir bislang
aber nicht geholfen.



Kennst Du : http://team-moeller.de/access/tiptr...ddins.html ?


Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de

Ähnliche fragen