Access Blog

Umrechnung Minuten/Sekunden in Zeitangabe

Andreas Vogt — Thu, 24 May 2012 07:40:40 +0000

Konvertierungsfunktionen wie Minuten oder Sekunden in Zeitangabe zu konvertieren. sollte an und für sich kein Problem sein. Wenn die Rechenarithmetik von Access uns keinen Strich durch die Rechnung machen würde. Angenommen man hat 400 Minuten und teilt diese durch 60 und weisst das Ergebnis einer Long-Variablen zu, um die Stunden zu erhalten: 400/60 = 6.66666667. Dieses einem Long-Wert zugeordnet ergibt aber 7!
Ein Trick ist die Teilung mit einem Backslash, also 400\60. Diese Division gibt immer die Zahl vor dem Komma zurück, Nachkommastellen werden einfach abgeschnitten.

Fangen wir mal mit den Funktionen an. Diese am besten in einem Modul plazieren:

Public Function ConvertMintoTime(varM As Long)
    Dim hours As Long
    Dim minutes As Long

    hours = varM \ 60
    minutes = varM - hours * 60
    
    ConvertMintoTime = Format(hours, "00") & Format(minutes, "\:00") & ":00"
End Function

Public Function ConvertSectoTime(varS As Long)
    Dim hours As Long
    Dim minutes As Long
    Dim seconds As Long

    hours = varS \ 3600
    minutes = (varS - hours * 3600) \ 60
    seconds = varS - hours * 3600 - minutes * 60
    
    ConvertSectoTime = Format(hours, "00") & Format(minutes, "\:00") & Format(seconds, "\:00")
End Function

In der ersten Funktion werden die Minuten durch 60 geteilt um die Stunden zu erhalten. Im zweiten Schritt wird die Differenz zwischen den Minuten und den Stunden x 60 ermittelt, um die Minuten zuerhalten, was letztendlich nichts anderes als der Rest der ersten Division ist.

In der zweiten Funktion haben wir Sekunden, daher teilen wir durch 3600 für die Stunden. der Rest dieser Division wird dann durch 60 geteilt für die Minuten, und der letzte Rest bildet dann die Sekunden ab.
Per Format() Funktion wird die Ausgabe der Funktion aufbereitet.

Der Aufruf kann z.B. aus einem Formular oder anderen Modul erfolgen, da die Funktionen den Gültigkeitsbereich Public besitzen. Dieser könnte z.B. so aussehen:

Sub test()
    Dim t As Long
    t = 4000

    MsgBox t & " Sekunden sind Umgerechnet: " & ConvertSectoTime(t)
    MsgBox t & " Minuten sind Umgerechnet: " & ConvertMintoTime(t)
End Sub

Das wars schon, also eigentlich bis auf den Fallstrick mit dem Teil-Strich nichts besonderes.

Bis dahin
Andreas Vogt © 2012

BCD-Code erleichtert die Auswahl von Entitäten

Andreas Vogt — Sun, 15 Apr 2012 19:25:45 +0000

BCD-Code ist vielen sicherlich noch von früher aus dem Informatikuntericht bekannt. Ich kam damit das erste mal während meiner Ausbildung duch BCD-Codierschalter in Berührung. Beim BCD-Code wird jede Ziffer einer Dezimalzahl einzeln dualkodiert. BCD-Code wird auch 8-4-2-1 Code genannt, weil die zweierpotenzen diese Ziffern ergeben. Damit lässt sich jede Ganzzahl darstellen.

Beispiel: 14: 8+4+2 oder 22: 16+4+2 usw.

Wie nützt uns jetzt dies bei Access? Der Aufbau des Codes hat auch einen zusätzlichen Effekt. Und zwar ist jede Zahl im Code (1, 2, 4, 8, 16….) größer als die Summe aller darunter liegender Zahlen, und zwar immer genau um 1 größer. Beispiel: 64 > 32+16+8+4+2+1.

Wenn man jetzt einen Enum Definiert dann nicht mehr mit 1, 2, 3…. sondern mit 1, 2, 4…

