سؤال / عمل حقل مصدره من استعلام الحاق

وعليكــم السـلام ورحمة الله وبركاتـه..

اخي hassaan100

استعلام الالحاق يقوم بإضافة سجلات جديدة الى السجلات الموجودة مسبقاً بالجدول .. ما تحتاجه هو عملية تحديث للحقل بالسجلات

ضع زر امر وبحدث عند النقر للزر ضع الكود ادناه

 On Error Resume Next
	Dim rs As DAO.Recordset
	Dim i As Integer
	Set rs = Me.Recordset
	Do Until rs.EOF
		i = rs!FieldName
		rs.MoveNext
		rs.Edit
		rs!FieldName = i + 1
		rs.Update
	Loop

استبدل الكلمة FieldName باسم الحقل المراد زيادته

بالتوفيق

بارك الله فيك أخي العزيز .. نعم هذا هو المطلوب وشكرا على التوضيح

ولكن ماذا إذا أردت تكوين زر أمر لتصفية الحقل من البيانات التي تم استخدام الاستعلام عليها والبدء من جديد بقيم جديدة ؟

بارك الله فيك وشكرا لك مرة أخرى ...

بارك الله فيك اخي الكريم

يمكنك عمل استعلام تحديث لحقل الرقم وضع في خانة تحديث الى القيمة التالية Null

او بإمكانك عمل زر امر على النموذج وكتابة جملة اسكيوال المكافئة لهذا الاستعلام كالتالي

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE TableName SET TableName .[FieldName] = Null;"
DoCmd.SetWarnings ture

حيث TableName هو اسم الجدول

FieldName هو اسم الحقل

السطر الاول لإلغاء رسائل الاكسس التحذيرية الخاصة بالإستعلامات الإجرائية

السطر الاخير هو لإعادة تشغيل هذه الرسائل مجدداً

موفق

بارك الله فيك أخي العزيز .. هذا ما كان مطلوب ..

وفقك الله وزادك علما ..

أخي الكريم هناك ملاحظة حفظك الله ..

DoCmd.RunSQL "UPDATE TableName SET TableName .[FieldName] = Null;"

المثال السابق في استخدام جملة SQL كان ناجحا في حين أن الجدول تم إنشائه من جداول ACCESS ..

المشكلة أنني قمت بإنشاء الجدول باستخدام Sql Server 2005 على سيرفر مستقل وقمت بربط هذه الجداول ببرنامج الأكسس في جهازي الخاص ..

رسالة الخطأ تتعلق تحديدا في التطبيق Docmd.RunSql وعلى ما أعتقد بأن هذا التطبيق خاص بالأكسس دون Sql Server ..

هل هناك تعبير آخر يمكن إضافته للتحكم بجملة Sql ?

شكراً لك اخي الكريم

للرفع فقط ...

السلام عليكــم ورحمـة الله وبركاتــه ،،

الأخوة الكرام .. وجدت حلا مشابه إلى حد كبير ما أريده عبر هذا الرابط الشيق ...

إضغط هنا لزيارة الموقع

تحياتي ،،،