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