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

انتهاء السطر عند كتابة الكود

mohamed elalfy

بواسطه mohamed elalfy
في قسم الأكسيس Access

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة ابوبسمله,

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

mohamed elalfy

mohamed elalfy

قام بنشر
قام بنشر

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

 

من فضل حضراتكم لو ممكن حد يفيدني او يدلني على طريقه حيث انني اعمل على كود طويل جدا لدرجة ان السطر انتهى // وعند نهاية السطر لا استطيع كتابة اي شئ فيه 

ممكن يكون ليها حيله معينه الكود كالاتي :-

DoCmd.RunSQL "INSERT INTO " & "[" & y & "]" & " ( [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23], [24], [25], [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50], [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75], [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100], [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125], [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], [Sign On Date] ) " & _
"SELECT [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23], [24], [25], [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50], [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75], [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100], [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125], [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], Date() AS SDate " & _
"FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');"

 

طبعا بدل الارقام دي في كلمات عشان كده السطر مكفاش , 

jjafferr

jjafferr

قام بنشر
قام بنشر

وعليكم السلام 🙂

 

للعلم ، هذا اللي انت كتبته يسمى جملة SQL ، والحد الاقصى لعدد الحروف لهذه الجملة هو 64,000 حرف ، سواء كتبتها في الكود او في الاستعلام 🙂

 

اما حل مشكلتك ، فيمكن ان تكون كالتالي: 

dim mySQL as string
  
  mySQL = "[Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22],"
  mySQL = mySQL & "[23], [24], [25], [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42],"
  mySQL = mySQL & "[43], [44], [45], [46], [47], [48], [49], [50], [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62],"
  mySQL = mySQL & "[63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75], [76], [77], [78], [79], [80], [81], [82], [83],"
  mySQL = mySQL & "[84], [85]"

 

جملة mySQL ممكن ان تحتوي على بيانات بحجم حوالي 2 جيجا 🙂

 

جعفر

  • Like 3
  • Thanks 1
mohamed elalfy

mohamed elalfy

قام بنشر
  • الكاتب
قام بنشر

سلام عليكم ا جعفر 

انا جربت الكود الي حضرتك تفضلت بيه لكن لا يوجد اي استجابه 

هو الكود زي ما حضرتك عملته ينفذ المطلوب؟ 

mohamed elalfy

mohamed elalfy

قام بنشر
  • الكاتب
قام بنشر

ده المثال ا جعفر 

زي ما حضرتك شايف اسماء الحقول ارقام وده غير الواقع , لاني كنت شغال على ده كمثال ونجحت الفكره الحمد لله لكن زي ما وضحت لو كتبت اسماء الحقول صحيحه بدلا من الارقام كالموجوده في البرنامج الخاص بي سيكتمل السطر قبل الانتهاء من الكود وهنا اسال هل من حل

اتمنى من الله عز وجل ان لجد ضالتي بين ايديكم

 

New_1 (6).accdb

Mohtady

Mohtady

قام بنشر
قام بنشر

اخى الفاضل

يمكنك إنشاء استعلام ونسخ جملة Sql وتحويلها الى جملة VBA  ونسخها وتنفيذها على شكل كود 

من خلال أداه من ابدعات الاستاذ/ مصلح الحريص - منتديات الفريق العربي للبرمجة ... بالتوفيق 

_SQL_To_VBA.rar

  • Like 1
  • Thanks 1
Mohtady

Mohtady

قام بنشر
قام بنشر

استاذى ... حضرتك اعمل استعلام للكود المطلوب كتابتة ( وكان طويل ) ويمكنك تحويلة لجمل قصيرة يمكنك تنفيذها على شكل كود 

وذلك من خلال نسخ Sql وتحويلها كود ABA  ...  ثم نسخ كود للتنفيذ بداخل النماذج او التقارير ....

ويارب الصور المرفقة تساعدك في تنفيذ ذلك ... بالتوفيق 

1.PNG

2.PNG

3.PNG

4.PNG

  • Like 2
mohamed elalfy

mohamed elalfy

قام بنشر
  • الكاتب
قام بنشر
34 دقائق مضت, مهتدي said:

عذراً ... قاعدة البيانات يمكنك فتحها على اكسس 2003

الله يجزاك خير استاذ مهتدي 

الفكره ممتازه ويارب تظبط 

للاسف انا مش قادر اوصل للمحول التسبق بس انا كتبت الكود كامل المراد تحويله 

