Update or CancelUpdate without AddNew or Edit

[LBinGA]

I have an Unbound Menu Form that brings up all the records in the db by name after the user types into a Parameter window. The record Form ("Special Acceptance Form Letter") is launched when the User Double Clicks their selection. I've used this form before on TONS of db's, however, on this particular db I'm getting the Update or CancelUpdate without AddNew or Edit error after the record Form is opened and I try to move from one record to the next or make an Edit.

Additionally, the Main Switchboard opens ON TOP of my form. Grrrrr.

Funny thing is, it doesn't happen when I go to the Database Window and just open it from there. I can move from record to record, opening the form that way, no problem, so I don't know what to think. The code running my Unbound Box is:
Private Sub Like_Search_Dbl Click(Cancel As Integer)
'Dimension variables.
Dim formname As String, SyncCriteria As String
Dim frm As Form, rs As DAO.Recordset

'Set the formname to "IRF Input form," the form that will be
'synchronized (opened).
formname = "Special Acceptance Form Letter"

'Check to see if the Main form is open. If it
'is not open, open it.
If Not SysCmd(acSysCmd GetObjectState, acForm, formname) Then
DoCmd.OpenForm formname
End If

'Define the form object and Recordset object for
'the Main form.
Set frm = Forms(formname)
Set rs = frm.RecordsetCl one

'Define the criteria used for the synchronization .

SyncCriteria = BuildCriteria(" ID", dbLong, Me.Like_Search. Column(5))

'Synchronize the corresponding record in the form to
'the current record in the subform.

rs.FindFirst SyncCriteria

'If a record exists in the form, find the
'matching record.
If rs.NoMatch Then
MsgBox "No match exists!", 64, formname
Else
frm.Bookmark = rs.Bookmark
End If
DoCmd.Close acForm, "Customer Search Dialog"
Exit_ReportList _Click:
Exit Sub

Set rs = Nothing
End Sub

However, when I get the error and click DEBUG, it shows breaking on this line (Bolded) below:
Private Sub Form_BeforeUpda te(Cancel As Integer)
'************** *****Prem Ops Mod************ *************** *******
If Me.Prem_Ops_U_L _Mod_1 = 0 Then
[Prem/Ops U/L Manual 1] = [Prem/Ops U/L Prem 1]
Else
[Prem/Ops U/L Manual 1] = ([Prem/Ops U/L Prem 1] / [Prem/Ops U/L Mod 1])
End If

If Me.Prem_Ops_U_L _Mod_2 = 0 Then
[Prem/Ops U/L Manual 2] = [Prem/Ops U/L Prem 2]
Else
[Prem/Ops U/L Manual 2] = ([Prem/Ops U/L Prem 2] / [Prem/Ops U/L Mod 2])
End If

If Me.Prem_Ops_U_L _Mod_3 = 0 Then
[Prem/Ops U/L Manual 3] = [Prem/Ops U/L Prem 3]
Else
[Prem/Ops U/L Manual 3] = ([Prem/Ops U/L Prem 3] / [Prem/Ops U/L Mod 3])
End If

'************** *****Prem Ops Mod 1 *************** *************** ****
Dim Effective_Date As Date
If Me.Effective_Da te >= #1/1/2010# And Me.Effective_Da te <= #12/31/2010# Then
[Prem/Ops Manual XS 1] = ([Prem/Ops U/L Manual 1] * 0.09)
[Prem/Ops Prem 1] = [Prem/Ops Manual XS 1] * [Prem/Ops Mod 1]

ElseIf Me.Effective_Da te >= #1/1/2011# And Me.Effective_Da te <= #12/31/2011# Then
[Prem/Ops Manual XS 1] = ([Prem/Ops U/L Manual 1] * 0.09)
[Prem/Ops Prem 1] = [Prem/Ops Manual XS 1] * [Prem/Ops Mod 1]

ElseIf Me.Effective_Da te >= #1/1/2012# And Me.Effective_Da te <= #12/31/2012# Then
[Prem/Ops Manual XS 1] = ([Prem/Ops U/L Manual 1] * 0.09)
[Prem/Ops Prem 1] = [Prem/Ops Manual XS 1] * [Prem/Ops Mod 1]

End If

'************** *****Prem Ops Mod 2************** *************** *****

If Me.Effective_Da te >= #1/1/2010# And Me.Effective_Da te <= #12/31/2010# Then
[Prem/Ops Manual XS 2] = ([Prem/Ops U/L Manual 2] * 0.13)
[Prem/Ops Prem 2] = [Prem/Ops Manual XS 2] * [Prem/Ops Mod 2]

