FlowFact - Entwicklungstools

zurück

Sub - cmd_Ad_Create_Click
Adresse anlegen

Adresse in Datenbank anlegen und anschließend in Flowfact anzeigen
  Sub cmd_Ad_Create_Click()  
 




Public Sub cmd_Ad_Create_Click()
    Dim strInput As String
    Dim strItem As String
    Dim strFirma As String
    Dim strName As String
    Dim strStrasse As String
    Dim strPlz As String
    Dim strOrt As String
    Dim rs As ADODB.Recordset
    Dim strAdDsn As String
    Dim oPhoneList As Object 'FFDeveloper.clsPhoneList

    strInput = InputBox("Bitte geben Sie eine Adresse in der Form 'Fima,Name,Straße,Plz,Ort' ein.", "Adresse anlegen", "TestFirma,Dr. Harry Hirsch,Im Waldgrund 7,12345,Försterstadt")

    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strFirma = strItem
    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strName = strItem
    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strStrasse = strItem
    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strPlz = strItem
    strItem = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strOrt = strItem

    '** Adresse mit std. Merkmalen anlegen
    strAdDsn = m_oFFDeveloper.AD_Create(strFirma, strName, strStrasse, strPlz, strOrt, "Diese Adresse wurde automatisch angelegt." & vbCrLf & "Sie können diese Adresse problemlos löschen.")

    '** Adresse auswählen
    Set rs = m_oFFDeveloper.AD_FindByDSN(strAdDsn)

    '** Telefonnummern setzen
    Set oPhoneList = m_oFFDeveloper.AD_GetPhoneList(rs)
    oPhoneList.Clear
    oPhoneList.Add "0221", "90137-45", "privat"
    oPhoneList.Add "0179", "789789", "mobil"
    oPhoneList.Phone1(1) = "+49(221)"
    m_oFFDeveloper.AD_SetPhoneList rs, oPhoneList

    rs("Fax") = "(0221) 90137-11"
    rs("email") = "harry.hirsch@wald.de"

    '** WICHTIG! Nach Änderungen Update aufrufen
    m_oFFDeveloper.AD_Update rs

    '** Adresse in FlowFact anzeigen
    m_oFFDeveloper.AD_ShowDSN rs("DSN")
End Sub