Themen
Ergebnisse 1 - 17 von 17
|
MS-Access Bsp. DB's/Bsp. Downloads Datei und System
Autor:TommyK
Update 15.09.2010 Neu Fehlermeldungen für MS-Access 2010
Problemstellung:
Anzeige und Suche aller Fehlermeldungen von MS-Access
Voraussetzungen:
Das Bsp ist unter A97, A00, AXP, A03, A07 und A10 lauffähig.
Funktionsweise: Da alle...
|
|
MS-Access Codes/Codeschnipsel Strings
Autor:TommyK
Problemstellung:
Wie kann ich in einem String die Umlaute (ä, ö, ü und ß) konvertieren?
Public Function Umlaut(pString As String) As String '//******************************************************** '// Diese Funktion ersetzt in einem...
|
|
MS-Access Codes/Codeschnipsel Grafik
Autor:TommyK
Problemstellung:
Wie kann ich einen HEX-Farbwert in einen Long-Farbwert umrechnen?
Lösung: Folgende Funktion in ein öffentliches Modul kopieren:
Public Function Hex2Long( _ ByVal strHexColor As String) As Long Dim lngColor As...
|
|
MS-Access Codes/Codeschnipsel Grafik
Autor:TommyK
Problemstellung:
Wie kann ich einen Long-Farbwert in einen HEX-Farbwert umrechnen?
Lösung: Folgende Funktion in ein öffentliches Modul kopieren:
Public Type tRGB bytR As Byte bytG As Byte bytB As Byte End Type Public...
|
|
MS-Access Codes/Codeschnipsel Grafik
Autor:TommyK
Problemstellung:
Wie kann ich einen Long-Farbwert in RGB-Farbwerte umrechnen?
Lösung: Folgende Funktion in ein öffentliches Modul kopieren:
Public Enum eRGBParts rgbRed = 1 rgbGreen = 2 rgbBlue = 3 End Enum Public...
|
|
MS-Access Bsp. DB's/Bsp. Downloads Datum und Zeit
Autor:TommyK
Problemstellung:
Umrechnung von UNIX-Timestamp nach Datum und Zeit und umgekehrt.
Voraussetzungen:
Das Bsp ist unter A00-A07 lauffähig.
Funktionsweise:
Es sind 1 API-Funktion und 2 Funktionen erforderlich.
Der Modulkopf sieht so...
|
|
MS-Access Codes/Codeschnipsel Strings
Autor:TommyK
Problemstellung:
Wie kann ich einen String in Hex umwandeln?
Function StrToHex(S As Variant) As Variant ' ' einen String in hex umwandeln. ' sinnvoll bei ASCII sortierung in einer Abfrage. ' Dim Temp As String, i As Integer On...
|
|
MS-Access Codes/Codeschnipsel Sonstiges
Autor:TommyK
Problemstellung:
Manchmal kann es sehr aufwändig sein immer wieder die gleiche Messagebox zu programmieren um Sicherheitsabfrage einzubauen.
"Wollen Sie den Datensatz löschen?" "Soll das Formular geschlossen werden?" usw.
If...
|
|
MS-Access Codes/Codeschnipsel Zahlen
Autor:TommyK
Problemstellung:
Wie kann ich unter Access Abrunden?
Function RoundDown(NumberToRound As Double) As Integer RoundDown = Int(NumberToRound) End Function
Aufruf: Dim x As Long x = RoundDown(1317.4258)
Ergebnis: x = 1317...
|
|
MS-Access Codes/Codeschnipsel Zahlen
Autor:TommyK
Problemstellung:
Wie kann ich unter Access Aufrunden?
Function RoundUp(NumberToRound As Double) As Integer If NumberToRound = Int(NumberToRound) Then RoundUp = NumberToRound Else RoundUp = Int(NumberToRound +...
|
|
MS-Access Codes/Codeschnipsel Zahlen
Autor:TommyK
Problemstellung:
Wie kann ich unter Access beliebig Runden?
Function Round_New(Wert As Variant, Rundungszahl As Double) As Double Dim Res As Variant If IsNull(Wert) Then Exit Function Res = (Wert / Rundungszahl) ...
|
|
MS-Access Codes/Codeschnipsel Datum/Zeit
Autor:TommyK
Problemstellung:
Wie kann ich unter Access ein ZufallsDatum erzeugen?
1. Grundfunktion zum Erzeugen einer Zufallszahl
Public Function ZufallszahlAusgeben(lngUntergrenze As Long, lngObergrenze As Long) Randomize Timer ...
|
|
MS-Access Codes/Codeschnipsel Zahlen
Autor:TommyK
Problemstellung:
Wie kann ich eine Zufallszahl erzeugen?
Function ZufallszahlAusgeben(lngUntergrenze As Long, lngObergrenze As Long) Randomize Timer ZufallszahlAusgeben = Int((lngObergrenze - lngUntergrenze + 1) _ ...
|
|
MS-Access Codes/Codeschnipsel Zahlen
Autor:TommyK
Problemstellung:
Wie kann ich unter Access ganzzahlig Runden?
Function RoundInt(NumberToRound As Double) As Integer RoundInt = Int(NumberToRound + (NumberToRound - Int(NumberToRound) * 1)) End Function
Aufruf: Dim x As Long x =...
|
|
MS-Access Codes/Codeschnipsel Zahlen
Autor:TommyK
Problemstellung:
Wie kann ich unter Access mit bestimmen Anzahl von Dezimalstellen Runden?
Function RoundIt(NumberToRound As Double, DecimalPlace As Integer) As Double Dim Temp As Double Temp = Int((NumberToRound * (10 ^...
|
|
MS-Access Bsp. DB's/Bsp. Downloads Sicherheit
Autor:TommyK
Problemstellung:
Beispiel-DB für eine Userverwaltung mit verschlüsselten Passwörtern und verschiedenen Rechten
Voraussetzungen und benötigte Dateien:
Das Bsp ist unter A00, AXP, A03 lauffähig, unter A07 wurde es nicht...
|
|
MS-Access Bsp. DB's/Bsp. Downloads Sicherheit
Autor:TommyK
Problemstellung:
Beispiel-DB für eine Userverwaltung mit verschlüsselten Passwörtern und individuiellen verschlüsselten Formularrechten
Voraussetzungen:
Das Bsp ist unter A00, AXP, A03 lauffähig, unter A07 wurde...
|
Powered by AlphaContent 4.0.16 © 2005-2012 - All rights reserved
United States
Unknown
Unknown Bot
