Access-Paradies im Internet

Die Excel-VBA-CD Vol. 1 - 1.000 Makros für die Praxis für Microsoft Excel 97-2003 - Profisuche nach Aufgaben und Befehlen - Vollversion des MS-Office-Forum Offline Readers mit über 500.000 Beiträgen, Antworten, Lösungen und Codebeispielen - Nur 24,95 EUR
 

  

::: Funktionen

 


Die Top Seite für Excel-VBA-Makros uvm.
Anwenderforum für Microsoft Office, Windows, VB
FAQ, kostenlose Tipps und Downloads zu Microsoft Office
Das große Visual-Basic Archiv
Access-Garhammer
Rainer's Archiv

::: Newsletter

 

Unser Newsletter informiert Sie topaktuell rund um alle Themen zu Microsoft Access, VBA usw.

 
  




::: ebay

 
1.000 Tage eBay Partnerprogramm - Volume II
 

39

 
  Kundenbereich -> Access-Home -> Selection-DB (Entwicklerversion)   



Kostenlose Tools und aktuelle News mit unserem monatlichen Access-Newsletter.
Jetzt eintragen!




von Günther Kramer

Mausrad im Formular abschalten

Der VBA-Code schaltet innerhalb eines Formulars das Mausrad ab



Mails senden, abrufen und decodieren - ganz easy ;-)

Das SMTP Control sendet, das POP3 Control empfängt und der Mail-Parser (Klassenobjekt) decodiert empfangene Mails im Handumdrehen - natürlich unter Berücksichtigung von Multi-Part MIME Nachrichten, Anlagen u.v.m.



Das Access-VBA Codebook

Neue Ausgabe!




Die VBA-Codesammlung, die bei keinem Entwickler
fehlen darf!

 
   
 
 
 

Selection-DB

Mit der "Selection-DB" und den enthaltenen VBA-Funktionen "WhereKlausel()" und ihrer Zusatzfunktionen "DatumSQL()" und "ZeitSQL()" ist es möglich mit beliebig eingegebene Werten eine Where-Klausel zu generieren und diese in Access weiterzuverwenden.

Das Ergebnis der Funktion "WhereKlausel()" kann auf die verschiedenste Weise in Access eingesetzt werden. Nachfolgend ein paar Beispiele:

  • Formularfilter und Berichtsfilter - Beim Öffnen von Formularen und Berichten kann das Ergebnis der Funktion übergeben werden um die Datensätze des zu öffnenden Formulars oder Berichts einzuschränken.
  • Domänenaggregatsfunktionen - Einige Domänenaggregatsfunktionen unterstützen als drittes Argument einen String der einer Where-Klausel entspricht. Auch hier kann die Funktion effizient eingesetzt werden.
  • VBA in der Recordsetdefinition - Beim Setzen von Recordsets kann innerhalb der SQL-Definition die aus der Funktion zurückgegebene Where-Klausel eingesetzt werden.
  • Listefelder und Kombinationsfelder - Durch das Ändern der Datenherkunft der Steuerelemente "Listfeld" und "Kombinationsfeld" kann auch hier die Datenherkunft gefiltert werden. (Hier muss allerdings mit zusätzlichen Funktionen die Datenherkunft angepasst werden).


Die Funktion kann mit folgenden Datentypen umgehen

  • str - Über den Datentyp "str" können alles beliebigen Werte selektiert werden.
    Bei der Selektion können Platzhalter verwendet werden.
  • int - Bei "int" können alle möglichen Zahlentypen selektiert werden.
  • dat - Der Typ "dat" ist zu selektieren von Datumsfelder.
    Über eine sepatare Funktion werden übergeben Datumswerte in ein SQL-Datum umgewandelt.
    tim - Der Typ "tim" ist zur Selektion von Zeitfeldern.
    Auch hier wird der eingegebene Zeitwert über eine Funktion in eine SQL-Zeit umgewandelt.
  • bol - Mit dem Datentyp "bol" können verschiedene boolsche Werte selektiert werden.


Mögliche Varianten der einzelnen Datentypen:

STR - Beispiele
  • a*a (aa, aBa, aBBBa)
  • *ab* (abc, AABB, Xab)
  • a[*]a (a*a)
  • ab* (abcdefg, abc)
  • a?a (aaa, a3a, aBa)
  • a#a (a0a, a1a, a2a)
  • Nicht Hugo
  • Nicht Ho?o*

INT - Beispiele

  • = 123
  • < 12
  • <= 234
  • >= 578
  • <> 1324
  • 12 - 24

DAT - Beispiele

  • = 21.05.1999
  • < 02.12.2000
  • <= 23.12.1999
  • >= 17.11.2000
  • <> 09.10.2000
  • 12.05.2000 - 20.06.2000
TIM - Beispiele
  • = 21:05
  • < 2:12
  • <= 23:12:19
  • >= 17:11:20
  • <> 10:34
  • 12:34-14:45

BOL - Beispiele

  • Ja und Nein
  • Wahr und Falsch
  • True und False
  • -1 und 0

 


Verwenden der Funktion in anderen Datenbanken:

Der Funktionsaufruf ist beliebig erweiterbar. Lediglich die Feldangaben und die Anzahl der Felder muss im Aufruf angepasst werden. Nachfolgend der Funktionsaufruf auf dem Startformular dieser Datenbank. Zunächst wird die Anzahl der Felder angegeben (12) Abwechselnd als String der Feldname, der Feldwert und die Feldart.


Ergebnis = WhereKlausel(12 , _
"[Feld1] ", sel1, "str", _
"[Feld2] ", sel2, "int", _
"[Feld3] ", sel3, "dat", _
"[Feld4] ", sel4, "str", _
"[Feld5] ", sel5, "int", _
"[Feld6] ", sel6, "dat", _
"[Feld7] ", Sel7, "tim", _
"[Feld8] ", Sel8, "tim", _
"[Feld9] ", Sel9, "bol", _
"[Feld10] ", Sel10, "bol", _
"[Feld11] ", Sel11, "bol", _
"[Feld12] ", Sel12, "bol")



Als Ergebnis der übergebenen Werte könnte folgendes Ergebnis aus der Funktion zurückgegeben werden:

([Feld1] LIKE 'Thomas') AND ([Feld2] =32) AND ([Feld3] =#5/14/1967#) AND ([Feld4] LIKE 'Garhammer') AND ([Feld5] >=11) AND ([Feld5] <=45) AND ([Feld6] >=#12/12/1999#) AND ([Feld6] <=#11/11/2000#) AND ([Feld7] =#12:34:00 PM#) AND ([Feld8] >=#23:00:00 PM#) AND ([Feld8] <=#23:45:45 PM#) AND ([Feld9] = -1) AND ([Feld10] = 0) AND ([Feld11] = -1) AND ([Feld12] = 0)

    Entwicklerversion
  Selection-DB (Access 97)
  Selection-DB (Access 2000)
  Selection-DB (Access XP)


Online-Bestellung
 
Wenn Sie diese Software noch nicht erworben haben, können Sie diesen Artikel bequem und sicher über den SSL-verschlüsselten Onlineshop bestellen.   [Jetzt bestellen ]
 
 
 
 

Access-Paradies © 1996-2011 Microsys Kramer


Microsoft, Access, Word, Excel, Outlook, Outlook Express, Visual Basic und Windows sind eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Weiterempfehlung  |   Linken Sie uns  |   Impressum  |   Newsletter  |   Onlineshop