Ich glaub ich mach jetzt am besten erst mal ein Beispiel:

Option Explicit

Private Enum eAuswahl
    vbArbeiter = 1
    vbAngestellte = 2
    vbTechniker = 4
    vbführungskräfte = 8
    vbBerater = 16
    vbAlle = 32
End Enum

...
Weiter lesen: "BCD-Code erleichtert die Auswahl von Entitäten"

Bis dahin
Andreas Vogt ©2012

Kodieren und Dekodieren von Texten

Andreas Vogt — Sun, 08 Apr 2012 09:42:48 +0000

Kürzlich bin ich auf eine relativ alte Methode wieder gestoßen um Texte zu kodieren. Dabei verschiebt man einfach die Buchstaben im Wort um eine definierte Anzahl stellen. Ein bekannter Vertreter dieser Art ist Rot13. (Rotate by 13). Solche Kodierer haben den Vorteil dass sie erstens wieder dekodiert werden können – was gleichzeitig aber auch ihr Nachteil in Bezug auf Sicherheit ist – und zweitens dass es bekannte Algorithmen in verschiedenen Programmiersprachen gibt. Teilweise findet man auch im internet Online-Tools die Texte kodieren bzw. dekodieren können.
Dies sollte man wissen wenn man Text-Daten in einer Tabelle verschlüsseln möchte. Jeder der die Kodierungsmethode herausfindet kann es auch wieder lesbar machen.

Um hier ein wenig Sicherheit hineinzubringen sollte man den Kodier-Algorithmus nach eigenen Vorgaben anpassen. Über Ostern hatte ich wohl ein bisschen Zeit, und hab da mal etwas gebastel.
Meine Idee war kein fester Verschiebefaktor vorzugeben, sondern in Ahhängigkeit der Stelle eines Buchstabens im Wort vergrößerten Faktur. Also der erste Buchstabe um z.B. 15 verschieben, den zweiten um 15 usw., und beim nächsten Wort wieder bei 15 anfangen. Ich nenne diesen Algorithmus mal Rot15plus.
...
Weiter lesen: "Kodieren und Dekodieren von Texten"

Bis dahin
Andreas Vogt ©2012

Rückruffunktionen (Callback Functions) in Access anwenden

Andreas Vogt — Fri, 06 Apr 2012 13:08:21 +0000

Hallo liebe Leser,
beim Schmökern in diversen Foren bin ich auf Rückruffunktionen gestoßen, die ich bislang selbst nicht einsetzte. Eine Rückruffunktion ist eine Funktion, die als Parameter einer anderen Prozedur übergeben wird. Die Rückruffunktion selbst kann auch eigene Parameter haben die auch übergeben werden. Dadurch kann man eine allgemeine Prozedur erstellen, deren Verhalten erst durch die übergebene Rückruffunktion bestimmt wird. Das Verhalten dieser allgemeinen Prozedur kann sich mit jedem Aufruf ändern.

Dadurch kann man eine Access-Anwendung erstellen, mit einer Art Programm-Schnittstelle – bei PHP Entwicklern auch als Hook bekannt – die später hinzugefügte Module nutzen können, um eigene Funktionen auszuführen. Dies bedeutet aber auch, dass eine vom Entwickler ungewollte Prozedur ausgeführt werden könnte die auch Schadcode enthalten kann. Man sollte den Einsatz nachfolgend vorgestellter Methode also genau planen.

Da beim Übergeben von Parametern Access nicht den Datentyp “Funktion” kennt, muss man da ein wenig tricksen. Statt dessen übergibt man den Funktionsname als String und den/die erforderlichen Parameter. Wie genau das geht zeigt nachfolgender Code.

Erstellen Sie zu erst ein Standardmodul. Beginnen wir anschließend mit der “neutralen” Prozedur.

