![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | cmd_Obj_Fldart_Click() |
Public Sub cmd_Obj_Fldart_Click() Dim rsObj As ADODB.Recordset Dim rsFldArt As ADODB.Recordset Dim strInput As String Dim strFldArtKuerzel As String Dim strWert As String Dim strFldArtDsn As String Dim strObjDsn As String test1 Exit Sub '** Objekt mit der internen Bezeichnung 'TestHaus' suchen. Set rsObj = m_oFFDeveloper.OBJ_Find("Intern like 'TestHaus%'", "Angelegt DESC") If rsObj.EOF = True Then MsgBox "Kein 'TestHaus' gefunden. Bitte zuerst Objekt-Create ausführen." Exit Sub End If '** Eingabe strInput = InputBox("Bitte geben sie einen Wert in der Form: 'Feldartname=Wert' ein", "Details setzen", "Kaufpreis=150000") strFldArtKuerzel = Trim(m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, "=")) strWert = Trim(strInput) '** DSN der Feldart bestimmen Set rsFldArt = m_oFFDeveloper.FldArt_FindByName(strFldArtKuerzel) If rsFldArt.EOF = True Then MsgBox "Feldart '" & strFldArtKuerzel & "' nicht gefunden." Exit Sub End If strFldArtDsn = rsFldArt("DSN") '** Optionstypen ausschliessen If m_oFFDeveloper.FldArt_GetTyp(rsFldArt) = FLDARTTYP_OPTION Then MsgBox "Feldart-Optionen werden im nächsten Beispiel behandelt. Bitte wählen Sie eine andere Feldart." Exit Sub End If '** Deatailwert setzen strObjDsn = rsObj("DSN") m_oFFDeveloper.OBJ_Detail_Set strObjDsn, strFldArtDsn, strWert '** Objekt in FlowFact anzeigen m_oFFDeveloper.OBJ_ShowDSN strObjDsn End Sub |