![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AD_FindDSNByPhoneEMail(ByVal strPhoneEMail As String) As String |
strPhoneEMail: Telefonnummer ohne Sonderzeichen z.B. 02213909222 oder EMail z.B. info@flowfact.% Rückgabewert: Datensatznummer (DSN) der gefundenen Adresse oder 'LEER' Public Function AD_FindDSNByPhoneEMail(ByVal strPhoneEMail As String) As String Dim rs As ADODB.Recordset Set rs = m_oBase.FF_GetRecordset("SELECT Ad_Dsn FROM Tapi WHERE Nummer LIKE '" & strPhoneEMail & "' ORDER BY Dsn") If rs.EOF = True Then AD_FindDSNByPhoneEMail = "" Else AD_FindDSNByPhoneEMail = m_oUtil.k(rs("Ad_Dsn").value) End If End Function |