M.Hussein قام بنشر نوفمبر 9, 2004 مشاركة قام بنشر نوفمبر 9, 2004 أرجو من أحدكم ان يقوم بشرح تفصيلي لـ OpenRecordSet وخاصة فى هذا المثال Private Sub اسم_الكتاب_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rst As Recordset Set db = Application.CurrentDb NewName = [Forms]![الكتب]![اسم الكتاب] Set rst = db.OpenRecordset("SELECT [الكتب].[رقم الكتاب] , [اسم الكتاب] " _ & " FROM [الكتب] WHERE [اسم الكتاب]= " & "'" & NewName & "'") If rst.RecordCount = 1 Then MsgBox "سبق إدخال هذا الاسم برقم " & rst![رقم الكتاب] Cancel = -1 End If db.Close End Sub رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر نوفمبر 9, 2004 مشاركة قام بنشر نوفمبر 9, 2004 السلام عليكم ورحمة الله وبركاته الكود سهل جداً السطر الثاني والثالث هو التصريح عن المتغيرات السطر الرابع هو إسناد متغير قاعدة البيانات الى قاعدة البيانات الحالية السطر الخامس إسناد قيمة (NewName ) بحيث تساوي نفس القيمة الموجودة في خانة (الكتب) في نموذج يدعى (اسم الكتاب) السطر السادس فتح جدول بحيث يعرض فقط السجل لنفس اسم الكتاب الذي اسند للقيمة NewName السطر الثامن يتحقق اذا كان عدد السجلات في الجدول يساوي واحد في السطر الذي يليه إذا تحقق هذا الشرط يعرض رسالة فيها رقم الكتاب الموجود في السطر الذي يليه يسند قيمة Cancel إلى True او -1 في السطر الذي يليه نغلق الاإتصال بالجدول تحياتي لك لكن نصيحة مني إذا حبيت تعمل نفس المثال أعمله باللغة الإنجليزية بدل اسم الكتاب او الكتب رابط هذا التعليق شارك More sharing options...
M.Hussein قام بنشر نوفمبر 10, 2004 الكاتب مشاركة قام بنشر نوفمبر 10, 2004 الأخ أمجد جزاك الله كل الخير وبلغك ليلة القدر تم إدخال نفس الكود على برنامج أخر متصل بالجداول من على الشبكه linked ولم يعمل ويعطي الرساله الأتية بعد إدخال البيانات فى خانة النص للكود Run-Time error '13': type mismatch أرجو ان اجد ماهية المشكلة ولماذا لا يعمل الكود المعدل هو : Private Sub CodeNo_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rst As Recordset Set db = Application.CurrentDb NewCode = [Forms]![books]![CodeNo] Set rst = db.OpenRecordset("SELECT * " _ & " FROM [Tblibdata] WHERE [CodeNo]= " & "'" & NewCode & "'") If rst.RecordCount = 1 Then MsgBox "This Record Was Entered Before with No. " & rst![serialNp] Cancel = -1 End If db.Close End Sub رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر نوفمبر 10, 2004 مشاركة قام بنشر نوفمبر 10, 2004 السلام عليكم اخي الكريم شو هو الاصدار الاكسيس الي عندك رابط هذا التعليق شارك More sharing options...
M.Hussein قام بنشر نوفمبر 10, 2004 الكاتب مشاركة قام بنشر نوفمبر 10, 2004 office XP رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر نوفمبر 10, 2004 مشاركة قام بنشر نوفمبر 10, 2004 طيب عدل الكود الى Dim rst As DAO.Recordset وانا مو متأكد 100 بالمية انو هاد هو الحل بس جرب اذا ما مشي الحال بعتلي الملف على إيملي AJamali@acts-alsarh.com تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان