اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

وشكرا

رابط هذا التعليق
شارك

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

...

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

وشكراً

رابط هذا التعليق
شارك

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

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

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

db1.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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information