عرض مشاركة واحدة
  #1  
قديم 05-09-2021, 04:04 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


Cool استعلام إنشاء جدول يسأل عن اسم الجدول

 



عمل استعلام تكوين جدول Make Table Query بحيث يسأل عن اسم الجدول المطلوب تكوينه و اسم الملف الذي سيتم تكوين الجدول به أثناء التشغيل


كود:
Private Sub Command16_Click()



Dim x As String, y As String, z As String

  x = Trim(InputBox("Enter the Table name", "Table name", "Table1"))

  y = Trim(InputBox("Enter the Dbase Path", "Path", "c:\db2.mdb"))

     If Trim(Right(y, 4)) <> ".mdb" Then

          y = y & ".mdb"

     End If

z = "SELECT Table1.m, Table1.mm INTO " & x & " IN '" & y & "' FROM Table1;"

MsgBox z

DoCmd.RunSQL z



End Sub


الموضوع الأصلي : استعلام إنشاء جدول يسأل عن اسم الجدول || الكاتب : admin || المصدر : منتدى مجمع التطوير

 

الملفات المرفقة
نوع الملف: zip make_table_selective.zip‏ (22.1 كيلوبايت, المشاهدات 0)

التوقيع

رد مع اقتباس