هل يمكن ان اضع اسم الجدول في متغير

اذا كنت تستعلم من قاعدة البيانات مباشرة فليس لي علم لكن استطيع ان اجرب لاحقا،

اما اذا كنت تستعلم من برنامج قمت انت بكتابته او صيانته فهذا من السهل ان يتم

دمت سالما

أعتقد أن طريقة انشاء الجداول بهذه الطريقة خطأ. فبما أنك تريد أن تغير من جدول لآخر عن طريق متغير فأغلب الظن أن هذه الجداول متشابهة ويجب أن تدمج في جدول واحد مع إضافة عمود يميز بين السجلات من كل جدول. فلو دمجت هذه الجداول فلن تحتاج هذا المتغيربل ستستخدم where في ال SQL statement. ان كنت غير قادر على دمج الجداول فيمكنك خلق SQL view عبارة عن union لهذه الجداول. لكن دمج الجداول يبقى أفضل وأبسط.

cljneophyte كتب:

أعتقد أن طريقة انشاء الجداول بهذه الطريقة خطأ. فبما أنك تريد أن تغير من جدول لآخر عن طريق متغير فأغلب الظن أن هذه الجداول متشابهة ويجب أن تدمج في جدول واحد مع إضافة عمود يميز بين السجلات من كل جدول. فلو دمجت هذه الجداول فلن تحتاج هذا المتغيربل ستستخدم where في ال SQL statement. ان كنت غير قادر على دمج الجداول فيمكنك خلق SQL view عبارة عن union لهذه الجداول. لكن دمج الجداول يبقى أفضل وأبسط.

اخي الكريم انا مشروعي به حوالي 6 جداول وبطبق عليهم نفس جملة الاستعلام وهذا يتطلب كتابة جمل الاستعلام 6 مرات ففكرت في عمل متغير واضع فيه اسم الجدول المرد عمل الاستعلام فيه ولكن يبدوا ان هذا غير ممكن اشكركم علي تواصلكم واتمني ان نجد حلا لتلك المشكلة

لا أعتقد بأنه غير ممكن ولكن ما أردت قوله بأنني أشك بأن تصميم الجداول على الأرجح خطأ وهي متشابهة بدرجة كبيرة بحيث أنها يجب أن تكون جدولاً واحداً. هذا خطأ شائع في إكسل حيث يقوم المستخدم بانشاء لوائح بأسماء العملاء وأرقام تلفوناتهم وعناوينهم مثلاً ولكنه يضع العملاء في كل منطقة جغرافية في Worksheet منفصل. هذا ظني بالنسبة للجداول الست في مشروعك. قد أكون مخطئاً لأنني لم أرَ نماذجاً عن هذه الجداول.

اخى ahmaadd

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

هذا الكود فى المديول مثلا لا فرضا

Public Function SelectMe(Frm As Form, TAbleName As String) As Boolean
With Frm
If rs.State = 1 Then rs.Close
rs.Open "select * from " & TAbleName & " where itm_ID='" & .txt_code & "'", cn, 1, 3
SelectMe = Not rs.EOF
End With
End Function

وفى الحدث الذى نريد ان نطبق جملة الاستعلام هذة وليكن مثلا Command

Private Sub cmd_find_Click()

If SelectMe(Me, "pur") = False Then MsgBox "لا يوجد بيانات اصناف مسجله بهذات الرقم  ": Exit Sub
End Sub

ولو اردت اكثر لفعلت لكن اطلب

بالتوفيق ان شاء الله