اذهب الي المحتوي
أوفيسنا

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

مهند الزيدي

بواسطه مهند الزيدي
في قسم الأكسيس Access

 مشاركة

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

مهند الزيدي

مهند الزيدي

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

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

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

'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

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

 

جعفر

  • Like 1
ابو ياسين المشولي

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

قام بنشر
قام بنشر (معدل)
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]));

 

تم تعديل بواسطه ابو ياسين المشولي
jjafferr

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

.

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

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

997_222.jpg.9f5ab036ce86321c3d899e9684c1e4cb.jpg

.

جعفر

  • Thanks 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept