استخدام عبارات sql في الاكسس

ابسط واسهل طريقه هي

1. قسم بعمل استعلام لما تريده

2. قم بتشغيل الاستعلام فإن كان كل شيء تمام فما عليك الا ان تقوم بعرض اللاستعلام في وضع التصميم ثم تنتقل الى اشرطة القوائم وتختار عرض وتختار من القائمه عرض SQL

3. الان انسخ عبارة SQL كامله

4. انتقل الى النموذج في وضع التصميم وحدد الحدث الذي تريده لعبارة الاستعلام هذه هل هو من خلال زر امر او من خلال احداث النموذج مثل عند الفتح او خلافه مثلا نريد ان تعمل العباره عند الضغط على زر امر

5. في حدث زر الامر عند النقر نضع الكود التالي

DOCMD.RUNSQL"نضع بين علامتي الاقتباس كامل عبارة الاستعلام التي اخذناها نسخناها سابقا ويفضل ان تكون في سطر واحد "

مثال استعلام الحاق

DOCMD.RUNSQL"INSERT INTO A ( SourceDoc ) SELECT Word.SourceDoc FROM Word;"

او يكون بهذا الشكل اذا كان الكود طويل

DOCMD.RUNSQL"INSERT INTO A ( SourceDoc ) SELECT Word.SourceDoc" & _
"FROM Word;"

او بهذا الشكل

Dim SQL As String
	SQL = "INSERT INTO A ( SourceDoc )" & _
			  "SELECT Word.SourceDoc" & _
			  "FROM Word"
	DoCmd.RunSQL SQL

مشكورة الاخت زهرة على الرد

بس انا لو عايز اعمل select لسجل معين بحيث اضعه في متغير حاولت انو اعمل عبارة select واضعها في متغير ما نفعت ارجو منك شاكرا الافادة

كما قالت الاخت زهرة بالضبط

هذا مثال لجملة SELECT

DOCMD.RUNSQL "SELECT Tab.ID, Tab.Name FROM Tab WHERE (((Tab.ID)=3));"

الشرح

اختر من الجدول Tab السجلات (الارقام , الاسماء) بحيث (بشرط ) ان الحقل ID يساوي 3

مشكور المبرمج 2003 والاخت زهرة وجزاكم الله خيرا