Forums Neueste Beiträge
 

Module in Access-Anwendung mittels Access-Menü-Add-In löschen

25/07/2009 - 15:18 von Josef Poetzl | Report spam
Hallo!

Ich spiele mich gerade ein wenig mit einem Access-Add-In.
Mit diesem Add-In will ich u. a. in den Access-Anwendungen Module
austauschen. (Altes Modul löschen und neues aus Add-In einfügen.)

Dabei hatte ich das Problem, dass
| CurrentProject.Application.DoCmd.DeleteObject
die Module aus dem Add-In und nicht aus der Anwendung löscht. Auch
| CurrentProject.Application.VBE.ActiveVBProject
bezieht sich auf das Add-In und nicht auf die Anwendung.


Meine bisherige Lösung:
Dim vbp As VBProject
Dim bolDelete As Boolean

'Passendes VBProject ermitteln:
For Each vbp In CurrentProject.Application.VBE.VBProjects

'Prüfen, ob Dateinamen übereinstimmen:
If vbp.FileName = CurrentDb.Name Then
bolDelete = True
Exit For
End If

Next

'Module löschen:
if bolDelete then
for i = ..
vbp.VBComponents.Remove vbp.VBComponents(sModulName(i))
next
end if


Gibt es statt diesem Umweg eine einfachere bzw. übersichtlichere
Variante? Die gezeigte Variante funktioniert zwar, sie gefàllt mir
aber nicht. ;-)


mfg
Josef

EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/
 

Lesen sie die antworten

#1 Peter Doering
25/07/2009 - 16:59 | Warnen spam
Hallo,

Josef Poetzl wrote:

Ich spiele mich gerade ein wenig mit einem Access-Add-In.
Mit diesem Add-In will ich u. a. in den Access-Anwendungen Module
austauschen. (Altes Modul löschen und neues aus Add-In einfügen.)

Dabei hatte ich das Problem, dass
| CurrentProject.Application.DoCmd.DeleteObject
die Module aus dem Add-In und nicht aus der Anwendung löscht. Auch
| CurrentProject.Application.VBE.ActiveVBProject
bezieht sich auf das Add-In und nicht auf die Anwendung.



War da nicht was bez. CurrentDb vs. CodeDb?

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen