The commit event procedure calls this function after putting the dynaset in
either Edit or AddNew mode. Update_Dynaset_Fields() sets the dynaset fields to
the values entered in the text boxes. The function returns TRUE if successful,
FALSE on an error.
Function UpdateDynasetFields() As Integer
'This function sets the dynaset field value to those
'entered in the text boxes. The function returns true
'on success, false on error.
ErrMsg = ""
On Error GoTo err_updatedynasetfields
EmpDynaset.Fields("empno").Value = txtEmpno
EmpDynaset.Fields("ename").Value = txtEname
EmpDynaset.Fields("job").Value = txtJob
EmpDynaset.Fields("mgr").Value = txtManager
EmpDynaset.Fields("hiredate").Value = txtHireDate
EmpDynaset.Fields("sal").Value = txtSal
EmpDynaset.Fields("comm").Value = txtComm
EmpDynaset.Fields("deptno").Value = txtDeptno
UpdateDynasetFields = True
Exit Function
err_updatedynasetfields:
If ErrMsg <> "" Then
MsgBox ErrMsg
Else
MsgBox Error$
End If
UpdateDynasetFields = False
