پیغام خطای 2489

[M59alizadeh]

سلام به حضرات Access کار
من هنگامی که از دستور :
DoCmd.GoToRecord acDataForm, "MIS_Car_Cartable_view", acGoTo, 25
استفاده می کنم به پیغام خطای زیر برمی خورم :
Run-time error 2489
The Object MIS_Car_Cartable_view isn,t open
لطفا راهنمایی بفرمایید .

[amirzazadeh]

سلام به حضرات Access کار
من هنگامی که از دستور :
DoCmd.GoToRecord acDataForm, "MIS_Car_Cartable_view", acGoTo, 25
استفاده می کنم به پیغام خطای زیر برمی خورم :
Run-time error 2489
The Object MIS_Car_Cartable_view isn,t open
لطفا راهنمایی بفرمایید .
دوست عزيز اين كد رو قبل از فرمان بالا اضافه كنيد اميدوارم مشكلتون رو برطرف كنه.

DoCmd.SelectObject acForm, "MIS_Car_Cartable_view", True
................................
موفق باشيد.

[M59alizadeh]

سلام عرض شد دوست عزیز
خیلی ممنون از راهنمائی شما اما متاسفانه با این دستور هم مشکل برطرف نشد .
نمیدونم گیره کار کجاست .

[amirzazadeh]

اگر براتون ممكنه فايلتون رو آپلود كنين.

[M59alizadeh]

کل برنامه خیلی حجیمه و عملا نمیشه Upload کرد اما من دستورات این قسمت رو میفرستم :
Private Sub Command5_Click()
Me.MsgCnt.Value = DLookup("Count(*)", "MIS_Car_Messaging_View", "(sisndper = " + CStr(Form_start_pic.si_person) + " and isnull(Snddeleted, 0) = 0) or (sircvper = " + CStr(Form_start_pic.si_person) + " and isnull(Rcvdeleted, 0) = 0)")
Me.CarCnt.Value = DLookup("Count(*)", "MIS_Car_Cartable_view", "type_Code = 2 and Sircvper = " + CStr(Form_start_pic.si_person))
DoCmd.Requery "MIS_Car_Cartable_view"
'DoCmd.SelectObject acForm, "MIS_Car_Cartable_view", True
'DoCmd.GoToRecord acDataForm, "MIS_Car_Cartable_view", acGoTo, 1
End Sub
این دستورات در سربرگ یک فرم Header Detaile هست و من با اون دستور آخر میخوام بعد از بروزآوری برگردم به رکورد قبلی
اینم بگم که بانک اطلاعاتی من SQLServer2000 هست و فقط Interface برنامه Access هستش .
با تشکر .

[amirzazadeh]

اينم تست كن .

Private Sub Command5_Click()
DoCmd.SelectObject acForm, "MIS_Car_Cartable_view", True
Me.MsgCnt.Value = DLookup("Count(*)", "MIS_Car_Messaging_View", "(sisndper = " + CStr(Form_start_pic.si_person) + " and isnull(Snddeleted, 0) = 0) or (sircvper = " + CStr(Form_start_pic.si_person) + " and isnull(Rcvdeleted, 0) = 0)")
Me.CarCnt.Value = DLookup("Count(*)", "MIS_Car_Cartable_view", "type_Code = 2 and Sircvper = " + CStr(Form_start_pic.si_person))
DoCmd.Requery "MIS_Car_Cartable_view"
DoCmd.GoToRecord acDataForm, "MIS_Car_Cartable_view", acGoTo, 1
End Sub
................
موفق باشيد

[M59alizadeh]

سلام دوباره و عرض تشکر
دوست عزیز تست کردم و بازهم نشد .
واقعا نمیدونم ..

[M59alizadeh]

مهندس جان
چیزه دیگه ای به ذهنت نمیرسه ؟