![]() |
FlowFact - Entwicklungstools |
![]() |
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 |