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
أمجد جمالي قام بنشر نوفمبر 9, 2004 قام بنشر نوفمبر 9, 2004 السلام عليكم ورحمة الله وبركاته الكود سهل جداً السطر الثاني والثالث هو التصريح عن المتغيرات السطر الرابع هو إسناد متغير قاعدة البيانات الى قاعدة البيانات الحالية السطر الخامس إسناد قيمة (NewName ) بحيث تساوي نفس القيمة الموجودة في خانة (الكتب) في نموذج يدعى (اسم الكتاب) السطر السادس فتح جدول بحيث يعرض فقط السجل لنفس اسم الكتاب الذي اسند للقيمة NewName السطر الثامن يتحقق اذا كان عدد السجلات في الجدول يساوي واحد في السطر الذي يليه إذا تحقق هذا الشرط يعرض رسالة فيها رقم الكتاب الموجود في السطر الذي يليه يسند قيمة Cancel إلى True او -1 في السطر الذي يليه نغلق الاإتصال بالجدول تحياتي لك لكن نصيحة مني إذا حبيت تعمل نفس المثال أعمله باللغة الإنجليزية بدل اسم الكتاب او الكتب
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
أمجد جمالي قام بنشر نوفمبر 10, 2004 قام بنشر نوفمبر 10, 2004 السلام عليكم اخي الكريم شو هو الاصدار الاكسيس الي عندك
أمجد جمالي قام بنشر نوفمبر 10, 2004 قام بنشر نوفمبر 10, 2004 طيب عدل الكود الى Dim rst As DAO.Recordset وانا مو متأكد 100 بالمية انو هاد هو الحل بس جرب اذا ما مشي الحال بعتلي الملف على إيملي AJamali@acts-alsarh.com تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.