|
Function BeforeAdd(dict)
'
Parameters:
' dict - Scripting.Dictionary object.
'
Each field on the Add form represented as 'Field name'-'Field value' pair
'********** Insert a record into another table ************
strSQLInsert =
"insert into TableName (Field1, Field2) values (Value1, Value2)"
dbConnection.Execute strSQLInsert
BeforeAdd = True
' set BeforeAdd to True if you like to proceed with adding new record
' set it to False in other case
End
Function |
