Mit den folgenden Routinen lassen sich Umwandlungsfehler effektiv vermeiden. Dies ist sowohl beim Auslesen von Einstellungen mittels GetSettings, als auch beim Auslesen von Datenbankfeldern sehr nützlich. Sicher könnten Sie jetzt sagen: Visual-Basic liefert doch von Haus aus entsprechende Typen-Umwandlungsfunktionen, wie CStr, CLng, usw. ' Variable in Datentyp "String" umwandeln Public Function V2Str(vTemp As Variant, _ Optional Default As String) As String On Error Resume Next V2Str = CStr(vTemp) If Err.Number Then Err.Clear V2Str = Default End If End Function ' Variable in Datentyp "Boolean" umwandeln Public Function V2Bool(Value As Variant, _ Optional Default As Boolean) As Boolean On Local Error Resume Next V2Bool = CBool(Value) If Err.Number Then Err.Clear V2Bool = Default End If End Function ' Variable in Datentyp "Byte" umwandeln Public Function V2Byte(Value As Variant, _ Optional Default As Byte) As Byte On Local Error Resume Next V2Byte = CByte(Value) If Err.Number Then Err.Clear V2Byte = Default End If End Function ' Variable in Datentyp "Integer" umwandeln Public Function V2Int(Value As Variant, _ Optional Default As Integer) As Integer On Local Error Resume Next V2Int = CInt(Value) If Err.Number Then Err.Clear V2Int = Default End If End Function ' Variable in Datentyp "Long" umwandeln Public Function V2Lng(Value As Variant, _ Optional Default As Long) As Long On Local Error Resume Next V2Lng = CLng(Value) If Err.Number Then Err.Clear V2Lng = Default End If End Function ' Variable in Datentyp "Single" umwandeln Public Function V2Sng(Value As Variant, _ Optional Default As Single) As Single On Local Error Resume Next V2Sng = CSng(Value) If Err.Number Then Err.Clear V2Sng = Default End If End Function ' Variable in Datentyp "Double" umwandeln Public Function V2Dbl(Value As Variant, _ Optional Default As Double) As Double On Local Error Resume Next V2Dbl = CDbl(Value) If Err.Number Then Err.Clear V2Dbl = Default End If End Function ' Variable in Datentyp "Decimal" umwandeln Public Function V2Dec(Value As Variant) As Variant On Local Error Resume Next V2Dec = CDec(Value) If Err.Number Then Err.Clear V2Dec = CDec(0) End If End Function ' Variable in Datentyp "Currency" umwandeln Public Function V2Cur(Value As Variant, _ Optional Default As Currency) As Currency On Local Error Resume Next V2Cur = CCur(Value) If Err.Number Then Err.Clear V2Cur = Default End If End Function ' Variable in Datentyp "Date" umwandeln Public Function V2Date(Value As Variant, _ Optional Default As Date) As Date On Local Error Resume Next V2Date = CDate(Value) If Err.Number Then Err.Clear V2Date = Default End If End Function Anwendungsbeispiel: Dim sName as String Dim Rs as Recordset ' Datenbankinitialisierung ... sName = V2Str(Rs.Fields("Vorname").Value, "") ' oder sName = V2Str(Rs.Fields("Vorname").Value, "keine Angabe") Dieser Tipp wurde bereits 18.829 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder 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. |