تقسم الكود على اكثر من سطر لسهولة المعاينة

[مهند الزيدي]

السلام عليكم ..

ممطن طريقة تقسم الكود لاكثر من سطر لسهولة المعاينة علماَ اني إستخدمت (_) وظهر خطأ ..

'DoCmd.RunSQL "insert into T1 ([a],,[c],[d],[e],[f],[g],[h],,[j],[k]) values('" & rs.Fields(1) & "', '" & rs.Fields(2) & "', '" & rs.Fields(3) & "', '" & rs.Fields(4) & "', '" & rs.Fields(5) & "', '" & rs.Fields(6) & "', '" & rs.Fields(7) & "', '" & rs.Fields(8) & "', '" & rs.Fields(9) & "', '" & rs.Fields(10) & "', '" & rs.Fields(0) & "')"

وان تكون النتيجة النهائية للكود 

 

'DoCmd.RunSQL "insert into T1 ([a],,[c] _

 

,[d],[e],[f],[g] _

,[h],,[j],[k]) values('" & rs.Fields(1) & "', '" & rs.Fields(2) & "', '" & rs.Fields(3) & _

"', '" & rs.Fields(4) & "', '" & rs.Fields(5) & "', '" & rs.Fields(6) & "', '" & rs.Fields(7) & "', '" & rs.Fields(8) & "', '" & rs.Fields(9) & "', '" & rs.Fields(10) & "', '" & rs.Fields(0) & "')"

 

[jjafferr]

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

 

انا استعمل هذه الطريقة:

    mySQL = "insert into T1"
    mySQL = mySQL & " ([a],,[c],[d],[e],[f],[g],[h],,[j],[k]) values('"
    mySQL = mySQL & " & " & rs.Fields(1) & "', '"
    mySQL = mySQL & " & " & rs.Fields(2) & "', '"
    mySQL = mySQL & " & " & rs.Fields(3) & "', '"
    mySQL = mySQL & " & " & rs.Fields(4) & "', '"
    mySQL = mySQL & " & " & rs.Fields(5) & "', '"
    mySQL = mySQL & " & " & rs.Fields(6) & "', '"
    mySQL = mySQL & " & " & rs.Fields(7) & "', '"
    mySQL = mySQL & " & " & rs.Fields(8) & "', '"
    mySQL = mySQL & " & " & rs.Fields(9) & "', '"
    mySQL = mySQL & " & " & rs.Fields(10) & "', '"
    mySQL = mySQL & " & " & rs.Fields(0) & "')"
    
    DoCmd.RunSQL mySQL

 

جعفر

[ابو ياسين المشولي]

32 دقائق مضت, jjafferr said:

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

 

انا استعمل هذه الطريقة:

    mySQL = "insert into T1"
    mySQL = mySQL & " ([a],,[c],[d],[e],[f],[g],[h],,[j],[k]) values('"
    mySQL = mySQL & " & " & rs.Fields(1) & "', '"
    mySQL = mySQL & " & " & rs.Fields(2) & "', '"
    mySQL = mySQL & " & " & rs.Fields(3) & "', '"
    mySQL = mySQL & " & " & rs.Fields(4) & "', '"
    mySQL = mySQL & " & " & rs.Fields(5) & "', '"
    mySQL = mySQL & " & " & rs.Fields(6) & "', '"
    mySQL = mySQL & " & " & rs.Fields(7) & "', '"
    mySQL = mySQL & " & " & rs.Fields(8) & "', '"
    mySQL = mySQL & " & " & rs.Fields(9) & "', '"
    mySQL = mySQL & " & " & rs.Fields(10) & "', '"
    mySQL = mySQL & " & " & rs.Fields(0) & "')"
    
    DoCmd.RunSQL mySQL

 

جعفر

تسلم اخيjjafferr كيف  بايكون لهذا الكود

INSERT INTO Data4 ( rakm, name, daftar, nofatora, [user], [date], sar, madfoa, taslim, datew, bage, kasm, tob, taslim2, date2, komash, quntt, komash1, quntt1, komash2, quntt2, komash3, quntt3, komash4, quntt4, komash5, quntt5, komash6, quntt6, komash7, quntt7, molhda, oakt, goal, الطول, الكتف, [طول اليد], الرقبة, الوسع, [وسع اليد], [وسع اليد1], [وسع اليد 2], [طقطق مع زر], [الوسع الاسفل], [كفه اسفل], حشوه, جيبزور, يد, جيب, [رقبة قلاب], [رقبة سادة], خياطه, [جيب جوال], [الثوب كامل دقتين], تطريز, زرار, ملاحظات, ملون, astalim, notaslem, astalim2, date3, kiyat, date4, x1, 1, 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, نص1, نص2, نص3, نص4, نص5, نص6, نص7, نص8, نص9, نص10, نص11, نص12, نص13, نص14, نص15, نص16, نص17, sora, date5, رقم_القماش, رقم_القماش1, رقم_القماش2, رقم_القماش3, رقم_القماش4, رقم_القماش5, رقم_القماش6, رقم_القماش7, daraba )
SELECT Data.rakm, Data.name, Data.daftar, Data.nofatora, Data.User, Data.Date, Data.sar, Data.madfoa, Data.taslim, Data.datew, Data.bage, Data.kasm, Data.tob, Data.taslim2, Data.date2, Data.komash, Data.quntt, Data.komash1, Data.quntt1, Data.komash2, Data.quntt2, Data.komash3, Data.quntt3, Data.komash4, Data.quntt4, Data.komash5, Data.quntt5, Data.komash6, Data.quntt6, Data.komash7, Data.quntt7, Data.molhda, Data.oakt, Data.goal, Data.الطول, Data.الكتف, Data.[طول اليد], Data.الرقبة, Data.الوسع, Data.[وسع اليد], Data.[وسع اليد1], Data.[وسع اليد 2], Data.[طقطق مع زر], Data.[الوسع الاسفل], Data.[كفه اسفل], Data.حشوه, Data.جيبزور, Data.يد, Data.جيب, Data.[رقبة قلاب], Data.[رقبة سادة], Data.خياطه, Data.[جيب جوال], Data.[الثوب كامل دقتين], Data.تطريز, Data.زرار, Data.ملاحظات, Data.ملون, Data.astalim, Data.notaslem, Data.astalim2, Data.date3, Data.kiyat, Data.date4, Data.x1, Data.[1], Data.[2], Data.[3], Data.[4], Data.[5], Data.[6], Data.[7], Data.[8], Data.[9], Data.[10], Data.[11], Data.[12], Data.[13], Data.[1
], Data.[15], Data.[16], Data.[17], Data.[18], Data.[19], Data.[20], Data.[21], Data.[22], Data.[23], Data.[24], Data.[25], Data.[26], Data.[27], Data.[28], Data.[29], Data.[30], Data.[31], Data.[32], Data.[33], Data.[34], Data.[35], Data.[36], Data.[37], Data.[38], Data.[39], Data.[40], Data.[41], Data.[42], Data.[43], Data.[44], Data.[45], Data.[46], Data.[47], Data.[48], Data.[49], Data.[50], Data.[51], Data.[52], Data.[53], Data.[54], Data.[55], Data.[56], Data.[57], Data.نص1, Data.نص2, Data.نص3, Data.نص4, Data.نص5, Data.نص6, Data.نص7, Data.نص8, Data.نص9, Data.نص10, Data.نص11, Data.نص12, Data.نص13, Data.نص14, Data.نص15, Data.نص16, Data.نص17, Data.sora, Data.date5, Data.رقم_القماش, Data.رقم_القماش1, Data.رقم_القماش2, Data.رقم_القماش3, Data.رقم_القماش4, Data.رقم_القماش5, Data.رقم_القماش6, Data.رقم_القماش7, Data.daraba
from Data
WHERE (((Data.nofatora)=[Forms]![DATA]![رقم الفاتورة2]));

 

تم تعديل فبراير 2, 2019 بواسطه ابو ياسين المشولي

[jjafferr]

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

 

اقترح عليك ان تضع كل 5 حقول في سطر واحد (مثلا) ، ثم تعطي كل سطر رقم تسلسل (لاحظ الصورة المرفقة) :

    Dim mySQL As String
'1
    mySQL = " INSERT INTO Data4"
    mySQL = mySQL & " ( rakm, name, daftar, nofatora, [user], "     '1
    mySQL = mySQL & " [date], sar, madfoa, taslim, datew, "         '2
    mySQL = mySQL & " bage, kasm, tob, taslim2, date2, "            '3
    mySQL = mySQL & " komash, quntt, komash1, quntt1, komash2, "    '4
    mySQL = mySQL & " quntt2, komash3, quntt3, komash4, quntt4, "   '5
    mySQL = mySQL & " komash5, quntt5, komash6, quntt6, komash7, "  '6
    mySQL = mySQL & " quntt7, molhda, oakt, goal, "                 '7
    mySQL = mySQL & " الطول, الكتف, [طول اليد], الرقبة, الوسع, "    '8
    mySQL = mySQL & " [وسع اليد], [وسع اليد1], [وسع اليد 2], [طقطق مع زر], [الوسع الاسفل], "    '9
    mySQL = mySQL & " [كفه اسفل], حشوه, جيبزور, يد, جيب, "                                     '10
    mySQL = mySQL & " [رقبة قلاب], [رقبة سادة], خياطه, [جيب جوال], [الثوب كامل دقتين], "        '11
    mySQL = mySQL & " تطريز, زرار, ملاحظات, ملون, "                      '12
    mySQL = mySQL & " astalim, notaslem, astalim2, date3, kiyat, "      '13
    mySQL = mySQL & " date4, x1, 1, 2, 3, "             '14
    mySQL = mySQL & " 4, 5, 6, 7, 8, "                  '15
    mySQL = mySQL & " 9, 10, 11, 12, 13, "              '16
    mySQL = mySQL & " 14, 15, 16, 17, 18, "             '17
    mySQL = mySQL & " 19, 20, 21, 22, 23, "             '18
    mySQL = mySQL & " 24, 25, 26, 27, 28, "             '19
    mySQL = mySQL & " 29, 30, 31, 32, 33, "             '20
    mySQL = mySQL & " 34, 35, 36, 37, 38, "             '21
    mySQL = mySQL & " 39, 40, 41, 42, 43, "             '22
    mySQL = mySQL & " 44, 45, 46, 47, 48, "             '23
    mySQL = mySQL & " 49, 50, 51, 52, 53, "             '24
    mySQL = mySQL & " 54, 55, 56, 57, "                 '25
    mySQL = mySQL & " نص1, نص2, نص3, نص4, نص5, "        '26
    mySQL = mySQL & " نص6, نص7, نص8, نص9, نص10, "       '27
    mySQL = mySQL & " نص11, نص12, نص13, نص14, نص15, "   '28
    mySQL = mySQL & " نص16, نص17, sora, date5, "        '29
    mySQL = mySQL & " رقم_القماش, رقم_القماش1, رقم_القماش2, رقم_القماش3, رقم_القماش4, "     '30
    mySQL = mySQL & " رقم_القماش5, رقم_القماش6, رقم_القماش7, daraba )"                      '31
'2
    mySQL = mySQL & " SELECT "
    mySQL = mySQL & " rakm, name, daftar, nofatora, User, "         '1
    mySQL = mySQL & " Date, sar, madfoa, taslim, datew, "           '2
    mySQL = mySQL & " bage, kasm, tob, taslim2, date2, "            '3
    mySQL = mySQL & " komash, quntt, komash1, quntt1, komash2, "    '4
    mySQL = mySQL & " quntt2, komash3, quntt3, komash4, quntt4, "   '5
    mySQL = mySQL & " komash5, quntt5, komash6, quntt6, komash7, "  '6
    mySQL = mySQL & " quntt7, molhda, oakt, goal, "                 '7
    mySQL = mySQL & " الطول, الكتف, [طول اليد], الرقبة, الوسع, [وسع اليد], "
    mySQL = mySQL & " [وسع اليد1], [وسع اليد 2], [طقطق مع زر], [الوسع الاسفل], "
    mySQL = mySQL & " [كفه اسفل], حشوه, جيبزور, يد, جيب, [رقبة قلاب], [رقبة سادة], خياطه, "
    mySQL = mySQL & " [جيب جوال], [الثوب كامل دقتين], تطريز, زرار, ملاحظات, ملون, "
    mySQL = mySQL & " astalim, notaslem, astalim2, date3, kiyat, date4, x1, "
    mySQL = mySQL & " [1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [1], "
    mySQL = mySQL & " [15], [16], [17], [18], [19], [20], [21], [22], "
    mySQL = mySQL & " [23], [24], [25], [26], [27], [28], [29], [30], "
    mySQL = mySQL & " [31], [32], [33], [34], [35], [36], [37], [38], "
    mySQL = mySQL & " [39], [40], [41], [42], [43], [44], [45], [46], "
    mySQL = mySQL & " [47], [48], [49], [50], [51], [52], [53], [54], [55], [56], [57], "
    mySQL = mySQL & " نص1, نص2, نص3, نص4, نص5, نص6, نص7, نص8, نص9, "
    mySQL = mySQL & " نص10, نص11, نص12, نص13, نص14, نص15, نص16, نص17, "
    mySQL = mySQL & " sora, date5, "
    mySQL = mySQL & " رقم_القماش, رقم_القماش1, رقم_القماش2, رقم_القماش3, "
    mySQL = mySQL & " رقم_القماش4, رقم_القماش5, رقم_القماش6, رقم_القماش7, daraba "
    
    mySQL = mySQL & " from Data"
    mySQL = mySQL & " WHERE nofatora=" & [Forms]![Data]![رقم الفاتورة2]

    DoCmd.RunSQL mySQL

.

اذا تلاحظ الخطين الاحمرين ، بحيث كل رقم من الاعلى ، له رقمه في الاسفل ، وهي نفس الحقول التي تُدرج فيه البيانات ،

وبهذه الطريقة المنظمة ، يمكنك اكتشاف الاخطاء :

.

جعفر

[ابو ياسين المشولي]

سلمت يمناك اخي jjafferr