اذهب الي المحتوي
أوفيسنا

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


fantap

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

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

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

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

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

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

c5LyQoS.jpg

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

4dvrB4f.jpg

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

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

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

 

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

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

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
رابط هذا التعليق
شارك

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
رابط هذا التعليق
شارك

الان, محمد احمد لطفى 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
رابط هذا التعليق
شارك

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

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

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

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

تسلم ايديك

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

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

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

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

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

 

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

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

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

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

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

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

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

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



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

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

Important Information