عند الضغط على زر الغاء الامر، تنغلق جميع النوافذ و يبقي البرنامج معلق (عنوان معدل)

fantap · أغسطس 25, 2018

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته

تم تصميم قاعدة بيانات بسيطة بفضل الله و بمساعدتكم لي

المشكلة بسيطة جدا و ابحث لها عن حل

تم تصميم نموذج للواجهة مكون من 3 أزرار للاوامر المشكلة موجودة في زر الاستعلام عن متدرب حيث انه يعمل بشكل طببعي و لكن لو بالضغط علي زر الغاء الامر كما بالصورة المرفقه

ثم تظهر هذه النافذه كما بالصورة

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

اربد حلأ لهذه المشكلة بأي طريقه تكون

و مرفق الفديو ابضا شكرا لكم جميعا

برنامج أدارة المتدربين.mdb

fantap · أغسطس 26, 2018

هل يوجد حل من فضلكم با شباب

منتظر الرد

**محمد احمد لطفى** · أغسطس 26, 2018

هل هكذا كما تريد

برنامج أدارة المتدربين.mdb

**Shivan Rekany** · أغسطس 26, 2018

31 دقائق مضت, fantap said:

هل يوجد حل من فضلكم با شباب

هذا هو الكود اللي تستخدمه

Private Sub Command17_Click()
On Error Resume Next

On Error GoTo Err_Command17_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
 	DoCmd.Close
	stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  
Exit_Command17_Click:
    Exit Sub

Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
    
End Sub

غير مكان اغلاق النموذج
اي غير الكود الى هذا

Private Sub Command17_Click()
On Error Resume Next

On Error GoTo Err_Command17_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, Me.Name
Exit_Command17_Click:
    Exit Sub

Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
    
End Sub

fantap · أغسطس 26, 2018

شكرا جزيلا أستاذتي الكرام

و جاري التجريه و سوف اخبركم بالنتيجه

تم تعديل أغسطس 26, 2018 بواسطه fantap
توضيح

fantap · أغسطس 26, 2018

4 ساعات مضت, محمد احمد لطفى said:

هل هكذا كما تريد

برنامج أدارة المتدربين.mdb

4 ساعات مضت, Shivan Rekany said:

هذا هو الكود اللي تستخدمه


Private Sub Command17_Click()
On Error Resume Next

On Error GoTo Err_Command17_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
 	DoCmd.Close
	stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  
Exit_Command17_Click:
    Exit Sub

Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
    
End Sub

غير مكان اغلاق النموذج
اي غير الكود الى هذا


Private Sub Command17_Click()
On Error Resume Next

On Error GoTo Err_Command17_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, Me.Name
Exit_Command17_Click:
    Exit Sub

Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
    
End Sub

شكرا استاذتي علي المجهود الرائع و المميز و لكن حدثت مشكلة اخري اثناء التجربة

و هي في هذه المرة سوف نقوم بالضغط علي موافق و عند ادخال رقم متدرب غير موجود داخل قاعدة البيانات سوف يطلب البرنامج ادخال بياناته داخل قاعده البيانات و عند النقر علي زر الالغاء تخدث نفس المشكلة و انغلاق جميع النوافذ و يبقي الاكسس يعمل في شريط المهام

و شكرا علي المجهود المميز و حسن تعاونكم معنا و مرفق صور للتوضيح

تم تعديل أغسطس 26, 2018 بواسطه fantap

**محمد احمد لطفى** · أغسطس 26, 2018

غير كود أستاذى @Shivan Rekany
الى

Private Sub Command17_Click()
On Error Resume Next

On Error GoTo Err_Command17_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
Exit_Command17_Click:
    Exit Sub
DoCmd.Close acForm, Me.Name
Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
    
End Sub

fantap · أغسطس 26, 2018

الان, محمد احمد لطفى said:

غير كود أستاذى @Shivan Rekany
الى


Private Sub Command17_Click()
On Error Resume Next

On Error GoTo Err_Command17_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
Exit_Command17_Click:
    Exit Sub
DoCmd.Close acForm, Me.Name
Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
    
End Sub

الكود اشتغل 10/10

شكرا لك استاذي / محمد احمد لطفي

هل من الممكن ان تظهر نافذه في حالة الضغط علي No بأن تظهر رسالة تقول بأنه تم الالغاء

و شكرا لكم جميعا استاذتي الكرام

تم تعديل أغسطس 26, 2018 بواسطه fantap

**محمد احمد لطفى** · أغسطس 26, 2018

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

برنامج أدارة المتدربين.mdb

fantap · أغسطس 27, 2018

11 ساعات مضت, محمد احمد لطفى said:

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

برنامج أدارة المتدربين.mdb

فعلا الله ينور عليك جميع الاكواد شغاله 10/10

تسلم ايديك

زادك الله من العلم و البركة

لكن استفسار بسيط أخر

هل يوجد كود لإلغاء تمكين المحتوي يمكن اضافته مع هذا التطبيق بحيث لو قمت باعطاء هذا التطبيق لاي شخص لايعرف كيفية العمل علي الاكسس لا يطلب منه تمكين المحتوي في كل مرة بدخل اليها الي التطبيق

و شكرا مرة اخري علي المجهود المميز و الرائع

لقد استفدت خبرة من خلال هذا المنتدي الرائع من كل عضو و مشرف و خبير بهذا الصرح العملاق

**محمد احمد لطفى** · أغسطس 27, 2018

شاهد هذا الموضوع

**محمد احمد لطفى** · أغسطس 27, 2018

تخفيضها برمجيا انظر لهذا الموضوع

fantap · أغسطس 27, 2018

شكرا اخي الكريم علي الرد و حسن المتابعه

الا يوجد حل عن طريق الكود بدلا من استخدام التعديل علي الريجستري

شكرا اخي الكريم

و دائما موفق بأذن الله

**محمد احمد لطفى** · أغسطس 27, 2018

اها انظر الة اخر مشاركة

**jjafferr** · أغسطس 27, 2018

5 ساعات مضت, fantap said:

لا يوجد حل عن طريق الكود بدلا من استخدام التعديل علي الريجستري

تفضل :smile:

.

جعفر

تسجيل الدخول

عند الضغط على زر الغاء الامر، تنغلق جميع النوافذ و يبقي البرنامج معلق (عنوان معدل)

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

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

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information