ElseIf Me.Effective_Da te >= #1/1/2011# And Me.Effective_Da te <= #12/31/2011# Then
[Prem/Ops Manual XS 2] = ([Prem/Ops U/L Manual 2] * 0.13)
[Prem/Ops Prem 2] = [Prem/Ops Manual XS 2] * [Prem/Ops Mod 2]

ElseIf Me.Effective_Da te >= #1/1/2012# And Me.Effective_Da te <= #12/31/2012# Then
[Prem/Ops Manual XS 2] = ([Prem/Ops U/L Manual 2] * 0.13)
[Prem/Ops Prem 2] = [Prem/Ops Manual XS 2] * [Prem/Ops Mod 2]

End If

'************** *****Prem Ops Mod 3 *************** *************** ****

If Me.Effective_Da te >= #1/1/2010# And Me.Effective_Da te <= #12/31/2010# Then
[Prem/Ops Manual XS 3] = ([Prem/Ops U/L Manual 3] * 0.2)
[Prem/Ops Prem 3] = [Prem/Ops Manual XS 3] * [Prem/Ops Mod 3]

ElseIf Me.Effective_Da te >= #1/1/2011# And Me.Effective_Da te <= #12/31/2011# Then
[Prem/Ops Manual XS 3] = ([Prem/Ops U/L Manual 3] * 0.2)
[Prem/Ops Prem 3] = [Prem/Ops Manual XS 3] * [Prem/Ops Mod 3]

ElseIf Me.Effective_Da te >= #1/1/2012# And Me.Effective_Da te <= #12/31/2012# Then
[Prem/Ops Manual XS 3] = ([Prem/Ops U/L Manual 3] * 0.2)
[Prem/Ops Prem 3] = [Prem/Ops Manual XS 3] * [Prem/Ops Mod 3]

End If

'************** *************** ********Prods** *************** ********

If [Prods U/L Mod A] = 0 Then
[Prods U/L Manual A] = [Prods U/L Prem A]
Else
[Prods U/L Manual A] = ([Prods U/L Prem A] / [Prods U/L Mod A])

End If

If [Prods U/L Mod B] = 0 Then
[Prods U/L Manual B] = [Prods U/L Prem B]
Else
[Prods U/L Manual B] = ([Prods U/L Prem B] / [Prods U/L Mod B])

End If

If [Prods U/L Mod C] = 0 Then
[Prods U/L Manual C] = [Prods U/L Prem C]
Else
[Prods U/L Manual C] = ([Prods U/L Prem C] / [Prods U/L Mod C])

End If
'************** *****Prods A************** *************** ************

If Me.Effective_Da te >= #1/1/2010# And Me.Effective_Da te <= #12/31/2010# Then
[Prods Manual XS A] = ([Prods U/L Manual A] * 0.1)
[Prods Prem A] = [Prods Manual XS A] * [Prods Mod A]
End If

'************** *****Prods B************** *************** ************
If Me.Effective_Da te >= #1/1/2010# And Me.Effective_Da te <= #12/31/2010# Then
[Prods Manual XS B] = ([Prods U/L Manual B] * 0.15)
[Prods Prem B] = [Prods Manual XS B] * [Prods Mod B]
End If
'************** *****Prods C************** *************** ************
If Me.Effective_Da te >= #1/1/2010# And Me.Effective_Da te <= #12/31/2010# Then
[Prods Manual XS C] = ([Prods U/L Manual C] * 0.22)
[Prods Prem C] = [Prods Manual XS C] * [Prods Mod C]
End If

'************** *************** ********Auto*** *************** *******

If [AL U/L Mod] = 0 Then
[AL Manual] = [AL U/L Prem]
Else
[AL U/L Man] = ([AL U/L Prem] / [AL U/L Mod])

End If

'************** *****Prods A************** *************** ************

If Me.Effective_Da te >= #1/1/2010# And Me.Effective_Da te <= #12/31/2010# Then
[AL Man XS] = ([AL U/L Man] * 0.1)
[AL Prem] = [AL Man XS] * [AL Mod]
End If
End Sub

I'm sure it's something simply but I can't work myself around it cuz I don't know much VBA....can someone please take a look?

big THANKS,
LB in GA

[LBinGA]

I believe I've figured this out.

I had a SetValue Macro running to calcuate totals on fields that I was using VBA to calculate data. Anyway, I removed all the SetValue references, moved all the calculations into VBA and I can use the Unbound form to open the records form and make edits now.

After only 5 or so hours....sheesh .

Thought I'd post the solution to my problem in case anyone else had this.

LB in GA