Hallo alle zusammen,
in einem Team von Anwendungsentwicklern müssen in verschieden Umgebungen immer wieder Konstanten in Modulen angepasst werden.
Wie kann ich eine andere DB öffnen um dann die Methode:
„DoCmd.OpenModule strModuleName“ zu nutzen um einzelne Werte zu suchen und ggf zu ändern.
In der eigenen DB klappt das Super, aber ich bekomme das nicht mit einer zweiten DB hin.
Über eine Antwort würde ich mich sehr freuen.
Norbert Laas
Wie wär’s denn mit „Microsoft Visual SourceSafe“, gerade in einer Mulit-Entwickler-Umgebung doch unverzichtbar.
Du kannst aber auch mittels z. B. „db.Containers!Modules“ -Containers auf eine beliebige Datenbank (hier „db“) verweisen, dort dann mittels
(ctr As Container, doc As DOCUMENT)
For Each doc In ctr.Documents
strModuleName = doc.Name
DoCmd.OpenModule strModuleName
auf das einzelne Modul verweisen.
Gruß
Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke für die Antwort,
die Auflistung kann ich durchlaufen, auch den Namen zurückgeben.
Das Modul öffnen geht jedoch nicht.
der Befehl docmd bezieht sich auf die aktuelle DB dort würde das mdl geöffnet wenn es existieren würde
hast Du noch eine andere Idee?
Sub Moduländerungen()
Dim dbs As Database, ctr As Container, doc As Document
Dim mdl As Module
’ Bezug auf fremde Datenbank zurückgeben.
Set dbs = OpenDatabase(„c:\temp\db1.mdb“)
’ Bezug auf Forms-Container zurückgeben.
Set ctr = dbs.Containers!Modules
’ Elemente in Documents-Auflistung des Modules-
’ Containers durchlaufen.
For Each doc In ctr.Documents
’ Namen des Document-Objekts und Wert der
’ LastUpdated-Eigenschaft ausgeben.
Debug.Print doc.Name
If doc.Name = modKonstanten Then
DoCmd.OpenForm doc.Name
'Anweisungen wie
'mdl.AddFromString
'mdl.CountOfLines
'mdl.Find(1,1,1,)
'usw.
End If
Next doc
Set dbs = Nothing
Set ctr = Nothing
End Sub
mfg
Norbert Laas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]