كيف يمكن ارسال إسم حقل الى استعلام

للرفــع

انا زرت هذا السؤال عدة مرات ولكني لم افهمه جيدا

ولكني اعتقد انك تبحث عن التالي

SELECT [Forms]![Form1]![Text1] AS Expr1 from Table1;

هناك ايضا زر شكله مثل العصاة السحرية في اشرطة الادوات و يظهر عندما تصنع استعلامات في قواعد البيانات العادية (لا يظهر عند الدمج مع SQL Server) و وظيفة هذا الزر وضع معادلات و اوامر في الاستعلام و ربط الاستعلام بنماذج من قاعدة البيانات

اسف لعدم توضيحى بصورة كافية واليك مرة اخرى مااقصده بالخطوات:-

**انظر الى جملة الاستعلام الاتية:-

Select text1.text from Employees

لاحظ مربع النص text1.text اريد عند تشغيل برنامجى ان يقوم المستخدم بادخال اسم حقل ما من الجدول Employees فمثلاً اذا ادخل المستخدم على مربع النص الاسم ُEmpname فيصبح الاستعلام كالاتى:-

Select ُEmpname from Employees

ارجو انكون قد اعربت عما اريد وشكرا لك

هذا ما توقعته ايضا ، اذن استخدم الكود السابق حيث يجب اولا ان تستخدم الامر [Forms] يليه ! يليه [اسم النموذج] يليه ! يليه [اسم الحقل]

جزاك الله خيراً يااستاذ خضر ترزى

لقد قمت بكتابة الكود التالى ولكن اظهر رسالة تفيد بوجود خطأ

حيث ان الكود يقوم بانشاء جدول جديد فهل تكرمت يااستاذ خضر بتصحيحه

  Private Sub Command1_Click()

Dim db As Database

Dim rst As Recordset

Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "AllTables.mdb")

Set rst = db.OpenRecordset("Tblmain", dbOpenTable)

 db.Execute ("SELECT [Forms]![Form1]![text1]   into tblAllAllows  from [tblmain]")

End Sub

الكود السابق SQL سادة و ليس مخصص للعمل فع بيزك ، يجب تعديله للعمل معه

المثال الاول هو لكود يستدعي البيانات من نموذج اخر

Private Sub Command1_Click()
Dim db As Database
Dim rst As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "AllTables.mdb")
Set rst = db.OpenRecordset("Tblmain", dbOpenTable)
 db.Execute ("SELECT " & [Forms]![Form1]![text1] & "   into tblAllAllows  from [tblmain]")
End Sub

المثال الثاني يستعدعي القيم من نفس النموذج عن طريق استخدام الامر me

Private Sub Command1_Click()
Dim db As Database
Dim rst As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "AllTables.mdb")
Set rst = db.OpenRecordset("Tblmain", dbOpenTable)
 db.Execute ("SELECT " & me.text1 & "   into tblAllAllows  from [tblmain]")
End Sub

ربما تكون بحاجة لتعديل بسيط للكود لاني لم اختبره و لكني اعتقد بانه سيعمل بدون مشاكل ، على الاقل الكود الثاني سيعمل جيدا

اشكرك جداً ياستاذ خضر على الكود الثانى الخطير لكن الكود الاول لايعمل فهو يظهر الرسالة الاتية:-

type mismatch

فهذا الكود الاول هو بالضبط ماريده

وجزاك الله خيراً