Bild 1: Optionen von VBA: Einschalten der Notwendigkeit für Variablendatentypen Die Variablendeklarationen können Sie, je nach deren Gültigkeitsbereich, in den Modulkopf setzen, oder in die einzelnen Funktionsroutinen. Die Stelle spielt dabei keine Rolle. Eine Dim -Anweisung kann auch irgendwo mitten im Funktionstext stehen. Die Schlüsselwörter für die Deklarationen lauten Dim, Private, Public, Friend und Static. Static ist nur innerhalb von Routinen erlaubt, Public, Friend und Private nur im Modulkopf. Neben dem Namen der Variablen ist zusätzlich deren Datentyp anzugeben: Dim A As Long Ganz stimmt das allerdings nicht, denn auch ein schnödes Dim A ist möglich. Access vba datei umbenennen login. In diesem Fall nimmt VBA für A aber den Typ Variant an. Die Typbezeichnung lässt sich auch durch ein Kürzel ersetzen: Dim A$ etwa deklariert die Variable als String. Die Kürzel im überblick: & String (Text)% Integer (16bit-Integer) & Long (32bit-Integer) ^ LongLong (64bit-Integer; nur unter Office 64 verfügbar) # Double (Fließkomma, genau)!
Hallo THK, zugegeben ist dein Unterfangen etwas ungewöhnlich. Ich hatte vor Jahren ein ähnliches Problem (Hin- und Herschalten zwischen Test- und Produktions-DB) und mein Ansatz war, alle SQL-Statements (Abfragen) zur Laufzeit von einem Modul übersetzen zu lassen. Dazu muss man natürlich eiges tun, z. B. im Load-Event eines Formulars alle SQL-Quellen (Form selbst, Subforms, Komboboxen usw. ) übersetzen. Inzwischen kenne ich die Tempvars. Vielleicht wäre es möglich, mit ihnen beim Start der Anwendung und Prüfung online/offline zu arbeiten. Nach dem Schema: Beim Start der Anwendung für jede Tabelle genau eine Tempvar anlegen und in Abhängigkeit von Online/Offline den passenden Tabellen-Namen zuweisen, z. ' Tempvar-Name ist "TV_TabSample" if online then "TV_TabSample", "Tab_Sample1" else "TV_TabSample", "Tab_Sample2" endif Somit hättest du EINEN neuen Namen, den du in Selects benutzen könntest, z. selectfrom TV_TabSample... Dateien umbenennen nach Tabellenmuster mit dateinamenabgleich - Visual Basic for Applications (VBA) - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. statt select from Tab_Sample1... Du müsstest nur sicherstellen, dass dein Definitions-Modul aufgerufen wird.
Vielleicht erinnerst du dich. Im Beitrag " VBA-Methoden: Arbeitsblätter zählen, Anzahl festlegen " zeigte ich am Ende des Beitrags eine einfache Möglichkeit, die Arbeitsblätter einer neuen Arbeitsmappe umzubenennen. Gleichzeitig versprach ich, dir in einem späteren Beitrag bessere Wege zu zeigen. Jetzt ist es soweit. Beispiel 1 Angenommen, du hast eine neue Arbeitsmappe mit 12 Arbeitsblättern erstellt. Standardmäßig haben die Arbeitsblätter die Namen "Tabelle1", "Tabelle2" usw. Du möchtest, dass die Blätter jeweils mit den Monatsnamen Januar bis Dezember benannt werden. Zuerst nochmal eine einfache, aber aufwändige Methode. Schreibe die Monatsnamen, in Lang- oder Kurzform, z. Kann man aus Access Exel Dateien und Sheets umbenennen? Office-Loesung.de. B. in den Bereich B5:B16. Du kannst sie später wieder löschen. Das Makro zum Umbenennen der Arbeitsblätter schreibst du so: Sub NameNeu1() Worksheets(1)("B5") Worksheets(2)("B6") Worksheets(3)("B7") Worksheets(4)("B8") Worksheets(5)("B9") Worksheets(6)("B10") Worksheets(7)("B11") Worksheets(8)("B12") Worksheets(9)("B13") Worksheets(10)("B14") Worksheets(11)("B15") Worksheets(12)("B16") End Sub Willst du den Bereich B5:B16 gleich wieder löschen, füge vor End Sub diese Anweisung ein: Range("B5:B16") Beispiel 2 Das ist in der Tat etwas umständlich.
Verfasst am: 09. Mrz 2008, 15:00 Rufname: Micha = "Mappe vom " & Date ' oder = Date Zuletzt bearbeitet von MiLie am 09. Mrz 2008, 15:30, insgesamt einmal bearbeitet Pino ACCESS-Einsteiger Verfasst am: 09. Mrz 2008, 15:09 Rufname: Hallo, frs Datei umbenennen: Code: strPfad = "C:\Dein_Pfad\" strDateialt = "" strDateineu = Format(Date, "yyyymmdd") & "" Name strPfad & strDateialt As strPfad & strDateineu MfG Pino Verfasst am: 09. Mrz 2008, 17:29 Rufname: Danke fr eure Hilfe!!!! Sorry das ich mich erst jetzt melde. War ganz vertieft in meinem Projekt. Dank eurer Hilfe kann ich bald mein Projekt Fertigstellen. Access vba datei umbenennen test. Gru an alle. Echt super Forum Asterix 2
Denn folgende Formel könnte zu einem Fehler wegen überlaufs führen: A = A * A * A A, TypeName(A) Eine Fehlermeldung tritt jedoch nicht auf. Das Ergebnis wird korrekt angezeigt, und der Datentyp ist auf Long gewechselt. ähnlich verhält es sich mit TypeName (A / 3) > "Double" Aber auch dies ist möglich: A = "123" TypeName (A) A = A / 3 > "String" "Double" Obwohl hier VBA zunächst einen String annimmt, stolpert es im nächsten Schritt über den Teilungsoperator und verwandelt deshalb schnell den Datentyp in Double, um die Berechnung durchführen zu können. Anderes Beispiel: TypeName(A) A = A & "ACCESS" "String" Durch den Verknüpfungsoperator & für Strings errät VBA, dass das Ergebnis ebenfalls ein String sein muss, weshalb der Wert der Integer -Variablen A intern zunächst in einen String umgewandelt und schließlich der hartkodierte Text angefügt wird. VBA scheint also ziemlich intelligent zu sein, wenn es um das Erraten der benötigten Datentypen geht. Access vba datei umbenennen 2. Das geht auch solange gut, wie Sie lediglich die VBA-Bibliothek selbst benutzen.