FlowFact - Entwicklungstools

zurück

Sub - cmd_Ad_Find_Click
Adresse suchen

Adresse nach PLZ suchen und Telefonnummern anzeigen
  Sub cmd_Ad_Find_Click()  
 




Public Sub cmd_Ad_Find_Click()
    Dim rsAD As ADODB.Recordset
    Dim strInput As String
    Dim strWhere As String
    Dim strOrderBy As String
    Dim oPhoneList As Object 'FFDeveloper.clsPhoneList
    Dim strMsg As String
    Dim i As Long

    strOrderBy = "LAND_PLZ, IDX_Firma" 'nach dem Feld PLZ sortieren; innerhalb gleicher PLZ nach Firmennamen sortieren
    strInput = InputBox("Bitte geben Sie die ersten Stellen einer PLZ ein.", "Adresse suchen", "12")
    strWhere = "LAND_PLZ like '" & strInput & "%'"

    Set rsAD = m_oFFDeveloper.AD_Find(strWhere)
    If rsAD.EOF = False Then
        Set oPhoneList = m_oFFDeveloper.AD_GetPhoneList(rsAD)
        strMsg = ""
        For i = 1 To oPhoneList.Count
            strMsg = strMsg & "Phone1 = " & oPhoneList.Phone1(i) & "; Phone2 = " & oPhoneList.Phone2(i) & "; PhoneComment = " & oPhoneList.PhoneComment(i) & vbCrLf
        Next i

        If strMsg = "" Then
            MsgBox "Keine Telefonnummer in diesem Datensatz gespeichert"
        Else
            MsgBox strMsg
        End If
    Else
        MsgBox "Keinen Datensatz gefunden"
    End If

End Sub