FlowFact - Entwicklungstools

zurück

Sub - cmd_Ad_StdMkm_Click
Standard Merkmale für Adressen anzeigen

  Sub cmd_Ad_StdMkm_Click()  
 




Public Sub cmd_Ad_StdMkm_Click()
    Dim strCommaList As String
    Dim strBuffer As String
    Dim strDsn As String
    Dim strMsg As String

    strMsg = ""
    strMsg = strMsg & "Standard Merkmale für Adressen:" & vbCrLf

    '** Dsn-Liste ermitteln
    strCommaList = m_oFFDeveloper.AD_Merkmal_StdDsnCommaList()
    strBuffer = strCommaList
    While strBuffer <> ""
        strDsn = m_oFFDeveloper.oTools.StrList_DeleteFirst(strBuffer, ",")
        '** Merkmal-Namen zu Dsn ermitteln
        strMsg = strMsg & "Merkmal: " & m_oFFDeveloper.MKM_NameByDSNList(strDsn) & vbCrLf
    Wend

    strMsg = strMsg & vbCrLf
    strMsg = strMsg & vbCrLf
    strMsg = strMsg & "So geht es auch" & vbCrLf
    '** So geht's einfacher
    '** Alle Merkmalsnamen werden durch Kommas getrennt zurückgegeben
    strMsg = strMsg & "Merkmalliste: " & m_oFFDeveloper.MKM_NameByDSN(strCommaList) & vbCrLf

    MsgBox strMsg

End Sub