زر مشروط بحذف سجل او فتح نموذج

[نوال12]

السلام عليكم

ما اريده هو عند الضغط على زر حذف في نموذج (tb3) يحدث احدى الامرين :

ان كان السجل لدية سجلات مرتبطه به .. فعندها يتم فتح نموذج (tb4)

ان كان السجل ليس لديه سجلات مرتبطه به .. يتم حذف هذا السجل

2345.rar

[Elsayed Bn Gemy]

السلا عليكم

تم اعادة تسمية حقل رقم الملف من عربى الى انجليزى (ينصح به بشدة ) الى Numfile

تم عمل نموذج رسالة ادارية حتى لا يتم المسح الا بعد التاكد

تم عمل تصفية للنموذج Tb4  حيث عن الضغط على زر حذف للملف رقم 1 مثلا وكان له سجلات مرتبطة به

يقوم بفتح النموذج tb4  على السجلات المرتبطه فقط بالملف رقم 1

شرح الكود

'اذا كان عدد السجلات فى الجدول الفرعى تساوى صفر بشرط تساوى ارقام الملفات 
' حيث numfile = اسم حقل رقم الملف فى الجدول الفرعى 
' حيث textnumfile = اسم مربع النص فى النموذج 
if DCount("Numfile", "tb2", "[Numfile]=" & Me.textNumfile& "") = 0 Then
DoCmd.OpenForm "mared"
Else
DoCmd.OpenForm "tb4"
 End If

 

تم تعديل أكتوبر 29, 2015 بواسطه مارد

[Elsayed Bn Gemy]

2346.rar

[نوال12]

السلام عليكم

اولا اعتذر بشدة من تسمية الحقول بالعربيه ..

ثانيا : جزاك الله الف خير .. قمت بتجربته وتم المطلوب

تمت الاجابة