أبو أفنان قام بنشر مارس 17, 2004 قام بنشر مارس 17, 2004 كيف يمكنني أن أجعل الجدول لا يتجاوز 10سجلات فقط
WinMaster قام بنشر مارس 17, 2004 قام بنشر مارس 17, 2004 السلام عليكم استعمل هذا الكود لعد السجلات . اذا كان العدد اكثر من 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
osama457 قام بنشر مارس 18, 2004 قام بنشر مارس 18, 2004 طريقة بدائية جربتها وتمشي إذا ما كان فيه حاجة للحذف هي انك تعمل حقل ترقيم تلقائي في الجدول اسمه مثلا ff القيم الجديدة زيادة وفي خصايص الجدول تكتب في قاعدة التحق من الصحة [ff]<11 نص التحققة من الصحة :عشرة سجلات فقط طبعا ميزتها انها من خصايص الجدول ما تحتاج لنموذج وعيب فيها انها ممكن التعديل فيها للي يقدر يوصل للجدول
فتى الوادي قام بنشر مارس 18, 2004 قام بنشر مارس 18, 2004 السلام عليكم .. عندي نموذج وبه نموذج فرعي .. كيف أستطيع تحدد عدد سجلات النموذج الفرعي من خلال قيمة معطاه في النموذج الرئيسي .. والمثال يوضح والصورة كذلك . ولكم الدعاء مقدماً . http://ftws.net/alzaeem1/1free/mot100.zip والصورة :
امير عاطف قام بنشر مارس 19, 2004 قام بنشر مارس 19, 2004 ضع الكود التالي لحدث قبل الادخال Before Insert للنموذج الفرعي : Private Sub Form_BeforeInsert(Cancel As Integer) If Me.RecordsetClone.RecordCount >= Parent!txtnum Then Me.AllowAdditions = False End If End Sub
فتى الوادي قام بنشر مارس 19, 2004 قام بنشر مارس 19, 2004 شكراً لك .... لكن جربت ولم تنفع الطريقة .. هل من الممكن ترسل المثال .. جزيت خيراً وزوجت بكراً ..
امير عاطف قام بنشر مارس 19, 2004 قام بنشر مارس 19, 2004 (معدل) الطريقة سليمه واذا لم تنفع يمكن استخدام الكود التالي ايضاً: 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 بواسطه امير عاطف
أبو أفنان قام بنشر مارس 21, 2004 الكاتب قام بنشر مارس 21, 2004 أشكرك أخي WinMaster أشكر موصول لمشرفنا الغالي أمير عاطف وosama457 ولك سؤالي أخي WinMaster ما هو اسم النموذج واسم الجدول في الكود تحياتي
WinMaster قام بنشر مارس 21, 2004 قام بنشر مارس 21, 2004 السلام عليكم الكود ليس محكوم بنموذج تستطيع ان تضعه في النموذ المسند الى الجدول الذي تريد ان تحدد عدد السجلات به اسم الجدول بالكود هو Table1 تحياتي
أبو أفنان قام بنشر مارس 22, 2004 الكاتب قام بنشر مارس 22, 2004 لك تحياتي أخي WinMaster ونفع الله بك تحية طيبة لك ولجميع المشرفين والاعضاء
أبو أفنان قام بنشر أبريل 29, 2004 الكاتب قام بنشر أبريل 29, 2004 وهذا كود جميل MsgBox "ÇäÊåÊ ãÏÉ ÇÓÊÎÏÇã ÇáäÓÎÉ ÇáÊÌÑíÈíÉ", vbOKOnly + vbInformation, "Officena" DoCmd.Close DoCmd.Quit End If
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.