![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | test1() |
Public Sub test1() Dim rsObj As ADODB.Recordset Dim rsFldArt As ADODB.Recordset Dim strFldArtKuerzel As String Dim strWert As String Dim strFldArtDsn As String Dim strObjDsn As String '** 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 strFldArtKuerzel = "Kaufpreis" '** 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") '** Deatailwert setzen strObjDsn = rsObj("DSN") strWert = "€ 50.000,00" m_oFFDeveloper.oBase.Det_SetValue "OBJ", strObjDsn, strFldArtDsn, strWert '(ByVal strTable As String, ByVal strTableDsn As String, ByVal strFldArtDsn As String, strValue As String, Optional ByVal strAcl As String = STRNOTHING, Optional ByVal strLinkDsn As String = STRNOTHING) As Boolean 'm_oFFDeveloper.OBJ_Detail_Set strObjDsn, strFldArtDsn, strWert '** Objekt in FlowFact anzeigen m_oFFDeveloper.OBJ_ShowDSN strObjDsn End Sub |