مشکل با RecordsetClone.AddNew

[mahsa rashedi]

سلام
من چند تا مقدار رو از فرم یک می گیرم و با این مقادیر رکوردی را جستجو می کنم اگر رکورد را پیدا کردم در فرم 2 آن را نمایش می دهم اگر پیدا نکردم رکوردی جدید با مقادیری که از فرم 1 گرفته ام ایجاد می کنم :
کدی که نوشته ام اینه :

Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "mainhazineh_m"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Form_mainhazineh_m.mahp.Value = Form_mainform_m.Combo2.Value
    Form_mainhazineh_m.salp.Value = Form_mainform_m.Combo0.Value
    Form_mainhazineh_m.RecordsetClone.findfirst "[salp]= " & Form_mainform_m.Combo0.Value & "  And [mahp]= " & Form_mainform_m.Combo2.Value & "  And [shahrp]= '" & Form_mainform_m.Combo12.Value & "'"
    If Form_mainhazineh_m.RecordsetClone.RecordCount <> 0 And Form_mainhazineh_m.RecordsetClone.NoMatch = False Then
        Form_mainhazineh_m.RecordsetClone.edit
        Form_mainhazineh_m.RecordSelectors = True
        Form_mainhazineh_m.Bookmark = Form_mainhazineh_m.RecordsetClone.Bookmark
        Form_mainhazineh_m.RecordsetClone.Update
    Else
        Form_mainhazineh_m.RecordsetClone.AddNew
        Form_mainhazineh_m.mahp.Value = Form_mainform_m.Combo2.Value
        Form_mainhazineh_m.salp.Value = Form_mainform_m.Combo0.Value
        Form_mainhazineh_m.shahrp.Value = Form_mainform_m.Combo12.Value
        Form_mainhazineh_m.RecordsetClone.Update
        Form_mainhazineh_m.Bookmark = Form_mainhazineh_m.RecordsetClone.LastModified
    End If

مشکل این کد اینه که وقتی رکورد جدید قرار است add کند ابتدا رکورد آخر در جدول را با مقادیری که از فرم 1 گرفته ام تغییر میدهد و سپس رکورد جدیدی که کلیه فیلدهای آن خالی است را به جدول add می کند. در حالی که باید فقط رکورد جدیدی با مقادیری که از فرم 1 گرفته ام را add کند و به رکورد آخر درجدول کاری نداشته باشد.
کسی می تونه کمکم کنه ؟

 

[mazoolagh]

فکر کنم recordsetclone فقط خواندنی باشه