كيف نحدد عدد سجلات داخل النموذج الفرعي او الرئيسي

[أبو أفنان]

كيف يمكنني أن أجعل الجدول لا يتجاوز 10سجلات فقط

[WinMaster]

السلام عليكم

استعمل هذا الكود لعد السجلات .

اذا كان العدد اكثر من 9 يعطي رسالة ثم يغلق النموذج .

طبعا انت عدل عليه على راحتك بما يتناسب مع متطلباتك

'Declare the Connection Object and The recordset to hold the data
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
'Set The Connection
Set Cnn = CurrentProject.Connection
'Open the Record Set
Rst.Open "Select * From table1", Cnn, adOpenStatic
'Check if the Table has more than 9 records then do the action
If Rst.RecordCount > 9 Then
'Enter your code here
MsgBox " You Cannot Add a New Record"
'Exit the form or do what ever you want
 DoCmd.Close

End If
Rst.Close

[WinMaster]

ضع الكود في حدث

BeforeInsert

للنموذج

تحياتي

[امير عاطف]

ايضاً يمكن عمل ذلك باستخدام الداله Dcount

[osama457]

طريقة بدائية جربتها وتمشي إذا ما كان فيه حاجة للحذف

هي انك تعمل حقل ترقيم تلقائي في الجدول اسمه مثلا ff القيم الجديدة زيادة

وفي خصايص الجدول تكتب في قاعدة التحق من الصحة

[ff]<11

نص التحققة من الصحة :عشرة سجلات فقط

طبعا ميزتها انها من خصايص الجدول ما تحتاج لنموذج

وعيب فيها انها ممكن التعديل فيها للي يقدر يوصل للجدول

[فتى الوادي]

السلام عليكم .. عندي نموذج وبه نموذج فرعي .. كيف أستطيع تحدد عدد سجلات النموذج الفرعي من خلال قيمة معطاه في النموذج الرئيسي .. والمثال يوضح والصورة كذلك . ولكم الدعاء مقدماً .

http://ftws.net/alzaeem1/1free/mot100.zip

والصورة :

[فتى الوادي]

للرفع .. (y)

[امير عاطف]

ضع الكود التالي لحدث قبل الادخال Before Insert للنموذج الفرعي :

Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.RecordsetClone.RecordCount >= Parent!txtnum Then
   Me.AllowAdditions = False
End If
End Sub

[فتى الوادي]

شكراً لك ....

لكن جربت ولم تنفع الطريقة ..

هل من الممكن ترسل المثال ..

جزيت خيراً وزوجت بكراً ..

[امير عاطف]

الطريقة سليمه واذا لم تنفع يمكن استخدام الكود التالي ايضاً:

Private Sub Form_Current()
If Me.NewRecord Then
   If Me.RecordsetClone.RecordCount >= Parent!txtnum Then
      Me.AllowAdditions = False
   Else
      Me.AllowAdditions = True
   End If
Else
   Me.AllowAdditions = True
End If
End Sub

ومثال على ذلك تجده هنــــــــــــــــــــــــــــــــــــــا

او تجد المثال مع المرفقات

test.zip

تم تعديل أغسطس 6, 2004 بواسطه امير عاطف

[أبو أفنان]

أشكرك أخي WinMaster

أشكر موصول لمشرفنا الغالي أمير عاطف وosama457

ولك سؤالي أخي WinMaster ما هو اسم النموذج واسم الجدول في الكود

تحياتي

[WinMaster]

السلام عليكم

الكود ليس محكوم بنموذج تستطيع ان تضعه في النموذ المسند الى الجدول الذي تريد ان تحدد عدد السجلات به

اسم الجدول بالكود هو Table1

تحياتي

[أبو أفنان]

لك تحياتي أخي WinMaster

ونفع الله بك

تحية طيبة لك ولجميع المشرفين والاعضاء

[أبو أفنان]

وهذا كود جميل

MsgBox "ÇäÊåÊ ãÏÉ ÇÓÊÎÏÇã ÇáäÓÎÉ ÇáÊÌÑíÈíÉ", vbOKOnly + vbInformation, "Officena"
DoCmd.Close

 DoCmd.Quit
End If