العصيمي قام بنشر نوفمبر 13, 2003 مشاركة قام بنشر نوفمبر 13, 2003 السلام عليكم ورحمة الله لدوال التجميع اهمية كبيرة في تصميم البرامج لكن للأسف جميع الشروح السابقة غير واضحة أتمنى وضع شرح للداله dCOUNT مع وضع شرط لها. مثال ان لاتتكرر مجموعة حقول أكثر من مرة . وأين يتم وضع هذا الكود .؟؟ أتمنى الاهتمام بهذا الموضوع لأنه يوجد خمس أو ست موضوعات كلها تتعلق بهذة الدالة الرجاء المساعدة أخوكم العصيمي 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر نوفمبر 13, 2003 مشاركة قام بنشر نوفمبر 13, 2003 لكن للأسف جميع الشروح السابقة غير واضحة هل هذا الموضوع من ضمنها شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 أيضا الامثلة فى هذا القسم دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30 1 رابط هذا التعليق شارك More sharing options...
العصيمي قام بنشر نوفمبر 14, 2003 الكاتب مشاركة قام بنشر نوفمبر 14, 2003 شكرا أخي محمد طاهر لسرعة الرد ... للأسف قرأت الموضوع أكثر من مرة وحاولت أتعلم لكن بصراحة الكلام فوق مستواي ( مبتدى للغاية ) وكذلك حاولت أتعلم من الأمثلة لكن للأسف أيضا فوق المستوى أتمنى منك تعطينا مثال وليكن جدول : به الحقول التالية الاسم العمر رقم الهاتف كيف أمنع أن يتكرر الاسم والعمر ورقم الهاتف في أكثر من سجل يعني أولا يختبر هل هذا السجل موجود أم لا ( يمكن أستخدام مفاتيح اساسية لكن أرغب في معرفة الطريقة لدوال التجميع ) أتمنى أن توضح أن يوضع الكود ؟؟؟؟؟؟ مع الشكر المقدم رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر نوفمبر 15, 2003 مشاركة قام بنشر نوفمبر 15, 2003 كيف أمنع أن يتكرر الاسم والعمر ورقم الهاتف في أكثر من سجل يعني أولا يختبر هل هذا السجل موجود أم لا مرفق مثال لأحد الأخوة (للأسف لا أذكر الاسم ) لاختبار وجود الاسم مسبقا ، و السماح بتسجيله من عدمه جرب أي اسم ممن فى الجدول مثل عمر مثلا ستظهر الرسال لتخيرك بالتسجيل ام لا ، مع وضع أرقام السجلات التي بها هذا الاسم و يمكنك تكرار التجربة بنفس الاسم يعد ضغط زر سجل جديد checkifExists.rar 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر نوفمبر 15, 2003 مشاركة قام بنشر نوفمبر 15, 2003 راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=1157 1 رابط هذا التعليق شارك More sharing options...
العصيمي قام بنشر نوفمبر 15, 2003 الكاتب مشاركة قام بنشر نوفمبر 15, 2003 أخي العزيز: محمد طاهر يبدوا أنني لم أستطيع أن أشرح لك ماذا أريد بالضبط ! المثال السابق يختبر حقل واحد فقط نعم المثال قريب من الشي الذي أريده لكن المثال يختبر حقل واحد فقط أنا أريد قبل اضافة السجل أن يتحقق من 3 حقول هل هي موجوده مسبقا مثال الاسم العمر الهاتف محمد 29 122334 محمد 29 122334 المطلوب عند إضافة السحل الثاني أن يرفض الاضافة لانه موجود مسبقا. يعني : اذا كان عدد تكرار السجل صفر يسمح بالاضافة اذا لا يرفض الاضافة رابط هذا التعليق شارك More sharing options...
فهد الدوسري قام بنشر نوفمبر 15, 2003 مشاركة قام بنشر نوفمبر 15, 2003 أخي :العصيمي جرب هذا المثال عله يفيدك فيما تريد إن شاء الله حاول أن تدخل معلومة متكررة في السجل كاملاً مثلاً الاسم____العمر___الهاتف فهد_____10______1234567 فهد_____10______1234567 أما لو أختلف أي معلومة في السجل فسوف يقبلها البرنامج.. مثلاً أختلاف العمر وتطابق باقي المعلومات فهد_____11______1234567 فهد_____10______1234567 أوأختلاف الاسم وتطابق باقي المعلومات وليد_____10______1234567 فهد_____10______1234567 أواختلاف الهاتف وتطابق باقي المعلومات فهد_____10______9876543 فهد_____10______1234567 أرجو أن يكون هذا هو ما تريده وتقبل تحياتي fahad_2003.zip 1 رابط هذا التعليق شارك More sharing options...
العصيمي قام بنشر نوفمبر 15, 2003 الكاتب مشاركة قام بنشر نوفمبر 15, 2003 أخي العزيز فهد الدوسري ردك على موضوعي شرف كبير لي نعم بالضبط هذا ما أريده ألف شكر أخوي فـــــــــــــهـــــــــــد (y) (y) (y) (y) (y) (y) رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر نوفمبر 16, 2003 مشاركة قام بنشر نوفمبر 16, 2003 و هذا مثال آخر لمنع الادخال اذا تكررت قيم ثلاثة حقول بالاعتماد علي دالة Dcount لعمل عد لعدد السجلات فى الجدول التي تحقق شرط أن قيمة الثلاثة حقول علي النموذج = القيم فى الجدول و تم أولا حساب الشرط و تسجيله فى متغير T1 لا ستخدامه كشرط فى الدالة بدلا من كتابة جملة الشرط الطويلة فى الدالة مباشرة و دالة الاختبار كما يلي Function checkrecord() checkrecord = 0 Dim c1 As Integer, T1 As String T1 = "(([Name]='" & Trim(Me.TName.Value) & "') and ([Salary]=" & Me.Salary & ") and ([Birthday]=#" & Format(Me.Birthday, "mm/dd/yyyy") & "#))" c1 = DCount("[Name]", "Table1", T1) If c1 > 1 Then MsgBox "Record Exists !", , "www.officena.net" checkrecord = 1 End If End Function و يتم استدعاؤها كالتالي : كما فى المثال x = checkrecord() فاذا أعادت قيمة = 1 فمعني ذلك أن السجل قد تكرر CheckifExistMulti.rar 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر نوفمبر 16, 2003 مشاركة قام بنشر نوفمبر 16, 2003 أيضا تم اضافة مثال آخر الي نفس الموضوع فى الارشيف http://www.officena.net/ib/index.php?act=S...&st=0#entry6020 و مثال الأخ فهد مشكورا يعتمد علي ال RecordsetClone و المثال الذي أضفته عن طريق دالة Dcount 1 رابط هذا التعليق شارك More sharing options...
فهد الدوسري قام بنشر نوفمبر 16, 2003 مشاركة قام بنشر نوفمبر 16, 2003 لا شكر على واجب والشكر موصول إلى استاذنا محمد طاهر رابط هذا التعليق شارك More sharing options...
العصيمي قام بنشر نوفمبر 18, 2003 الكاتب مشاركة قام بنشر نوفمبر 18, 2003 الاخ محمد طاهر شكرا جزيلا لك سوف أطبق على مثالك وحقا أن هذا المنتدى من أفضل المنتديات وأجمل مافية سرعة الرد وكذلك تنوع الافكار المطروحة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.