Function apply_to(ByVal funktion As String, ByVal werte As Variant) AS Variant
    Dim ergebnis() As Variant
    Dim i As Long
    Dim e As Variant
    For i = LBound(werte) To UBound(werte)          'Schleife über alle Werte
        e = Eval(funktion & "(" & werte(i) & ")")   'rufe die Rückruffunktion mit Parameter auf
        ReDim Preserve ergebnis(i)                  'Wertebereich des Rückgabearrays erweitern
        ergebnis(i) = e                             'und hänge den Rückgabewert an das Array an.
    Next i
    apply_to = ergebnis
End Function

...
Weiter lesen: "Rückruffunktionen (Callback Functions) in Access anwenden"

Bis dahin
Andreas Vogt ©2012

Dateipfade im Griff

Andreas Vogt — Fri, 02 Mar 2012 10:57:35 +0000

Jeder hat sicherlich mal das Problem gehabt in seiner Access-Anwendung mit Dateipfaden klar zu kommen. Sei es der Pfad zu Bildquellen, oder zu externen Datenbanken.

Auf eine Idee dazu hat mich heute eine Frage im Access-o-Mania Forum gebracht, wobei ich spontan an CurrentdbC denken musste. Bei CurrentdbC wird ein Objekt über eine Property zugänglich gemacht, das gleiche geht ja auch mit einer String. darauf hab ich ein bisschen gebastelt und eine sehr brauchbare Lösung erarbeitet die ich euch nicht vorenthalten möchte.

Wie gewohnt erstellt man zuerst eine Tabelle wo die Pfade gespeichert werden:

Das Feld Pfad habe ich als Memo-Feld ausgeführt.
...
Weiter lesen: "Dateipfade im Griff"

Bis dahin
Andreas Vogt ©2012

Benutzerdefinierte Prozeduren mit eigener Intellisense

Andreas Vogt — Thu, 23 Feb 2012 13:44:33 +0000

Oft erstellt man Prozeduren wo man vordefinierte Parameter übergibt. Z.B. habe ich letztens eine Prozedur erstellt welche durch 2 Schaltflächen aufgerufen wird. Eine Schaltfläche für “vor” und eine für “zurück”. Der Parameter für die Richtung habe ich vorgegeben, 1 für vor, 2 für zurück.
Wissen Sie Wochen später wenn Sie diese Prozedur aufrufen welcher Wert was ist?
Wäre es nicht besser Sie hätten dafür eine Intellisense?

Nichts leichter als das. der nachfolgende Text und Code zeigt wie das geht:
Zuerst legen Sie dort wo die Prozedur existiert, also Modul oder Formular-Modul, im Deklarationsbereich einen Enum (Aufzählungsdatentyp) an der der Datentyp für den zu übergebenen Parameter darstellt.

Private Enum Richtung
    vor = 1
    zurück = 2
End Enum

...
Weiter lesen: "Benutzerdefinierte Prozeduren mit eigener Intellisense"

Bis dahin
Andreas Vogt ©2012

Access [basics] kostenlose Ausgabe mit Beispielen

Andreas Vogt — Thu, 23 Feb 2012 12:20:18 +0000

Hier lesen Sie die komplette Ausgabe 5/11 von Access [basics] mit Zugriff auf mehrere Beispieldatenbanken zum Herunterladen.
Hier die Themen:

Werte zu Kombinationsfeldern hinzufügen
Kombinationsfelder bieten meist Daten aus Lookup-Tabellen zur Auswahl an. Das bedeutet, dass Sie damit etwa die Anrede oder den Titel einer Person festlegen können, wobei Anreden und Titel in separaten Tabellen gespeichert sind. Das ist schon hilfreich. Noch praktischer wäre es allerdings, wenn Sie neue Einträge für die separaten Tabellen direkt über das Kombinationsfeld eintragen könnten. Wie dies funktioniert, zeigt dieser Artikel.

Aktionsabfragen per VBA ausführen
Aktionsabfragen lassen sich bequem mit der Entwurfsansicht für Abfragen zusammenstellen. Sie können damit Daten an Tabellen anfügen, bestehende Daten ändern oder löschen und sogar gleich die passende Tabelle zum Einfügen von Daten erstellen. Wie aber soll der Benutzer eine solche Abfrage aufrufen, ohne doppelt auf den entsprechenden Eintrag im Datenbankfenster oder im Navigationsbereich zu klicken? Dieser Artikel zeigt, wie Sie dies realisieren.

