Error: Write conflict

[Guest]

Hi, I am trying to save a record, it is temporarily saving to the database.
Hoever, when I am closing the form, I am getting a "Write confilict error
which reads as

This record has been changed by another user since you started editing it.
If you save the record it will overwrite the changes the other user made.
When I click Yes then it saves part of the record. The calculated field does
not get saved in the record. I have created the code in a 'Save' Onclick
button. Any help is appreciated.
Thanks,
THE CODE:
Dim Sum_Age_Group1 As Integer
Dim Sum_Popul_Group1 As Integer
Dim Sum_Race_Group1 As Integer
Sum_Age_Group1 = Nz([age00_04], 0) + Nz([age05_09], 0) + Nz([age10_12], 0)
+ Nz([age13_15], 0) + Nz([age16_18], 0) + Nz([age19_99], 0)
Sum_Popul_Group1 = Nz([popLawEnforce], 0) + Nz([popOtherCommMemb], 0) +
Nz([popSchoolPersonnel], 0) + Nz([popParents], 0) + Nz([popInSchool], 0) +
Nz([popNotInSchool], 0)
Sum_Race_Group1 = Nz([regAsian], 0) + Nz([regBlack], 0) +
Nz([regHispanic], 0) + Nz([regNatAmer], 0) + Nz([regWhite], 0)
If Not ((Sum_Age_Group1 = Sum_Popul_Group1) And (Sum_Popul_Group1 =
Sum_Race_Group1)) Then
MsgBox "You must have same total for each of the Age, Population and
Racial Group."
' Cancel = True
Else
Dim db As Database
Dim rst As Recordset
Dim sql As String
Set db = CurrentDb

sql = "SELECT tblEGADPrevEducation.IntID,
tblEGADPrevEducation.SubgrantIntID, tblEGADPrevEducation.SubgrantNumber,"
sql = sql & "tblEGADPrevEducation.Quarter,
tblEGADPrevEducation.SubmitDate,"
sql = sql & "tblEGADPrevEducation.TotalRecipients,
tblEGADPrevEducation.age00_04,"
sql = sql & "tblEGADPrevEducation.age05_09,
tblEGADPrevEducation.age10_12, tblEGADPrevEducation.age13_15,
tblEGADPrevEducation.age16_18,"
sql = sql & "tblEGADPrevEducation.age19_99,
tblEGADPrevEducation.SumCountByAge, tblEGADPrevEducation.popLawEnforce,
tblEGADPrevEducation.popOtherCommMemb,"
sql = sql & "tblEGADPrevEducation.popSchoolPersonnel,
tblEGADPrevEducation.popParents, tblEGADPrevEducation.popInSchool,"
sql = sql & "tblEGADPrevEducation.popNotInSchool,
tblEGADPrevEducation.SumCountByPopul, tblEGADPrevEducation.regAsian,"
sql = sql & "tblEGADPrevEducation.regBlack,
tblEGADPrevEducation.regHispanic, tblEGADPrevEducation.regNatAmer,
tblEGADPrevEducation.regWhite,"
sql = sql & " tblEGADPrevEducation.SumCountByRace ,
tblEGADPrevEducation.CreatedDate "
sql = sql & "FROM tblEGADPrevEducation where "
sql = sql & "(tblEGADPrevEducation.SubgrantIntID = " &
[Forms]![frmPreventionEducation1]![SubGrantSelect] & ")"
sql = sql & "AND (tblEGADPrevEducation.Quarter = """ &
[Forms]![frmPreventionEducation1]![QuarterSelect] & """)"
Debug.Print sql
Set rst = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
With rst
.Edit
!SumCountByAge = Sum_Age_Group1
!SumCountByPopul = Sum_Popul_Group1
!SumCountByRace = Sum_Race_Group1
!age00_04 = [Forms]![frmPreventionEducation1]![age00_04]
!age05_09 = [Forms]![frmPreventionEducation1]![age05_09]
!age10_12 = [Forms]![frmPreventionEducation1]![age10_12]
!age13_15 = [Forms]![frmPreventionEducation1]![age13_15]
!age16_18 = [Forms]![frmPreventionEducation1]![age16_18]
!age19_99 = [Forms]![frmPreventionEducation1]![age19_99]
!popLawEnforce = [Forms]![frmPreventionEducation1]![popLawEnforce]
!popOtherCommMemb = [Forms]![frmPreventionEducation1]![popOtherCommMemb]
!popSchoolPersonnel =
[Forms]![frmPreventionEducation1]![popSchoolPersonnel]
!popParents = [Forms]![frmPreventionEducation1]![popParents]
!popInSchool = [Forms]![frmPreventionEducation1]![popInSchool]
!popNotInSchool = [Forms]![frmPreventionEducation1]![popNotInSchool]
!regAsian = [Forms]![frmPreventionEducation1]![regAsian]
!regBlack = [Forms]![frmPreventionEducation1]![regBlack]
!regHispanic = [Forms]![frmPreventionEducation1]![regHispanic]
!regNatAmer = [Forms]![frmPreventionEducation1]![regNatAmer]
!regWhite = [Forms]![frmPreventionEducation1]![regWhite]
.Update
End With
End If

 

[Allen Browne]

Answered in microsoft.public.access.modulesdaovba