اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

fantap

بواسطه fantap
في قسم الأكسيس Access

 مشاركة

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

fantap

fantap

قام بنشر
قام بنشر

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

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

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

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

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

c5LyQoS.jpg

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

4dvrB4f.jpg

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

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

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

 

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

رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر
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

 

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك
fantap

fantap

قام بنشر
  • الكاتب
قام بنشر (معدل)
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

 

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

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

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

wF5fnnq.png

n2Xtxkf.png

 

تم تعديل بواسطه fantap
رابط هذا التعليق
شارك
محمد احمد لطفى

محمد احمد لطفى

قام بنشر
قام بنشر

غير كود أستاذى          @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

 

  • Like 1
رابط هذا التعليق
شارك
fantap

fantap

قام بنشر
  • الكاتب
قام بنشر (معدل)
الان, محمد احمد لطفى 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  بأن تظهر رسالة تقول بأنه  تم الالغاء

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

 

تم تعديل بواسطه fantap
  • Like 1
رابط هذا التعليق
شارك
محمد احمد لطفى

محمد احمد لطفى

قام بنشر
قام بنشر

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

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

  • Like 1
رابط هذا التعليق
شارك
fantap

fantap

قام بنشر
  • الكاتب
قام بنشر
11 ساعات مضت, محمد احمد لطفى said:

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

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

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

تسلم ايديك

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك
fantap

fantap

قام بنشر
  • الكاتب
قام بنشر

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

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

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

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

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

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

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept