![]() |
FlowFact - Entwicklungstools |
![]() |
Function | FldArtOp_Create(ByVal strFldArtOpBezeichnung As String, ByVal strFldArtDsn As String, _ |
strFldArtOpBezeichnung: Bezeichnung der Option strFldArtDsn: Die zur Option gehörige Feldart strWert: Zur Option zugeordneter Wert (kann leer bleiben) strKurz: Kürzel der Option als Abkürzung (kann leer bleiben) Rückgabewert: Datensatznummer (DSN) oder 'LEER' Public Function FldArtOp_Create(ByVal strFldArtOpBezeichnung As String, ByVal strFldArtDsn As String, _ Optional ByVal strWert As String = "", _ Optional ByVal strKurz As String = "", _ Optional ByVal blnDefaultwert As Boolean = False) As String Dim rsFldArtOp As ADODB.Recordset Dim strDsn As String Set rsFldArtOp = FldArtOp_New() rsFldArtOp("Bezeichnung").value = Mid(strFldArtOpBezeichnung, 1, 250) rsFldArtOp("Wert").value = Mid(strWert, 1, 30) rsFldArtOp("Kurz").value = Mid(strKurz, 1, 7) If strFldArtDsn = "" Then Err.Raise 601, "FldArtOp_Create", "FldArt_Dsn ist ein Pflichtfeld" End If rsFldArtOp("FldArt_Dsn").value = m_oUtil.SqlStrNull(strFldArtDsn) rsFldArtOp("Defaultwert").value = IIf(blnDefaultwert, 1, 0) strDsn = rsFldArtOp("DSN").value FldArtOp_Update rsFldArtOp FldArtOp_Create = strDsn End Function |