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

mohamed elalfy · ديسمبر 27, 2020

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

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

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

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** · ديسمبر 27, 2020

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

للعلم ، هذا اللي انت كتبته يسمى جملة 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 جيجا 🙂

جعفر

mohamed elalfy · ديسمبر 27, 2020

الف شكر للمرور الكريم

حجرب وابلغ حضرتك

mohamed elalfy · ديسمبر 27, 2020

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

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

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

mohamed elalfy · ديسمبر 27, 2020

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

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

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

New_1 (6).accdb

mohamed elalfy · ديسمبر 28, 2020

UP

Mohtady · ديسمبر 28, 2020

اخى الفاضل

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

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

_SQL_To_VBA.rar

mohamed elalfy · ديسمبر 28, 2020

شكرا ا مهتدي

لكن هذا ما يظهر عند فتح المرفق

Mohtady · ديسمبر 28, 2020

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

mohamed elalfy · ديسمبر 28, 2020

خاولت اشتغل على الاستعلام بنفس الكود لكن هكذا كانت النتيجه

Mohtady · ديسمبر 28, 2020

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

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

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

mohamed elalfy · ديسمبر 28, 2020

34 دقائق مضت, مهتدي said:

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

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

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

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

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

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

مهتدي.docx

Mohtady · ديسمبر 28, 2020

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

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

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

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

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

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

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

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

mohamed elalfy · ديسمبر 28, 2020

1 ساعه مضت, مهتدي said:

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

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

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

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

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

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

**ابوبسمله** · ديسمبر 28, 2020

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

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

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

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

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

  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

mohamed elalfy · ديسمبر 28, 2020

الف شكر استاذ احمد

حجرب وابلغ حضرتك

mohamed elalfy · ديسمبر 28, 2020

@احمد الفلاحجي

مش عارف اشكر حضرتك ازاي

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

الف شكر

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

@مهتدي

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

**ابوبسمله** · ديسمبر 28, 2020

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

والشكر موصول لاستاذنا العزيز @jjafferr والاخ الفاضل @مهتدي 💐

بالتوفيق

**jjafferr** · ديسمبر 29, 2020

في ٢٨‏/١٢‏/٢٠٢٠ 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

جعفر

تسجيل الدخول

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

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

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

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

شارك

Join the conversation

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

Important Information