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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأربعاء فبراير 25, 2015 3:16 pm من طرف فطوط نونو
» مضاد فيرس مجاني من ميكروسوفت New Antivirus From Microsoft - Free
السبت مايو 10, 2014 3:24 am من طرف ابراهيم الشيخ1
» كيفية تثبيت Windows XP بعد تثبيت Windows7
السبت أبريل 12, 2014 5:49 pm من طرف tareqsat
» النسخة الاصلية لكتاب الف ليلة وليلة الممنوع ( للكبار فقط )
الخميس مارس 13, 2014 12:44 am من طرف blawtn.Heart
» http://ahlakalam.to-relax.net/t476-topic
الثلاثاء مارس 04, 2014 1:12 am من طرف myemam
» كتاب نادر - اعترافات جولدامائير واسرار لم تنشر عن حرب اكتوبر
الجمعة فبراير 28, 2014 6:07 pm من طرف ahmdsalem
» الكتاب الاسود - قصة تعذيب المسلمين فى عهد حسنى مبارك
الجمعة فبراير 28, 2014 5:55 pm من طرف ahmdsalem
» الكتاب النادر اول حوار صحفى مع جنى مسلم
الجمعة فبراير 28, 2014 5:54 pm من طرف ahmdsalem
» كتاب نهاية اسرائيل والولايات المتحدة الامريكية
الجمعة فبراير 28, 2014 5:51 pm من طرف ahmdsalem
» كتاب ( الحلم اليهودى والوهم الماسونى )
الجمعة فبراير 28, 2014 5:48 pm من طرف ahmdsalem
» Internet Download Manager 6.05 Build 2 Final
الأربعاء فبراير 26, 2014 3:53 pm من طرف JAMALSAEED
» مجموعه كتب رائعة - متنوعة
الثلاثاء أكتوبر 15, 2013 2:16 pm من طرف eng_eyad
» فن الالقاء الرائع للدكتور طارق سويدان
الثلاثاء أكتوبر 15, 2013 2:12 pm من طرف eng_eyad
» شرح بالصور لكيفية صنع نسخة ويندوز خاصة بك واضافه البرامج والتعريفات لها
الجمعة سبتمبر 13, 2013 3:48 pm من طرف كوبرا
» تحويل الملفات الى PDF بدون برامج
الخميس سبتمبر 12, 2013 2:32 am من طرف عيسى101
» Hiren's BootCD 13.1
الأحد سبتمبر 01, 2013 2:58 pm من طرف تركي غانم
» نزهة الألباب فيما لا يوجد فى كتاب - من كتب الثقافة الجنسية العربية
الجمعة مايو 24, 2013 5:54 am من طرف sadeem.alcoon
» شقائق الاترج فى رقائق الغنج - من كتب الثقافة الجنسية العربية النادرة
الجمعة مايو 24, 2013 5:07 am من طرف sadeem.alcoon
» الحرام - مغامرات حقيقية لأميرة سعودية
الخميس مايو 09, 2013 5:32 am من طرف عمر صالح
» عملية ذبح نمر وسلخ جلدة- حصرية ونادرة جداجداجدا
الخميس مايو 09, 2013 5:27 am من طرف عمر صالح