PDA

View Full Version : مشکل با RecordsetClone.AddNew



صنم
یک شنبه 03 تیر 1386, 10:12 صبح
سلام
من چند تا مقدار رو از فرم یک می گیرم و با این مقادیر رکوردی را جستجو می کنم اگر رکورد را پیدا کردم در فرم 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 کند و به رکورد آخر درجدول کاری نداشته باشد.
کسی می تونه کمکم کنه ؟