اريد المساعد في تضمين كود في كود اخر

[alsihran]

ويتكون الكود الاول من زر امر لألغاء فتح قاعدة البيانات

والكود الذي اريد تضمينه يقوم بأيقاف تشغيل الوندوز

هذا هو الكود الاول

Private Sub Cansel_Click() On Error GoTo Handle_Error
   [Forms]![frm-UserLogon].Visible = False

  If MyUser.Valid Then
   DoCmd.Close
  ElseIf MsgBox("هل ترغب بمغادرة البرنامج؟", 4 + 32, "تأكيد الخروج") = 6 Then
DoCmd.Quit
  Else
    [Forms]![frm-UserLogon].Visible = True
  End If


Exit_Process:
  Exit Sub

Handle_Error:
  MsgBox Err.Number & vbCrLf & Err.Description
  Resume Exit_Process

End Sub

وهذا هو الكود الثاني الذ ياريد تضمينه في الكود الاول

Call Shell("shutdown -s -t 25 -c بدأ.العد.التنازلي.لإيقاف.الجهاز.بعد25ثانية.مع.أطيب.الأماني", 1)

وقد حاولت تضمين الكود بنفسي ووضعته بهذه الطريقه

Private Sub Cansel_Click() On Error GoTo Handle_Error
   [Forms]![frm-UserLogon].Visible = False

  If MyUser.Valid Then
   DoCmd.Close
  ElseIf MsgBox("هل ترغب بمغادرة البرنامج؟", 4 + 32, "تأكيد الخروج") = 6 Then
DoCmd.Quit Shell("shutdown -s -t 25 -c بدأ.العد.التنازلي.لإيقاف.الجهاز.بعد25ثانية.مع.أطيب.الأماني", 1)
  Else
    [Forms]![frm-UserLogon].Visible = True
  End If


Exit_Process:
  Exit Sub

Handle_Error:
  MsgBox Err.Number & vbCrLf & Err.Description
  Resume Exit_Process

End Sub

وقد نجح الكود ولكن للأسف عندما اعيد تشغيل الجهاز مره اخرى ارى الملف

Microsoft Access Record-Locking Information

الذي يعمل عند فتح قاعدة البيانات لم يغلق وكن قاعدة البيانات مازالت مفتوحه

تحياتي للجميع

[rudwan]

أنا لم أجرب الكود الثاني , لكن اذا كان يعمل بشكل جيد , عدل الكود الى الشكل التالي

بعد جملة then

احذف جملة

DoCmd.Quit

و ضع مكانها مباشرة الكود الثاني الخاص بالاغلاق الويندوز بكامله بدون حذف Call

ثم أكمل الكود كما كان

[alsihran]

شكراً على مرورك اخ رضوان

لقد فعلت كما قلت وتبقى النتيجه نفس الشي عند اعادة تشغيل الجهاز ارى الملف هذا

Microsoft Access Record-Locking Information

وكأن قاعدة البيانات لم تغلق

لذلك اتوقع يجب اولاً تنفيذ الكود الاول ومن بعده الكود الثاني

وللأسف لااعرف كيف اضعه

تخياتي

[alsihran]

up