Zum Inhalt springen

Funktionen

Kostenlose VBA-Funktionen zum Kopieren und Einbauen

nur neue

AccessVersion()NEU

Diese Funktion gibt die Access-Versionsnummer in einer Meldung aus. In der Meldung wird die interne Nummer, das Build und die tatsächliche Versionsnummer angezeigt. Zusätzlich wird auch ermittelt, ob es sich um eine Vollversion oder die Runtime von Access handelt.

AnzahlVbaZeilen()NEU

Mit dieser VBA-Funktion kann die Anzahl, der in der DB vorhandenen Code-Zeilen, ermittelt werden. Hierbei werden Kommentar- sowie Leerzeilen mitgezählt.

BstInZahl()NEU

Spalten-Buchstaben aus Excel in Zahl umwandeln. Diese Funktion wandelt eine Excel-Spaltenbezeichnung wie "A", "H" oder "BX" in eine Zahl um. Die Funktion liefert für alle Buchstaben von A bis ZZ einen entsprechenden Zahlenwertzurück. Buchstaben ab ZZ, also z.B. "AAA" werden nicht korrekt verarbeitet! Hier werden nur der erste und der letzte Buchstabe betrachtet, also AA was 27 zurück liefert!

CheckAbfragePerformance()NEU

Diese Funktion dient dazu, die Ausführungsgeschwindigkeit einer Abfrage zu prüfen. So hat man die Möglichkeit, bei Anpassungen an einer Abfrage zu kontrollieren, ob sich die Ausführungsgeschwindigkeit verbessert oder verschlechtert hat. Die Funktion öffnet die mitgegebene Abfrage als RecordSet und gibt die Start- und Endzeit im Direktfenster aus. Zusätzlich wird auch der Timer (vergangene Sekunde…

FarbeHexNachIndex()NEU

Diese VBA-Funktion liefert zur übergebenen Hex-Farbe "xHex" den zugehörigen Farb-Index für VBA zurück. Aus z.B. "#AABBCC" wird aus der Funktion "13417386" zurückgeliefert.

IstKwGueltig()NEU

Prüfen, ob eine KW gültig ist (ISO-8601). Die höchstmögliche Kalenderwoche in Deutschland ist die 53. Kalenderwoche. Das kommt jedoch nur in Jahren vor, in denen der 1. Januar ein Donnerstag ist oder wenn ein Schaltjahr endet und der 31. Dezember ein Donnerstag ist. In diesen Fällen hat das Jahr eine zusätzliche Kalenderwoche. Normalerweise hat ein Jahr 52 Kalenderwochen. Die Berechnung basiert a…

KalenderPickerAus()NEU

Diese Funktion deaktiviert für die neuen Access-Versionen den Kalender-Picker. Dazu muss die Funktion im Formular im Ereignis "Beim Betreten" des Datumsfeldes eingestellt werden.

KWNachDatum()NEU

Die VBA-Funktion ermittelt aus der im Parameter "xKW" übergebenen Kalenderwoche zum angegebenen Jahr "xJJ" der erste Tag zur KW. Wird über "xTyp" ein leerer String oder "von" übergeben wird der ERSTE Tag der Woche zurückgegeben. Alle anderen Übergabewerte geben den letzten Tag der Woche zurück. Die Funktion ist so programmiert, dass falsche Kalenderwochen zu einem Rückgabewert von "Falsche KW" fü…

MailadressePruefen()NEU

Formale Prüfung einer E-Mail-Adresse. Wenn die E-Mail-Adresse korrekt ist, wird "OK" zurückgegeben. Diese Funktion benötigt folgende Unterfunktionen: - ZeichenInText() - AnzahlStrInStr() Beide VBA-Funktion sind auch innerhalb der Funktionen von www.access-home.de zu finden.

MinInTage()NEU

Diese VBA-Funktion wandelt die im Parameter -MinWert- übergebene Minutenzahl in x Tage x Stunden x Minuten um und gibt diesen Wert formatiert über die Funktion zurück.

ZeichenInText()NEU

Die Funktion prüft, ob eines der in "Zeichen" angegebenen Zeichen im Text vorkommt. Die Funktion gibt True zurück, wenn eines der Zeichen gefunden wird. Mit der Funktion lässt sich schnell prüfen, ob ein Zeichen aus einer Folge von Prüfzeichen in einem String vorkommt.

AbfrageAendern()

Diese Funktion ändert den SQL-String einer vorhandenen Abfrage. Man übergibt einfach den Namen der Abfrage, sowie den neuen SQL-String in die Funktion. Beim Ausführen wird der vorhandene SQL-String mit dem neuen überschrieben. So lassen sich auf einfachem Weg, während der Laufzeit, z.B. die Tabelle oder die Ausgabefelder einer bestehenden Abfrage ändern.

AbfrageAuslesen()

Diese Funktion liest den SQL-String einer innerhalb von Access gespeicherten Abfrage aus und gibt ihn über die Funktion zurück.

AbfrageDa()

Diese Funktion prüft, ob die mitgegebene Abfrage in der Datenbank vorhanden ist. Die Funktion gibt True zurück wenn die Abfrage verfügbar ist und False wenn nicht.

AbfrageDauer()

Diese VBA-Funktion gibt die Verarbeitungsdauer einer Abfrage in Sekunden im Direktfenster aus. Die Funktion kann genutzt werden, um beim Umsetzen von Performanceverbesserungen innerhalb der DB-Abfragen zu prüfen, wie groß die zeitliche Veränderung ist.

AccessFenster()

Fenstergröße von Access beeinflussen - Mit der Funktion AccessFenster() können Sie das MS-Access-Fenster beliebig beeinflussen und so z.B. beim Start einer Datenbank das Maximieren von Access auslösen.

AccessMaximieren

Funktion zum Maximieren des Accessfensters.

AccessPfad()

Auslesen des Pfades zur msaccess.exe.

AccObjSchliessen()

Funktion zum Schließen von offenen Access-Objekten Beim Schließen werden die jeweiligen Objekte ohne weitere Rückfrage gespeichert und anschließend geschlossen. Als Objekttyp "ObjTyp" können folgende Werte übergeben werden: Tabelle, Abfrage, Formular, Bericht, Makro und Modul. Zusätzlich unterstützt die Funktion das Schließen der aktuellen Datenbank (ObjTyp=Datenbank) und das Beenden von Access (…

AdressblockX()

Diese Funktion gibt einen formatierten Adressblock zurück der z.B. über einen Export oder eine Abfrage direkt in anderen Programmen zur Verfügung steht.

AlleAbfragenAuslesen()

Die VBA-Funktion schreibt alle in der DB vorhandenen Abfragen inkl. SQL-String in eine Tabelle 'Temp_Abfragen'. Beim Aufruf der Funktion wird geprüft, ob die Zieltabelle 'Temp_Abfragen' vorhanden ist. Fehlt die Tabelle, wird sie erzeugt. Ist die Tabelle vorhanden, wird sie geleert.

AlleBerichteSchliessen()

Funktion zum Schließen aller geöffneten Berichte. Steht "SetWarnings=False" werden alle Berichte gespeichert und geschlossen, steht "SetWarnings=True" wird vor dem Speichern gefragt.

AlleFormulareSchliessen()

Funktion zum Schließen aller geöffneten Formulare. Steht "SetWarnings=False" werden alle Formulare gespeichert und geschlossen, steht "SetWarnings=True" wird vor dem Speichern gefragt.

AlleTabellenUndFelder()

Diese Funktion ermittelt alle Tabellen und Felder einer Datenbank und speichert diese in einer Textdatei "TabUndFld.txt" im Verzeichnis "C:" ab.

AnzahlDatensaetze()

Mit dieser einfachen Funktion lässt sich die Anzahl der Datensätze einer beliebigen Tabelle ermitteln.

AnzahlStrInStr()

Diese Funktion durchsucht den String im Argument "StrWert" nach dem String im Argument "StrSuch" und gibt zurück wie oft "StrSuch" vorkommt.

AnzahlWochenImMonat()

Diese Funktion liefert zum mitgegebenen Monat und Jahr die Anzahl enthaltenen Wochen zurück.

AutoWaehlerStarten()

Access-Autowähler mit Übergabe einer Telefonnummer starten.

BackSlashTest()

Mit dieser Funktion kann geprüft werden, ob bei einem Pfad ein abschließender Backslash vorhanden ist. Speziell beim Zusammenfügen von Pfad und Dateiname, ist es oft der Fall, das der Backslash fehlt.

BenutzerName()

Über diese Funktion kann der aktive Benutzer ausgelesen werden.

BerichtSchließen()

Diese Funktion schließt den aktuellen Bericht. Je nach Aufruf kann in die Funktion ein Berichtsname übergeben werden oder es wird der aktive Bericht ausgewählt. Vorrang hat der aktive Bericht. Wird kein Bericht gefunden, wird die Funktion verlassen.

BerichtZuExceldokument()

Diese Funktion übergibt den aktuellen Bericht nach Excel. Je nach Aufruf kann in die Funktion ein Berichtsname übergeben werden oder es wird der aktive Bericht ausgewählt. Vorrang hat der aktive Bericht. Wird kein Bericht gefunden wird die Funktion verlassen.

BerichtZuWorddokument()

Diese Funktion übergibt den aktuellen Bericht nach Word. Je nach Aufruf kann in die Funktion ein Berichtsname übergeben werden oder es wird der aktive Bericht ausgewählt. Vorrang hat der aktive Bericht. Wird kein Bericht gefunden wird die Funktion verlassen.

BeziehungAuslesen()

Diese VBA-Funktion liest alle in der Access-Datenbank definierten Tabellenbeziehungen aus und zeigt diese inkl. interner Access-ID im Direktfenster an.

BriefAnrede()

Diese Funktion setzt aus "Anrede", "Titel" und "Nachname" die korrekte Brief-Anrede zusammen und gibt diese zurück. Zusätzlich kann in die Funktion die Sprache mit übergeben werden. Aktuell stehen in der Funktion "deu" für deutsch und "eng" für englisch zur Verfügung.

CleanPfadString()

Wandelt den mitgegebenen String so um, dass er für einen Verzeichnisnamen verwendet werden kann.

CleanString()

Wandelt Leerzeichen in "_" um, "Ã" in "Ae", "Ã–" in "Oe", "Ü" in "Ue", "ä" in "ae", "ö" in "oe", "ü" in "ue" und "ß" in "ss"

ComputerName()

Gibt den Netzwerknamen des Rechners zurück.

CurrentDBPath()

Auslesen des Verzeichnisses der aktuellen Datenbank.

DateiDa()

Mit dem Befehl "Dir" lässt sich schnell und einfach feststellen, ob eine bestimmte Datei auf der Festplatte vorhanden ist. Die Funktion gibt True zurück, wenn die Datei vorhanden ist und False, wenn sie fehlt. Als Parameter wird der Dateiname plus Verzeichnis übergeben.

DateiDatumAuslesen()

Funktion zum Auslesen von Datei-Datumswerten. Durch die "Art" können 3 Datumswerte unterschieden werden: 1 = Datum der letzten Modifikation 2 = Datum des letzten Zugriffs 3 = Datum der Erstellung

DateiGesperrt()

Diese Funktion prüft, ob die mitgegebene Datei zur Bearbeitung freigegeben oder gesperrt ist. Eine Sperre kann z.B. durch einen Dateischreibschutz aktiv sein oder dadurch, dass die Datei geöffnet ist. Die Funktion gibt TRUE zurück, wenn die Datei gesperrt ist und FALSE, wenn Sie zur Bearbeitung frei ist.

DateiLoeschen()

Diese Funktion löscht die mitgegebene Datei. Vor dem Löschen wird per MsgBox gefragt, ob die Datei gelöscht werden soll. Die Funktion gibt True zurück, wenn die Datei gelöscht wurde bzw. False, wenn beim Löschen ein Fehler aufgetreten ist.

DateiVorhanden()

Diese Funktion gibt True zurück, wenn sich die angegebene Datei auf der Festplatte befindet.

DatenbankLaufwerk()

Mit dieser Funktion kann der Laufwerksbuchstabe des Laufwerks ermittelt werden, auf dem sich die geöffnete Datenbank befindet.

DatenbankName()

Auslesen des Namens der aktiven Datenbank.

DatenbankPfad()

Auslesen des Pfades der aktiven Datenbank.

DatensatzKopieren()

Die nachfolgende Funktion kopiert einen Datensatz Feld für Feld aus einer Tabelle in eine andere Tabelle (gleiche Tabellenstruktur vorausgesetzt). Beim Angeben der Empfangstabelle kann auch die Ursprungstabelle angegeben werden.

DatensatzNachText()

Diese Funktion liest den per ID angegebenen Datensatz aus der angegebenen Abfrage aus und gibt ihn als Liste formatiert mit Feldnamen und Feldwerten zurück. Zusätzlich wird die Unterfunktion "StringAuffuellen()" von http://www.access-home.de benötigt.

DatumSQL()

Diese Funktion wandelt ein Datum in ein SQL-Datum um.

DBErstellen()

Anlegen einer neuen und leeren Access-Datenbank. Vor dem Anlegen wird geprüft, ob die Datenbank bereits vorhanden ist.

DBGestartet()

Diese Funktion prüft, ob die aktuelle DB auf diesem Computer bereits gestartet ist. Speziell bei Datenbanken, die automatisch gestartet werden, ist es mitunter sinnvoll zu prüfen, ob die Datenbank ggf. noch gestartet ist. Sollte die DB bereits gestartet sein, wird "Wahr" zurückgegeben, ist die DB nur einmal geöffnet (die aktuelle Version), wird "Falsch" zurückgegeben.

DBKomprimieren()

Funktion, die die mitgegebene Datenbank komprimiert. Zusätzlich wird die Funktion "DateiDa()" von http://www.access-home.de benötigt.

DeleteLinkTable()

Mit dieser Funktion werden alle eingebundenen Tabellen gelöscht.

DocStart()

Diese Funktion öffnet das in der Variablen "DocPfad" über gegebene Dokument. Es können nur Dokumente aufgerufen werden, die auch im Windows Explorer registriert sind.

ErsterBSTGross()

Diese Funktion formatiert den ersten Buchstaben eines String in Großbuchstaben und den Rest des Strings in Kleinbuchstaben. Die Funktion eignet sich ideal zum Korrigieren von z.B. Namen.

ErsterCDBuchstabe()

Diese Funktion gibt den ersten gefundenen Laufwerksbuchstabe eines CD-ROMs zurück.

ErsterTagDerWoche()

Diese Funktion ermittelt das Datum, an dem der erste Montag der Woche liegt.

ErsterTagDesMonats()

Diese Funktion ermittelt das Datum des ersten Tages im Monat.

ExtDbKomp()

Diese Funktion komprimiert eine externe Access-Datenbank. Zur Sicherheit kann mit dem Schalter "Kopie" vor dem Komprimieren eine Sicherungskopie der Datenbank angelegt werden. Eine evtl. vorhandene Sicherungskopie wird dabei überschrieben. Die Funktion liefert True zurück, wenn die Datenbank ordnungsgemäß komprimiert wurde. Bei einem Fehler wird False zurückgegeben.

FelderAuslesen()

Zum Auslesen aller Felder einer Tabelle.

FeldtypErmitteln()

Diese Funktion liest zur mitgegebenen Tabelle und zum mitgegebenen Feld den Datentyp aus und gibt diesen zurück. Zusätzlich kann über das Feld "Art" die Art des Rückgabewertes angegeben werden. Art="Text" gibt als Rückgabe den Datentyp im Klartext zurück. Für diese Funktion muss ein Verweis auf "Microsoft DAO Object Library" aktiviert werden.

FensterMaxi()

In Verbindung mit der API-Deklaration dient die Funktion dazu, das Access-Fenster zu maximieren. So lässt sich z.B. beim Start einer DB das Access-Fenster maximieren.

FensterMini()

In Verbindung mit der API-Deklaration dient die Funktion dazu, das Access-Fenster zu minimieren. So lässt sich z.B. beim Start einer DB das Access-Fenster minimieren.

FensterWiederherstellen()

In Verbindung mit der API-Deklaration dient die Funktion dazu, das Access-Fenster wiederherzustellen. So lässt sich z.B. beim Start einer DB das Access-Fenster wiederherstellen.

FormularEigenschaftenAusgeben()

Eine Funktion, die verschiedene Eigenschaften für alle Formulare im Direktfenster ausgibt. Einige der möglichen Eigenschaften sind z.B. Menüleiste, Kontextmenü, Kontextmenüleiste, Zyklus. Die Funktion lässt sich problemlos um weitere Eigenschaften erweitern.

FormularGeladen()

Mit dieser Funktion kann man ermitteln, ob ein bestimmtes Accessformular geöffnet ist.

IsReplikat()

Mit der Funktion "IsReplikat()" lässt sich per VBA feststellen, ob es sich bei der angegebenen Datenbank um ein Replikat handelt oder nicht.

IsRunningExcel()

Diese Funktion prüft, ob Microsoft Excel geladen bzw. geöffnet ist. Hinweis: Es muss ein Verweis zur Microsoft Excel Object Library gesetzt werden

IsRunningOutlook()

Diese Funktion prüft, ob Microsoft Outlook geladen bzw. geöffnet ist. Hinweis: Es muss ein Verweis zur Microsoft Outlook Object Library gesetzt werden

IsRunningPowerPoint()

Diese Funktion prüft, ob Microsoft PowerPoint geladen bzw. geöffnet ist. Hinweis: Es muss ein Verweis zur Microsoft PowerPoint Object Library gesetzt werden.

IsRunningWord()

Diese Funktion prüft, ob Microsoft Word geladen bzw. geöffnet ist. Hinweis: Es muss ein Verweis zur Microsoft Word Object Library gesetzt werden

IstMDE()

Funktion die testet, ob es sich bei dem angegebenen Datenbank-Objekt, um eine MDE handelt. Ist die DB eine MDE, wird True zurückgegeben, ansonsten False.

KillSpace()

Diese Funktion ist zum Löschen aller Leerzeichen innerhalb des mitgegebenen Strings.

KombiAktualisierung()

Mit dieser Funktion lässt sich eine Aktualisierung von Kombinationsfeldern problemlos über das Ereignis "Beim Hingehen" durchführen. Sie müssen dazu nur die Funktion in ein Modul kopieren, um im Kombinations- oder Listfeld im Ereignis "Beim Hingehen" folgenden Aufruf einfügen: =KombiAktualisierung(). So wird jedes mal, wenn das Steuerelement den Focus erhält, automatisch eine Aktualisierung der D…

LDBVorhanden()

Diese Funktion prüft ob, für die angegebene DB eine LDB vorhanden, die DB also im Zugriff ist. Die Funktion gibt beim Vorhandensein einer LDB "True" zurück, ansonsten "False".

LetzterTagDesMonats()

Diese Funktion ermittelt das Datum des letzten Tages im Monat.

LetzterTagImMonat()

Diese Funktion gibt den letzten Tag eines Monats, für das angegeben Datum zurück.

LetzterWochentag()

Die Funktion liefert das Datum des letzten Wochentages zum angegebenen Datum. Wird z.B. der "16.05.2022" in die Funktion übergeben, gibt die Funktion Sonntag, den "20.05.2022" zurück.

LieferDatum()

Mit einer einfachen Funktion lässt sich das Lieferdatum einer Ware per VBA errechnen. Das Beispiel geht davon aus, dass abhängig eines Bestelldatums X Tage bis zur Auslieferung vergehen und der Liefertag nicht auf einen Samstag oder Sonntag fallen darf.

LinienStärkeÄndern()

Diese Funktion ändert die Linienstärken aller Linien eines Berichtes. Zum Ändern der Stärke wird der Bericht im Entwurf geöffnet, alle Controls des Berichtes durchlaufen und gefundene Linien in die angegebene Stärke geändert. Nach dem Durchlaufen aller Controls wird der Bericht gespeichert und wieder geschlossen. Durch das Abschalten der Bildschirmanzeige (per "Application.Echo False") werden die…

LWAuslesen()

Diese Funktion liest die Laufwerksbuchstaben des lokalen Rechners aus und gibt diese als String für ein Kombinationsfeld zurück.

MinutenNachStunden()

Die Funktion rechnet eine Minutenzahl in Stunden und Minuten um und gibt diese formatiert zurück. Die Funktion gibt ein Minus-Vorzeichen der Minuten an den Rückgabewert weiter.

MinutenUmformatieren()

Die Funktion rechnet eine Minutenzahl in eine Zeit um. Die Rückgabe wird als String zurückgeben! Werden keine Minuten übergeben, wird "--:--" als Ergebnis zurückgegeben. Beim Umrechnen wird das Vorzeichen beachtet! Zudem kann die zurückgegebene Zeit per optionalem Schalter xDez in Industrie-Minuten umgerechnet werden.

MonitorAufloesung()

Auslesen der aktuell eingestellten Monitorauflösung.

NurBuchstaben()

Diese Funktion wandelt den mitgegebenen String so um, dass nur noch Buchstaben enthalten sind.

NurZahlen()

Wandelt den mitgegebenen String so um, dass nur noch Zahlen enthalten sind.

ObjektAnzahl()

Diese Funktion gibt die Anzahl der einzelnen Access-Objekte im Direktfenster aus.

OutlookMailEinfach()

Diese VBA-Funktion öffnet eine leere Email in Outlook. Die Funktion arbeitet mittels -Late-Binding- was das aktivieren der Outlook-Bibliothek nicht erfordert

ParameterAuslesen()

Die Nachfolgende Funktion gibt alle Parameter der mitgegeben Abfrage im Direktfenster aus. Oft sind in einer Abfrage mehrere Parameter angegeben mit zum Teil sehr langen Verweisen auf Formularfelder. Mit der Funktion lassen sich diese Parameter zur Fehlersuche schnell und unproblematisch auslesen und kontrollieren.

PfadTesten()

Die Funktion testet, ob das mitgegebene Verzeichnis vorhanden ist und gibt True zurück. Ist das Verzeichnis nicht vorhanden wird False zurückgegeben.

PfadUndName()

Diese Funktion trennt den mitgegebenen Pfad vom Dateinamen und gibt je nach Parameter den Pfad oder den Dateinamen zurück. Parameter: ' Name: um den Dateinamen zurück zu geben ' Pfad: um den Pfad zurück zu geben

PlattenPlatzPruefen()

Die nachfolgende VBA-Funktion prüft ein beliebiges Laufwerk auf Speicherplatz, der zum Beispiel für eine Installation benötigt wird. In die Funktion wird der Laufwerksbuchstabe als String, sowie der benötigte Plattenplan in KB übergeben. Die Funktion gibt TRUE zurück wenn der benötigte Platz vorhanden ist, FALSE, wenn der Platz nicht ausreicht.

PlayWav()

Zum Abspielen einer beliebigen WAV-Sound-Datei, innerhalb von Access.

RangSetzen()

Die Funktion setzt einen Rankingzähler in der mit übergebenen Tabelle für das mitgegebene Sortierfeld.

RundenZweiStellen()

Eine Funktion die die mitgegebene Zahl auf 2 Nachkommastellen rundet und über die Funktion wieder zurückgibt.

SecNachZeit()

Die Funktion rechnet eine Sekundenzahl in Stunden, Minuten, Sekunden und Hundertstel um. Wird z.B. 33153,9 in die Funktion übergeben, wird 09:12:33,90 zurückgegeben.

SortierungAuslesen()

Diese Funktion liest vom mitgegebenen SQL-String die Sortierung aus und gibt sie zurück.

SpaltePruefen()

Die Funktion prüft, ob die angegebene Spalte in der angegebenen Tabelle oder Abfrage vorhanden ist.

StandardName()

Diese Funktion gibt aus den Daten von Anrede, Vorname und Nachname immer eine gültige Kombination zurück, auch wenn Werte fehlen.

StartWinExplorer()

Mit der Funktion StartWinExplorer() lässt sich der Windows-Explorer aus Access heraus starten und mit einem bestimmten Verzeichnis öffnen. Mit der zusätzlichen Funktion "PfadTesten()" wird vor dem Start geprüft, ob das Verzeichnis vorhanden ist. Die Funktion "PfadTesten()" finden Sie im Funktionsverzeichnis auf http://www.access-home.de.

StringAuffuellen()

Diese Funktion füllt den mitgegebenen String mit dem mitgegebenen Füllzeichen auf die angegebene Länge auf. Wird z.B. der String "Name" mit den Füllzeichen "~" und einer Länge 15 übergeben, liefert die Funktion folgendes Ergebnis zurück: "Name~~~~~~~~~~~" Wird "StrWert" leer übergeben wird nur das Füllzeichen in der angegeben Länge zurückgegeben.

SuchenErsetzen()

Mit der Funktion "SuchenErsetzen()" kann man in einem String nach einer Zeichenfolge suchen und sie ersetzen. Die Funktion liefert als Ergebnis "Fehler" zurück, wenn NULL oder eine leere Zeichenfolge als Suchstring übergeben wird und wenn die zu suchende Zeichenfolge in der Zeichenfolge zum Ersetzen enthalten ist.

SystemDir()

Diese Funktion gibt den Pfad zum Systemverzeichnis zurück.

SystemMessage()

Aufruf einer Windows-Systemmeldung per API-Aufruf aus Access heraus.

TabelleDa()

Funktion, die überprüft, ob auf eine Tabelle zugegriffen werden kann oder nicht. Die Funktion gibt "True" zurück, wenn die Tabelle vorhanden ist, oder "False", wenn sie fehlt.

TabellenHerkunftsDB()

Funktion, die für eingebundene Tabellen die Herkunftsdatenbank zurückgibt.

TabellenUmbenennen()

Diese Funktion benennt alle Tabellen um und setzt die mitgegebene Kennung vor den aktuellen Tabellennamen. Die Anzahl der umbenannten Tabellen wird aus der Funktion zurückgegeben.

TestTabelleGenerieren()

Die Funktion "TestTabelleGenerieren()" generiert automatisch eine Tabelle und füllt diese mit Testdaten. Die Variable "TabNam" übergibt den Tabellennamen der zu erstellenden Tabelle an die Funktion. Über die Variable "AnzDat" kann die Anzahl der Datensätze angegeben werden. Die Funktion geht davon aus, dass sich ein Verzeichnis "C:Windows" auf dem Rechner befindet. Aus dem Windows-Verzeichnis wer…

TextExport()

Mit dieser VBA-Funktion lassen sich Daten in eine Textdatei exportieren. Die Funktion ersetzt dabei die Standard-Access-Funktion "DoCmd.TransferText".

TextNachWord()

Hier eine Funktion um einen beliebigen Text von Access nach Word zu kopieren.

TextSperren()

Diese Funktion gibt den mitgegebenen String als gesperrten Text zurück, z.B.: "Wasserfall" --> "W a s s e r f a l l"

TextUmdrehen()

Diese Funktion dreht den mitgegebenen String um und gibt ihn zurück.

TippTextAuslesen()

Auslesen aller Steuerelement-Tipptexte des angegebenen Formulars und Rückgabe über das Direktfenster. Es werden nur die Steuerelemente zurückgegeben, in denen tatsächlich ein Tipptext hinterlegt ist.

TrennzeichenTeilstring()

Die Funktion gibt den X-ten Teilstring eines mit Trennzeichen separierten Strings zurück.

TrimSpaces()

Entfernt alle Leerzeichen aus einem String

VBAModuleExportieren()

Die Funktion exportiert alle vorhandenen Module in externe Textdateien. Zum Export der Dateien wird das Datenbankverzeichnis verwendet. Die Funktion benötigt zusätzlich die VBA-Funktion "PfadUndName()", die auch auf Access-Home.de zur Verfügung steht.

VerweiseTesten()

Diese Funktion überprüft, ob die Verweise der Datenbank noch ok sind. Die Ausgabe der Verweisinformationen erfolgt im Direktfenster. Wenn man die Funktion etwas umgestaltet, kann man beim Start einer Datenbank testen, ob alle benötigten Verweise vorhanden sind.

WartenSekunden()

Diese Funktion hält die Verarbeitung für X Sekunden an. X wird über das rufende Programm definiert.

WindowsDir()

Zurückgeben des Windows-Verzeichnisses.

WwwStringChecken()

Diese Funktion wandelt den mitgegebenen String in eine HTTP-Adresse um.

ZeichenLang()

Diese Funktion gibt das angegebene Zeichen als String in der angegebenen Länge zurück. Die Funktion kann z.B. genutzt werden, um Textlinien mit Bindestrichen zu generieren.

ZeitenGenerieren()

Die Funktion gibt alle Zeiten zwischen 00:00:00 und 23:59:59 im Ein-Minuten-Abstand im Direktfenster aus.

ZeitNachMinuten()

Uhrzeit in Minuten umrechnen. In die Funktion wird eine Uhrzeit übergeben. Als Rückgabewert wird die Anzahl der Minuten zur Uhrzeit berechnet und zurückgegeben. Übergebene Sekunden werden ignoriert. Wird "03:12" oder "03:12:23" in die Funktion übergeben, wird 192 zurückgegeben.

ZeitNachMinuten()

Umrechnen einer Zeit in Minuten. Sekunden werden ignoriert!

ZeitNachSec()

Die Funktion rechnet eine Zeitangabe, die im Format "09:12:33,90" übergeben wird, in eine Sekundenzahl um. Wird z.B. "09:12:33,90 in die Funktion übergeben, wird 33153,9 zurückgegeben.

ZeitSQL()

Diese Funktion wandelt eine Zeit in eine SQL-Zeit um.

ZufallsInteger()

Gibt eine Zufallszahl im angegebenen Bericht (Unten, Oben) zurück

ZufallsPasswort()

Diese Funktion generiert einen Passwort-String in der angegebenen Wortlänge. Beim Generieren werden Sonderzeichen, Zahlen, Großbuchstaben und Kleinbuchstaben verwendet. Wird SonderZ=False an die Funktion übergeben, werden für das Passwort keine Sonderzeichen verwendet.

ZufallsText1()

Generiert in der angegebenen Länge einen Zufallsstring. Es werden nur Buchstaben verwendet. Auch die Länge des zurückgegebenen Strings wird zufällig definiert, überschreitet aber nicht die angegebene Länge.

ZufallsText2()

Gibt einen Zufallstext exakt in der angegebenen Länge zurück. Diese VBA-Funktion benötigt zusätzlich die Funktion ZufallsInteger(), die auch auf www.access-home.de zu finden ist.

ZwischenDat()

Diese Funktion prüft, ob das "xPrüfDat" zwischen den Datumswerten von "xDat1" und "xDat2" liegt. Wenn ja, wird True zurückgegeben, ansonsten False.