(تمت الاجابة) سؤال في استعلام انشاء جدول

[الفاروق الامين]

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

في انشاء استعلام جدول يسال عن اسم الجدول الذي سوف يتم انشاءه ولكن المشكلة ان اسم الجدول ثابت وبالتالي في كل مرة يتم تشغيل الاستعلام يتم حذف الجدول و يتم انشاء الجدول مرة اخرة بنفس الاسم الذي تم تحديده اول مرة

السؤال هل من الممكن وضع مربع نص علي فورم عند تشغيل الاستعلام ياخذ اسم الجدول الجديد الذي سوف يتم انشاءه من مربع النص من الفورم اي في كل مرة احتفظ بالجدول القديم ويتم انشاء جدول جديد باسم جديد عند تشغيل (استعلام انشاء جدول )

وشكرا

[أبو آدم]

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

...

آملين مراعاة قواعد إسم الظهور في المنتدى ....... http://www.officena....ncement=21&f=89

وشكراً

[الفاروق الامين]

اخي اولا شكرا علي الرد

ثانيا: تم تغير الاسم

ثالثا : ارجو وضع علي الفورم مربع نص يتم فية وضع الاسم الجديد كل مرة يتم فية انشاء جدول جديد وشكر لسيادتكم

db1.rar

[ابوخليل]

نيابة عن استاذنا العزيز ابي آدم احاطه الله بلطفه وعنايته

تفضل المثال معدلا حسب طلبك

db2.rar

[أبو آدم]

أخي الحبيب أبو خليل

جزيت عني وعن إخوتنا خيراً ، وتقبّل الله منك الدعاء الطيب ... آمين

عذراً

كنت قد جهّزت الكود

أخي الفاروق الامين

يلزم إنشاء حقل جديد في النموذج باسم txt2 لتحديد إسم الجدول الجديد

وخلف زر الأمر ضع الكود ...

Private Sub Command2_Click()

On Error GoTo Err_Command2_Click

    Dim strTableName, strFieldName As String

    strTableName = Me.txt2

    strFieldName = Me.txt1


DoCmd.RunSQL "SELECT Table1.ID, Table1.Name, Table1.hdate INTO " & strTableName & " " & vbCrLf & _

"FROM Table1 " & vbCrLf & _

"WHERE (((Table1.Name) Like '" & strFieldName & "' ));"


Exit_Command2_Click:

    Exit Sub

Err_Command2_Click:

    MsgBox Err.Description

    Resume Exit_Command2_Click


End Sub

هكذا أصبحت قيمة البحث متغيراً و إسم الجدول متغيراً آخر

جرّب ووافني بالنتيجة.......

.................

[الفاروق الامين]

شكرا لكم جدا وجزاكم الله خيرا عني وربنا يبارك لكم في صحتكم وفي اسرتكم ويجعلكم من السعداء في الدنيا والاخر ان شاء الله

[أبو آدم]

الحمدلله الذي بفضله تقضى الحاجات

(تمت الاجابة)