run time error 91
2 مشترك
صفحة 1 من اصل 1
run time error 91
Hi,
Can anyone please help me with my command button.
What it's suppose to do is if vbYes is chosen, then it will update a Field (fieldname "Approved") = True.
If vbNo then the updates will be deleted.
This command Save button is in a form which calls on a data table called TblCover to update the field.
When I run this code, it gives me the error "RUNTIME ERROR 91 - object variable or with block variable not set" amd it highlights the line " .Open ..."
Can anyone please help me?
==============================================
(Toggle Plain Text)
Private Sub cmdSave_Click()
Response = MsgBox("Has this been Signed and Approved?", vbYesNo vbCritical)
If Response = vbYes Then
Set ActiveConnection = TblCover
With rst
.Open "TblCover", cnn, adOpenDynamic, adLockOptimistic
.Fields("Approved").Value = True
.Update
DoCmd.Save acForm, "Cover"
End With
End If
If Response = vbNo Then
strText = MsgBox("You need to get Manager signature and Approval", vbCritical)
With rst
.Delete (adAffectCurrent)
.Close
End With
Set myRecordset = Nothing
Set conn = Nothing
End If
End Sub
123- عضو نشط
- عدد المساهمات : 34
نقاط : 164
تقييم العضو : 0
تاريخ التسجيل : 15/06/2010
رد: run time error 91
Try below code to avoid adOpenDynamic, adLockOptimistic .
- الكود:
Private Sub cmdSave_Click()
Dim Response As VbMsgBoxResult
Dim TblCoverId As Integer
Dim TblCoverRS As DAO.Recordset
TblCoverId = ID
Response = MsgBox("Has this been Signed and Approved?", vbYesNo + vbCritical)
If Response = vbYes Then
Set TblCoverRS = CurrentDb.OpenRecordset("Select * from TblCover where ID = " & CStr(TblCoverId))
TblCoverRS.OpenRecordset
TblCoverRS.Edit
TblCoverRS!Approved = True
TblCoverRS.Update
TblCoverRS.Close
Else
Set TblCoverRS = CurrentDb.OpenRecordset("Select * from TblCover where ID = " & CStr(TblCoverId))
TblCoverRS.OpenRecordset
TblCoverRS.Delete
End If
Set TblCoverRS = Nothing
End Sub
رد: run time error 91
yep , thanks
123- عضو نشط
- عدد المساهمات : 34
نقاط : 164
تقييم العضو : 0
تاريخ التسجيل : 15/06/2010
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» مضاد فيرس مجاني من ميكروسوفت New Antivirus From Microsoft - Free
» كيفية تثبيت Windows XP بعد تثبيت Windows7
» النسخة الاصلية لكتاب الف ليلة وليلة الممنوع ( للكبار فقط )
» http://ahlakalam.to-relax.net/t476-topic
» كتاب نادر - اعترافات جولدامائير واسرار لم تنشر عن حرب اكتوبر
» الكتاب الاسود - قصة تعذيب المسلمين فى عهد حسنى مبارك
» الكتاب النادر اول حوار صحفى مع جنى مسلم
» كتاب نهاية اسرائيل والولايات المتحدة الامريكية
» كتاب ( الحلم اليهودى والوهم الماسونى )
» Internet Download Manager 6.05 Build 2 Final
» مجموعه كتب رائعة - متنوعة
» فن الالقاء الرائع للدكتور طارق سويدان
» شرح بالصور لكيفية صنع نسخة ويندوز خاصة بك واضافه البرامج والتعريفات لها
» تحويل الملفات الى PDF بدون برامج
» Hiren's BootCD 13.1
» نزهة الألباب فيما لا يوجد فى كتاب - من كتب الثقافة الجنسية العربية
» شقائق الاترج فى رقائق الغنج - من كتب الثقافة الجنسية العربية النادرة
» الحرام - مغامرات حقيقية لأميرة سعودية
» عملية ذبح نمر وسلخ جلدة- حصرية ونادرة جداجداجدا