J
|
Jane 3/13/2007 |
Hans, Function BeforeEdit(dict, where) 'select History field from database str = "select * from " & strTableName & " where " & where Set rsTemp = server.CreateObject("ADODB.Recordset") rsTemp.open str, dbConnection Dim NewCom NewCom = Dict("Communicatieveld") Dim ConcatCom ConcatCom = rsTemp("Historie") & vbCrLf & vbCrLf & now & vbCrLf & NewCom rsTemp.Close : set rsTemp = Nothing 'update History field in the database strUpdate = "update " & strTableName & " set Historie='" & ConcatCom & "' where " & where dbConnection.Execute strUpdate BeforeEdit = True End Function |
Z
|
zion4ever author 3/13/2007 |
Hans, you can't use dict("FieldName") variable on the Before record updated event if FieldName is readonly on the Edit page. I recommend you to use following code:
|
Z
|
zion4ever author 3/13/2007 |
Hans, you can't use dict("FieldName") variable on the Before record updated event if FieldName is readonly on the Edit page. I recommend you to use following code:
|
Z
|
zion4ever author 3/13/2007 |
Okay, |
J
|
Jane 3/13/2007 |
Hans, |