FlowFact - Entwicklungstools

zurück

Function - AD_FindDSNByPhoneEMail
Adresse über Telefonnummer bzw. EMail suchen

Die Verknüpfungen zwischen Telefonnummer <--> Adresse und EMail bzw. weitere EMail <--> Adresse werden automatisch beim Aufruf von AD_Update in der Tabelle TAPI gespeichert.
  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