Function | Sql_GetKennung(ByVal strTable As String, strDsn As String, Optional blnWithBlank As Boolean = True) As String |
---|---|
strTable: Tabellenname strDsn: Datensatznummer strFieldName: Kennung Public Function Sql_GetKennung(ByVal strTable As String, strDsn As String, Optional blnWithBlank As Boolean = True) As String Dim strResult As String strResult = Sql_GetField(strTable, strDsn, "Kennung") If blnWithBlank = False Then strResult = Replace(strResult, " ", "") End If Sql_GetKennung = strResult End Function |