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

[fantap]

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

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

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

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

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

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

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

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

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

 

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

[fantap]

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

منتظر الرد

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

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

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

[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

 

[fantap]

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

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

 

تم تعديل أغسطس 26, 2018 بواسطه 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

 

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

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

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

 

تم تعديل أغسطس 26, 2018 بواسطه 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

 

[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  بأن تظهر رسالة تقول بأنه  تم الالغاء

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

 

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

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

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

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

[fantap]

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

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

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

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

تسلم ايديك

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

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

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

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

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

 

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

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

 

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

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

 

[fantap]

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

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

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

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

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

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

[jjafferr]

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

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

 

تفضل 

.

جعفر