Daten per Kombinationsfeld auswählen und löschen
Wenn Sie den Benutzern Ihrer Datenbank die Gelegenheit bieten möchten, Datensätze gezielt zu löschen, lässt sich das ganz leicht etwa mit einem Kombinationsfeld und einer Schaltfläche erreichen. Mit dem Kombinationsfeld wählt der Benutzer den zu löschenden Datensatz aus und die Schaltfläche startet den eigentlichen Löschvorgang.

Daten in der Endlosansicht von Formularen anzeigen
Nicht immer soll ein Formular nur einen Datensatz gleichzeitig anzeigen. Manchmal wollen Sie dem Benutzer auch eine Liste mehrerer Datensätze einer Tabelle präsentieren. Dazu gibt es mehrere Möglichkeiten, zum Beispiel die Endlosansicht. Dieser Artikel zeigt Ihnen, wie Sie die Daten einer Tabelle übersichtlich in einem Formular darstellen.

Meldungsfenster anzeigen und auswerten
Das Meldungsfenster ist ein wichtiges und einfach zu bediendendes Element zur Interaktion mit dem Benutzer. Einfache Meldungsfenster zeigen einfach nur Meldungen an und werden durch einen Klick auf die OK-Schaltfläche wieder geschlossen. Sie können damit jedoch auch einfache Fragen stellen, die der Benutzer per Mausklick auf die unterschiedlichen Schaltflächen beantworten kann.

Hier der Link zur kostenlosen Ausgabe:
Access [basics] Ausgabe 5/11

Nur kurze Zeit: Gratis E-Book downloaden

Andreas Vogt — Sun, 18 Dec 2011 22:53:25 +0000

Zum 4. Advent gibt es das 4. und letzte Gratis-Ebook, diesmal etwas was vorallem die Datenbankentwickler freuen dürfte:

Datenbanken entwickeln mit
SQL Server 2008 (R2) Express

Ein gutes Buch! Sie bekommen, was Einsteiger benötigen:
» Viele Übungen und Insider-Tipps
» Hintergrundwissen und Konzepte
» Software zum sofortigen Loslegen

Download bis zum 26.12.2011:
http://advent.microsoft-press.de/?apid=60812

Service Pack 3 für Microsoft Access 2007

Andreas Vogt — Fri, 04 Nov 2011 10:35:50 +0000

Das Service Pack 3 (SP3) zur Microsoft Office-Suite 2007 und das SP3 zum Microsoft Office Language Pack 2007 enthalten die neuesten Updates für die Office-Suite 2007 und das Office Language Pack 2007. Diese Updates enthalten zwei Hauptkategorien von Korrekturen:

Bisher unveröffentlichte Korrekturen, die eigens für dieses Service Pack erstellt wurden. Zusätzlich zu allgemeinen Produktkorrekturen enthalten diese Verbesserungen der Stabilität, Leistung und Sicherheit.
Alle öffentlichen Updates, Sicherheitsupdates, kumulativen Updates und Hotfixes, die bis Ende September 2011 veröffentlicht wurden.

Da Office Service Packs kumulativ sind, ist es vor der Installation von Service Pack 3 nicht erforderlich, Service Pack 1 oder Service Pack 2 zu installieren. Service Pack 3 enthält alle Updates, die in Service Pack 1 und Service Pack 2 enthalten waren.

Zum Download: http://support.microsoft.com/kb/2526086

Download-Tipp: Interaktive Referenzhandbücher

Andreas Vogt — Tue, 07 Jun 2011 20:23:35 +0000

Ab sofort stellt Microsoft für Office 2010 interaktive Referenzhandbücher zum Download kostenlos bereit. Unter nachfolgendem Link findet sich eine Übersicht aller relevanten Downloads:

http://michloebatwork.wordpress.com/2011/05/11/update-zu-referenzhandbuchern-zu-office-2010/