![]() |
FlowFact - Entwicklungstools |
![]() |
Function | EMSK_AddFldArt(ByVal strEmskDsn As String, ByVal strFldArtDsn As String, _ |
strEmskDsn: Datensatznummer (DSN) der Eingabehilfe strFldArtDsn: Datensatznummer (DSN) der Feldart Rückgabewert: = True, wenn Feldart zur Eingabehilfe hinzugefügt werden konnte. Public Function EMSK_AddFldArt(ByVal strEmskDsn As String, ByVal strFldArtDsn As String, _ Optional ByVal blnPflichtfeld As Boolean, _ Optional ByVal intBackColor As Long, _ Optional ByVal strDefaultACL As String, _ Optional ByVal strFldArtOp_Filter As String) As Boolean Dim rsEmskDet As ADODB.Recordset Dim strSQL As String If strEmskDsn = "" Or strFldArtDsn = "" Then EMSK_AddFldArt = False Exit Function End If strSQL = "SELECT * FROM EmskDet " strSQL = strSQL & "WHERE Emsk_Dsn =" & m_oUtil.SqlUid(strEmskDsn) strSQL = strSQL & "AND FldArt_Dsn =" & m_oUtil.SqlUid(strFldArtDsn) Set rsEmskDet = m_oBase.FF_GetRecordset(strSQL) If rsEmskDet.EOF = True Then EMSK_AddFldArt = True rsEmskDet.AddNew rsEmskDet("DSN").value = m_oUtil.NewGUID() rsEmskDet("EMSK_DSN").value = m_oUtil.SqlStrNull(strEmskDsn) rsEmskDet("FLDART_DSN").value = m_oUtil.SqlStrNull(strFldArtDsn) rsEmskDet("DEFAULT_ACL").value = strDefaultACL rsEmskDet("PFLICHTFELD").value = IIf(blnPflichtfeld, 1, 0) rsEmskDet("BACKCOLOR").value = intBackColor rsEmskDet("FLDARTOP_FILTER").value = Mid(strFldArtOp_Filter, 1, 250) m_oBase.FF_UpdateRecordset rsEmskDet EMSK_AddFldArt = True Else EMSK_AddFldArt = False End If End Function |