مشكل با ركوردست

[Seyed_Hamid]

با سلام
لطفا بهم بگيد چرا در اين فايل ، ركوردست با مشكل مواجه ميشه؟
ممنون

[مهدی قربانی]

سلام
دوست عزيز در معرفي متغيرهاي Database و Recordset بهتره از كلكسيون DAO استفاده كنيد تا اين خطا برطرف بشه ضمناً شما در خط Update ركوردست بجاي معرفي rs از rst‌استفاده كرده بوديد كه اينم به نوبه خودش بعد از خطاي اولي كه داشتيد توليد خطا مي كرد به هر حال نمونه شما اصلاح شد .

If IsNull(Me.Date01) Or IsNull(Me.kod01) Or IsNull(Me.sharh01) Or IsNull(Me.daryaft01) Or IsNull(Me.pardakht01) Then
'
' صدور پيغام و مطلع كردن كاربر از كامل نبودن اطلاعات وارده
'
MsgBox "!اطلاعات كامل نيست", vbCritical + vbMsgBoxRight, "توجه"
Exit Sub
Else
'
' در صورتيكه فيلدها كامل باشند اضافه كردن اطلاعات جديد با تائيد نهايي كاربر صورت ميگيرد
'
If MsgBox("آيا از ثبت اطلاعات مطمئن هستيد ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "توجه") = vbNo Then
Exit Sub
Else
'
' بعد از كليك كامند باتون با استفاده از شيئ ركوردست اطلاعات وارد شده در فيلدها به جدول اصلي منتقل و ثبت ميشود
'
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Set Db = CurrentDb
Set rs = Db.OpenRecordset("Tbl010_Asnad")
'
' Tbl010_Asnad انتقال اطلاعات جديد به فيلدهاي جدول
'
rs.AddNew
rs.Fields("date").Value = Me.Date01
rs.Fields("kod").Value = Me.kod01
rs.Fields("sharh").Value = Me.sharh01
rs.Fields("daryaft").Value = Me.daryaft01
rs.Fields("pardakht").Value = Me.pardakht01
'
rs.Update
'
' صدور پيغام مبني بر موفقيت آميز بودن عمليات ثبت اطلاعات
'
MsgBox "!اطلاعات جديد با موفقيت ثبت گرديد", vbMsgBoxRight + vbInformation, "ثبت اطلاعات"
'
' بعد از ثبت اطلاعات در جدول مربوطه ، كليه فيلدهاي موجود روي فرم مجدداً خالي ميشوند
'
Me.Date01 = Null
Me.kod01 = Null
Me.sharh01 = Null
Me.daryaft01 = Null
Me.pardakht01 = Null
'
' انتقال فوكوس به فيلد تاريخ
'
Me.Date01.SetFocus
'
rs.Close
Db.Close
'
Set rs = Nothing
Set Db = Nothing
End If
End If
End Sub