ممكن حضرتك تمزله على المحول وتعيد ارساله لي عند تحويله 

الكود مرفق في فايل ورد  ويارب استر 

 

 

مهتدي.docx

Mohtady

Mohtady

قام بنشر
قام بنشر

اسف لم اتمكن من تحويلها من برنامج ورد

استاذي ... ممكن نتفق على فكرة واحدة هى حضرتكم تتعلم  ان شاء الله كيفية تحويل اى جملة SQL بعد ذلك

علشان كده نبدء من الاول :

1 - كود SQL ال حضرتك كاتبه .... ممكن تنسخة وتفتح استعلام جديد وفى تصميم افتح عرض فى تصميم الاستعلام  واختار SQL

2- المفروض لو رجعت لتصميم الاستعلام تلاقى الجداول ال حضرتكم كاتب الكود بناء عليها ... صح ... جرب الخطوه ونرجع نكمل

3- طيب لو مش ممكن اعمل استعلام جديد به كل الجداول المطلوبة واختار الحقول وانشاء الاستعلام المناسب ... واختار عرض SQL

4- ابدء وان شاء الله هنوصل لافضل حل ... نتعلم منه بعد ذلك كيفية تحويل سطر طويل فى كود SQL

بالتوفيق  ............

 

  • Like 1
mohamed elalfy

mohamed elalfy

قام بنشر
  • الكاتب
قام بنشر
1 ساعه مضت, مهتدي said:

عذراً ... قاعدة البيانات يمكنك فتحها على اكسس 2003

الله يجزاك خير استاذ مهتدي 

الفكره ممتازه ويارب تظبط 

للاسف انا مش قادر اوصل للمحول التسبق بس انا كتبت الكود كامل المراد تحويله 

ممكن حضرتك تمزله على المحول وتعيد ارساله لي عند تحويله 

الكود مرفق في فايل ورد  ويارب استر 

 

 

BB.PNG

  • تمت الإجابة
ابوبسمله

ابوبسمله

قام بنشر
  • تمت الإجابة
قام بنشر

وعليكم السلام

مشاركة مع اساتذتى الافاضل

دى جملة السيكول بعد التحويل بالمحول المرفق من الاستاذ مهتدى جزاهم الله كل خير  هو واستاذنا العزيز مصلح

ولو نظرت هتلاقى ان الاستاذ جعفر جزاه الله خيرا اداك نفس الاجابه من الاول

