AW: Alternative
05.12.2003 17:54:31
Jens
Hallo Franz
Kein Problem mit Deiner Abwesenheit.
Also, alle Schaltflächen die ich benutze öffnen entweder eine Wordvorlage, oder eine Excelvorlage, oder den Explorer.
Hier mal ein paar Beispiele.
Hier wird z.B. ein Worddokument geöffnet
Sub Schaltfläche8_BeiKlick()
Dim stAppName As String
stAppName = "C:\Programme\Microsoft Office\Office\winword.exe \\FILE1\AbtT100-Bereich\AbtT103\Mitte\VKD-Mitte\Meldungen\Meldungen_Betrieblich\01_Vorlagen\Vorlage_Betriebl_Meldung.doc"
Call Shell(stAppName, 1)
End Sub
Hier wird eine Excelvorlage geöffnet
Sub Schaltfläche37_BeiKlick()
ChDir "\\FILE1\AbtT100-Bereich\AbtT103\Mitte\VKD-Mitte\Überstundenzettel"
Workbooks.Open FileName:= _
"\\FILE1\AbtT100-Bereich\AbtT103\Mitte\VKD-Mitte\Überstundenzettel\01_Vorlagen\Überstundenzettel.xls"
End Sub
Hier wird der Explorer geöffnet
Sub Schaltfläche74_BeiKlick()
Dim stAppName As String
Dim gDir As String
gDir = "\\FILE1\AbtT100-Bereich\AbtT103\Mitte\VKD-Mitte\Meldungen\"
stAppName = "EXPLORER.EXE /e," & gDir
'DoCmd.Maximize
Call Shell(stAppName, 1)
End Sub
Von diesen Schaltflächen gibt es auf meiner Oberfläche ungefähr 35 Stück. Alle haben erst mal den gleichen Zweck, nämlich Vorlagen zu öffnen.
Wenn Du Dir die Pfade für die zu öffnende Vorlage anschaust, wirst Du merken, das in jedem Pfad eben \Mitte\VKD-Mitte\ erscheint.
Der Grund ist, dass die hier im angebenen Beispiele stammenden Schaltflächen von der Oberfläche des VKD Mitte stammen. Da dieser VKD Mitte im Netzwerk unserer Firma auch nur diese Ordner Zugriff hat.
Jetzt gibt es aber bei uns 4 VKD Bereiche. Den VKD Mitte, den VKD Süd, den VKD Nord und den VKD West. Und alle haben von mir die gleichen Ordner angelegt bekommen und beutzen die gleiche Oberfläche. Allerdings benutzen nicht alle VKDs die Oberfläche zur gleichen Zeit, sonder jeder VKD und hat seine Eigene, eben wegen der festgelegten Zugriffsrechte.
Ich möchte aber auch mal als Entwickler und Pfleger dieser Oberfläche (hier ist noch ein Kalender usw. hinterlegt) die Möglichkeit haben, mal was zu Verändern oder zu Verbessern.
Das ist ja eigentlich kein Problem.
Nur muß ich dann jede Oberfläche wieder seperat den VKD Bereichen anpassen und alle 35 Schaltfläche bzw. deren Makros umschreiben, damit da auch die Schaltflächen funktionieren.
Was ich jetzt brauche wäre ein Schaltfläche, oder vier Schaltflächen, die auf Klick aus dem VKD Mitte ein VKD Süd etc macht/machen.
Eigentlich reicht es auch wenn ich über die Schaltfläche sagen kann suche in allen Makros das Wort "Mitte" und ersetze das Mitte durch Süd, West oder Nord.
Denn eigentlich braucht das Makro ja wirklich nur das Wort "Mitte" "Süd" "Nord" oder "West" zu suchen, je nach dem wie die Oberfläche gerade eingestellt ist und mir dann die Möglichkeit bieten, diese vier Wörter beliebig auszutauschen.
Ich hoffe ich habe mich hallwegs verständlich ausgedrückt.
Ansonsten frag einfach nochmal nach.
Danke für Deine Unterstützung.
Gruß Jens