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