ويمكن استخدام كذلك طريقه اخرى مظلله بالاخضر بالكود بالمرفق 

  Dim strSQL As String
  strSQL = "INSERT INTO " & "[" & y & "]" & " ( [Full Name]" & vbCrLf
  strSQL = strSQL & "           , 2" & vbCrLf
  strSQL = strSQL & "           , 3" & vbCrLf
  strSQL = strSQL & "           , 4" & vbCrLf
  strSQL = strSQL & "           , 5" & vbCrLf
  strSQL = strSQL & "           , 6" & vbCrLf
  strSQL = strSQL & "           , 7" & vbCrLf
  strSQL = strSQL & "           , 8" & vbCrLf
  strSQL = strSQL & "           , 9" & vbCrLf
  strSQL = strSQL & "           , 10" & vbCrLf
  strSQL = strSQL & "           , 11" & vbCrLf
  strSQL = strSQL & "           , 12" & vbCrLf
  strSQL = strSQL & "           , 13" & vbCrLf
  strSQL = strSQL & "           , 14" & vbCrLf
  strSQL = strSQL & "           , 15" & vbCrLf
  strSQL = strSQL & "           , 16" & vbCrLf
  strSQL = strSQL & "           , 17" & vbCrLf
  strSQL = strSQL & "           , 18" & vbCrLf
  strSQL = strSQL & "           , 19" & vbCrLf
  strSQL = strSQL & "           , 20" & vbCrLf
  strSQL = strSQL & "           , 21" & vbCrLf
  strSQL = strSQL & "           , 22" & vbCrLf
  strSQL = strSQL & "           , 23" & vbCrLf
  strSQL = strSQL & "           , 24" & vbCrLf
  strSQL = strSQL & "           , 25" & vbCrLf
  strSQL = strSQL & "           , 26" & vbCrLf
  strSQL = strSQL & "           , 27" & vbCrLf
  strSQL = strSQL & "           , 28" & vbCrLf
  strSQL = strSQL & "           , 29" & vbCrLf
  strSQL = strSQL & "           , 30" & vbCrLf
  strSQL = strSQL & "           , 31" & vbCrLf
  strSQL = strSQL & "           , 32" & vbCrLf
  strSQL = strSQL & "           , 33" & vbCrLf
  strSQL = strSQL & "           , 34" & vbCrLf
  strSQL = strSQL & "           , 35" & vbCrLf
  strSQL = strSQL & "           , 36" & vbCrLf
  strSQL = strSQL & "           , 37" & vbCrLf
  strSQL = strSQL & "           , 38" & vbCrLf
  strSQL = strSQL & "           , 39" & vbCrLf
  strSQL = strSQL & "           , 40" & vbCrLf
  strSQL = strSQL & "           , 41" & vbCrLf
  strSQL = strSQL & "           , 42" & vbCrLf
  strSQL = strSQL & "           , 43" & vbCrLf
  strSQL = strSQL & "           , 44" & vbCrLf
  strSQL = strSQL & "           , 45" & vbCrLf
  strSQL = strSQL & "           , 46" & vbCrLf
  strSQL = strSQL & "           , 47" & vbCrLf
  strSQL = strSQL & "           , 48" & vbCrLf
  strSQL = strSQL & "           , 49" & vbCrLf
  strSQL = strSQL & "           , 50" & vbCrLf
  strSQL = strSQL & "           , 51" & vbCrLf
  strSQL = strSQL & "           , 52" & vbCrLf
  strSQL = strSQL & "           , 53" & vbCrLf
  strSQL = strSQL & "           , 54" & vbCrLf
  strSQL = strSQL & "           , 55" & vbCrLf
  strSQL = strSQL & "           , 56" & vbCrLf
  strSQL = strSQL & "           , 57" & vbCrLf
  strSQL = strSQL & "           , 58" & vbCrLf
  strSQL = strSQL & "           , 59" & vbCrLf
  strSQL = strSQL & "           , 60" & vbCrLf
  strSQL = strSQL & "           , 61" & vbCrLf
  strSQL = strSQL & "           , 62" & vbCrLf
  strSQL = strSQL & "           , 63" & vbCrLf
  strSQL = strSQL & "           , 64" & vbCrLf
  strSQL = strSQL & "           , 65" & vbCrLf
  strSQL = strSQL & "           , 66" & vbCrLf
  strSQL = strSQL & "           , 67" & vbCrLf
  strSQL = strSQL & "           , 68" & vbCrLf
  strSQL = strSQL & "           , [Sign On Date]" & vbCrLf
  strSQL = strSQL & "           , 70" & vbCrLf
  strSQL = strSQL & "           , 71" & vbCrLf
  strSQL = strSQL & "           , 72" & vbCrLf
  strSQL = strSQL & "           , 73" & vbCrLf
  strSQL = strSQL & "           , 74" & vbCrLf
  strSQL = strSQL & "           , 75" & vbCrLf
  strSQL = strSQL & "           , 76" & vbCrLf
  strSQL = strSQL & "           , 77" & vbCrLf
  strSQL = strSQL & "           , 78" & vbCrLf
  strSQL = strSQL & "           , 79" & vbCrLf
  strSQL = strSQL & "           , 80" & vbCrLf
  strSQL = strSQL & "           , 81" & vbCrLf
  strSQL = strSQL & "           , 82" & vbCrLf
  strSQL = strSQL & "           , 83" & vbCrLf
  strSQL = strSQL & "           , 84" & vbCrLf
  strSQL = strSQL & "           , 85" & vbCrLf
  strSQL = strSQL & "           , 86" & vbCrLf
  strSQL = strSQL & "           , 87" & vbCrLf
  strSQL = strSQL & "           , 88" & vbCrLf
  strSQL = strSQL & "           , 89" & vbCrLf
  strSQL = strSQL & "           , 90" & vbCrLf
  strSQL = strSQL & "           , 91" & vbCrLf
  strSQL = strSQL & "           , 92" & vbCrLf
  strSQL = strSQL & "           , 93" & vbCrLf
  strSQL = strSQL & "           , 94" & vbCrLf
  strSQL = strSQL & "           , 95" & vbCrLf
  strSQL = strSQL & "           , 96" & vbCrLf
  strSQL = strSQL & "           , 97" & vbCrLf
  strSQL = strSQL & "           , 98" & vbCrLf
  strSQL = strSQL & "           , 99" & vbCrLf
  strSQL = strSQL & "           , 100" & vbCrLf
  strSQL = strSQL & "           , 101" & vbCrLf
  strSQL = strSQL & "           , 102" & vbCrLf
  strSQL = strSQL & "           , 103" & vbCrLf
  strSQL = strSQL & "           , 104" & vbCrLf
  strSQL = strSQL & "           , 105" & vbCrLf
  strSQL = strSQL & "           , 106" & vbCrLf
  strSQL = strSQL & "           , 107" & vbCrLf
  strSQL = strSQL & "           , 108" & vbCrLf
  strSQL = strSQL & "           , 109" & vbCrLf
  strSQL = strSQL & "           , 110" & vbCrLf
  strSQL = strSQL & "           , 111" & vbCrLf
  strSQL = strSQL & "           , 112" & vbCrLf
  strSQL = strSQL & "           , 113" & vbCrLf
  strSQL = strSQL & "           , 114" & vbCrLf
  strSQL = strSQL & "           , 115" & vbCrLf
  strSQL = strSQL & "           , 116" & vbCrLf
  strSQL = strSQL & "           , 117" & vbCrLf
  strSQL = strSQL & "           , 118" & vbCrLf
  strSQL = strSQL & "           , 119" & vbCrLf
  strSQL = strSQL & "           , 120" & vbCrLf
  strSQL = strSQL & "           , 121" & vbCrLf
  strSQL = strSQL & "           , 122" & vbCrLf
  strSQL = strSQL & "           , 123" & vbCrLf
  strSQL = strSQL & "           , 124" & vbCrLf
  strSQL = strSQL & "           , 125" & vbCrLf
  strSQL = strSQL & "           , 126" & vbCrLf
  strSQL = strSQL & "           , 127" & vbCrLf
  strSQL = strSQL & "           , 128" & vbCrLf
  strSQL = strSQL & "           , 129" & vbCrLf
  strSQL = strSQL & "           , 130" & vbCrLf
  strSQL = strSQL & "           , 131" & vbCrLf
  strSQL = strSQL & "           , 132" & vbCrLf
  strSQL = strSQL & "           , 133" & vbCrLf
  strSQL = strSQL & "           , 134" & vbCrLf
  strSQL = strSQL & "           , 135" & vbCrLf
  strSQL = strSQL & "           , 136" & vbCrLf
  strSQL = strSQL & "           , 137" & vbCrLf
  strSQL = strSQL & "           , 138" & vbCrLf
  strSQL = strSQL & "           , 139" & vbCrLf
  strSQL = strSQL & "           , 140" & vbCrLf
  strSQL = strSQL & "           , 141" & vbCrLf
  strSQL = strSQL & "           , 142" & vbCrLf
  strSQL = strSQL & "           , 143" & vbCrLf
  strSQL = strSQL & "           , 144 )SELECT [Full Name] " & vbCrLf
  strSQL = strSQL & "           , [2]" & vbCrLf
  strSQL = strSQL & "           , [3]" & vbCrLf
  strSQL = strSQL & "           , [4]" & vbCrLf
  strSQL = strSQL & "           , [5]" & vbCrLf
  strSQL = strSQL & "           , [6]" & vbCrLf
  strSQL = strSQL & "           , [7]" & vbCrLf
  strSQL = strSQL & "           , [8]" & vbCrLf
  strSQL = strSQL & "           , [9]" & vbCrLf
  strSQL = strSQL & "           , [10]" & vbCrLf
  strSQL = strSQL & "           , [11]" & vbCrLf
  strSQL = strSQL & "           , [12]" & vbCrLf
  strSQL = strSQL & "           , [13]" & vbCrLf
  strSQL = strSQL & "           , [14]" & vbCrLf
  strSQL = strSQL & "           , [15]" & vbCrLf
  strSQL = strSQL & "           , [16]" & vbCrLf
  strSQL = strSQL & "           , [17]" & vbCrLf
  strSQL = strSQL & "           , [18]" & vbCrLf
  strSQL = strSQL & "           , [19]" & vbCrLf
  strSQL = strSQL & "           , [20]" & vbCrLf
  strSQL = strSQL & "           , [21]" & vbCrLf
  strSQL = strSQL & "           , [22]" & vbCrLf
  strSQL = strSQL & "           , [23]" & vbCrLf
  strSQL = strSQL & "           , [24]" & vbCrLf
  strSQL = strSQL & "           , [25]" & vbCrLf
  strSQL = strSQL & "           , [26]" & vbCrLf
  strSQL = strSQL & "           , [27]" & vbCrLf
  strSQL = strSQL & "           , [28]" & vbCrLf
  strSQL = strSQL & "           , [29]" & vbCrLf
  strSQL = strSQL & "           , [30]" & vbCrLf
  strSQL = strSQL & "           , [31]" & vbCrLf
  strSQL = strSQL & "           , [32]" & vbCrLf
  strSQL = strSQL & "           , [33]" & vbCrLf
  strSQL = strSQL & "           , [34]" & vbCrLf
  strSQL = strSQL & "           , [35]" & vbCrLf
  strSQL = strSQL & "           , [36]" & vbCrLf
  strSQL = strSQL & "           , [37]" & vbCrLf
  strSQL = strSQL & "           , [38]" & vbCrLf
  strSQL = strSQL & "           , [39]" & vbCrLf
  strSQL = strSQL & "           , [40]" & vbCrLf
  strSQL = strSQL & "           , [41]" & vbCrLf
  strSQL = strSQL & "           , [42]" & vbCrLf
  strSQL = strSQL & "           , [43]" & vbCrLf
  strSQL = strSQL & "           , [44]" & vbCrLf
  strSQL = strSQL & "           , [45]" & vbCrLf
  strSQL = strSQL & "           , [46]" & vbCrLf
  strSQL = strSQL & "           , [47]" & vbCrLf
  strSQL = strSQL & "           , [48]" & vbCrLf
  strSQL = strSQL & "           , [49]" & vbCrLf
  strSQL = strSQL & "           , [50]" & vbCrLf
  strSQL = strSQL & "           , [51]" & vbCrLf
  strSQL = strSQL & "           , [52]" & vbCrLf
  strSQL = strSQL & "           , [53]" & vbCrLf
  strSQL = strSQL & "           , [54]" & vbCrLf
  strSQL = strSQL & "           , [55]" & vbCrLf
  strSQL = strSQL & "           , [56]" & vbCrLf
  strSQL = strSQL & "           , [57]" & vbCrLf
  strSQL = strSQL & "           , [58]" & vbCrLf
  strSQL = strSQL & "           , [59]" & vbCrLf
  strSQL = strSQL & "           , [60]" & vbCrLf
  strSQL = strSQL & "           , [61]" & vbCrLf
  strSQL = strSQL & "           , [62]" & vbCrLf
  strSQL = strSQL & "           , [63]" & vbCrLf
  strSQL = strSQL & "           , [64]" & vbCrLf
  strSQL = strSQL & "           , [65]" & vbCrLf
  strSQL = strSQL & "           , [66]" & vbCrLf
  strSQL = strSQL & "           , [67]" & vbCrLf
  strSQL = strSQL & "           , [68]" & vbCrLf
  strSQL = strSQL & "           , Date() AS SDate " & vbCrLf
  strSQL = strSQL & "           , [70]" & vbCrLf
  strSQL = strSQL & "           , [71]" & vbCrLf
  strSQL = strSQL & "           , [72]" & vbCrLf
  strSQL = strSQL & "           , [73]" & vbCrLf
  strSQL = strSQL & "           , [74]" & vbCrLf
  strSQL = strSQL & "           , [75]" & vbCrLf
  strSQL = strSQL & "           , [76]" & vbCrLf
  strSQL = strSQL & "           , [77]" & vbCrLf
  strSQL = strSQL & "           , [78]" & vbCrLf
  strSQL = strSQL & "           , [79]" & vbCrLf
  strSQL = strSQL & "           , [80]" & vbCrLf
  strSQL = strSQL & "           , [81]" & vbCrLf
  strSQL = strSQL & "           , [82]" & vbCrLf
  strSQL = strSQL & "           , [83]" & vbCrLf
  strSQL = strSQL & "           , [84]" & vbCrLf
  strSQL = strSQL & "           , [85]" & vbCrLf
  strSQL = strSQL & "           , [86]" & vbCrLf
  strSQL = strSQL & "           , [87]" & vbCrLf
  strSQL = strSQL & "           , [88]" & vbCrLf
  strSQL = strSQL & "           , [89]" & vbCrLf
  strSQL = strSQL & "           , [90]" & vbCrLf
  strSQL = strSQL & "           , [91]" & vbCrLf
  strSQL = strSQL & "           , [92]" & vbCrLf
  strSQL = strSQL & "           , [93]" & vbCrLf
  strSQL = strSQL & "           , [94]" & vbCrLf
  strSQL = strSQL & "           , [95]" & vbCrLf
  strSQL = strSQL & "           , [96]" & vbCrLf
  strSQL = strSQL & "           , [97]" & vbCrLf
  strSQL = strSQL & "           , [98]" & vbCrLf
  strSQL = strSQL & "           , [99]" & vbCrLf
  strSQL = strSQL & "           , [100]" & vbCrLf
  strSQL = strSQL & "           , [101]" & vbCrLf
  strSQL = strSQL & "           , [102]" & vbCrLf
  strSQL = strSQL & "           , [103]" & vbCrLf
  strSQL = strSQL & "           , [104]" & vbCrLf
  strSQL = strSQL & "           , [105]" & vbCrLf
  strSQL = strSQL & "           , [106]" & vbCrLf
  strSQL = strSQL & "           , [107]" & vbCrLf
  strSQL = strSQL & "           , [108]" & vbCrLf
  strSQL = strSQL & "           , [109]" & vbCrLf
  strSQL = strSQL & "           , [110]" & vbCrLf
  strSQL = strSQL & "           , [111]" & vbCrLf
  strSQL = strSQL & "           , [112]" & vbCrLf
  strSQL = strSQL & "           , [113]" & vbCrLf
  strSQL = strSQL & "           , [114]" & vbCrLf
  strSQL = strSQL & "           , [115]" & vbCrLf
  strSQL = strSQL & "           , [116]" & vbCrLf
  strSQL = strSQL & "           , [117]" & vbCrLf
  strSQL = strSQL & "           , [118]" & vbCrLf
  strSQL = strSQL & "           , [119]" & vbCrLf
  strSQL = strSQL & "           , [120]" & vbCrLf
  strSQL = strSQL & "           , [121]" & vbCrLf
  strSQL = strSQL & "           , [122]" & vbCrLf
  strSQL = strSQL & "           , [123]" & vbCrLf
  strSQL = strSQL & "           , [124]" & vbCrLf
  strSQL = strSQL & "           , [125]" & vbCrLf
  strSQL = strSQL & "           , [126]" & vbCrLf
  strSQL = strSQL & "           , [127]" & vbCrLf
  strSQL = strSQL & "           , [128]" & vbCrLf
  strSQL = strSQL & "           , [129]" & vbCrLf
  strSQL = strSQL & "           , [130]" & vbCrLf
  strSQL = strSQL & "           , [131]" & vbCrLf
  strSQL = strSQL & "           , [132]" & vbCrLf
  strSQL = strSQL & "           , [133]" & vbCrLf
  strSQL = strSQL & "           , [134]" & vbCrLf
  strSQL = strSQL & "           , [135]" & vbCrLf
  strSQL = strSQL & "           , [136]" & vbCrLf
  strSQL = strSQL & "           , [137]" & vbCrLf
  strSQL = strSQL & "           , [138]" & vbCrLf
  strSQL = strSQL & "           , [139]" & vbCrLf
  strSQL = strSQL & "           , [140]" & vbCrLf
  strSQL = strSQL & "           , [141]" & vbCrLf
  strSQL = strSQL & "           , [142]" & vbCrLf
  strSQL = strSQL & "           , [143]" & vbCrLf
  strSQL = strSQL & "           , [144]" & vbCrLf
  strSQL = strSQL & "        FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');"
DoCmd.RunSQL strSQL

بالتوفيق

New_1 (6).rar

  • Like 1
  • Thanks 1
jjafferr

jjafferr

قام بنشر
قام بنشر
في ٢٨‏/١٢‏/٢٠٢٠ at 02:08, mohamed elalfy said:

انا جربت الكود الي حضرتك تفضلت بيه لكن لا يوجد اي استجابه

للأسف لا يمكن معرفة الخطأ بدون ان تعرض لنا الجملة اللي كتبتها ، علشان نشوفها ونخبرك اين الخطأ !!

 

على العموم ، هذا هو الكود الكامل: 

    Dim mySQL As String

    mySQL = "INSERT INTO " & "[" & y & "]"
    mySQL = mySQL & " ( [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23],[24], [25],"
    mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50],"
    mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75],"
    mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100],"
    mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125],"
    mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], [Sign On Date] ) "
    mySQL = mySQL & " SELECT"
    mySQL = mySQL & " [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23], [24], [25],"
    mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50],"
    mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75],"
    mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100],"
    mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125],"
    mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], Date() AS SDate "
    mySQL = mySQL & " FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');"
    'Debug.Print mySQL
    
    DoCmd.RunSQL mySQL

 

جعفر

  • Like 1
  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept