تعبئة حقل فى جدول بقيمة tempvar

[MOamen Selema]

السلام عليكم

مطلوب التعديل على الكود لجعله يقوم بملء خانة (اسم المستخدم) فى جدول المبيعات بقيمة tempvar المسمى mm

الكود موجود تحت زر (دفع) الموجود فى form2 ، علما بأنه تم اضافة tempvar بالفعل و له قيمة 

المحل نسخة تجريبية.rar

[jjafferr]

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

 

بما انك ادخلت قيمة واحدة في tempVars ، فللحصول عليها ، يمكنك ان تستعمل

msgbox TempVars![mm]
  
  او
  
msgbox TempVars.Item(0)

 

جعفر

[MOamen Selema]

أنا لا أريدها في msg box

اريد وضعها في خانة جدول

[ابو عارف]

تفضل أخي جرب التعديل

المحل نسخة تجريبية (1).rar

[jjafferr]

13 ساعات مضت, MOamen Selema said:

اريد وضعها في خانة جدول

 

تفضل طريقة تحويل جملة الاستعلام SQL من الكود الى استعلام ، ومن ثم من الاستعلام الى الكود مرة اخرى :

 

1. ادخل في نموذج login حتى يكون لدينا اسم المستخدم في المتغير TempVars!mm في ذاكرة الكمبيوتر (وتظل هذه القيمة في ذاكرة الكمبيوتر الى اغلاق برنامج الاكسس) ، ولنختار المستخدم محمد مثلا (ومافي داعي للنقر على زر "دخول")  :

.

2. نفتح النموذج form2 ، ونذهب الى حدث النقر على الزر "ادفع" حتى نرى الكود :

DoCmd.RunSQL "INSERT INTO المبيعات ( [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس, التاريخ, [نظام الدفع] )  SELECT فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس, Date() AS D, ""نقدي"" AS s  FROM فرعى;"

.

نريد ان نعمل تغيير في جملة SQL هذه ، ونضيف "اسم المستخدم" فيها ، والموجدو في المتغير TempVars!mm ،

أ. نعطي جملة SQL الى متغير ، ولنسميه mySQL ، ثم في اسفل نافذة الكود VBE ، في نافذة Immediate (ولفتح هذه النافذة Ctrl+G) ، نرى جملة الـ SQL كما يراها البرنامج :

dim mySQL as string

mySQL= "INSERT INTO المبيعات ( [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس, التاريخ, [نظام الدفع] )  SELECT فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس, Date() AS D, ""نقدي"" AS s  FROM فرعى;"

debug.print mySQL

DoCmd.RunSQL mySQL

.

ب. انقر على الزر "ادفع" ، فنرى جملة SQL في النافذة :

.

ج. ننسخ هذه الجملة (بما ان الجملة فيها كلمات عربية ، فيجب ان تكون لغة لوحة المفاتيح بالعربية ، حتى نرى الكلمات العربية بالطريقة الصحيحة ، وإلا فهذه الكلمات ستتحول الى حروف اغريقية!!)

اذا تم نسخ الجملة التي فيها كلمات عربية ، ولوحة المفاتيح بالانجليزي:

.

فعند لصقها في الاستعلام (او حتى في المنتدى) ، ستكون هكذا:

.

لذا يتوجب تغيير لوحة المفاتيح الى العربية

.

د. نفتح استعلام جديد ، ونطلب منه فتح نافذة الاستعلام في وضع SQL

.

.

هـ. ثم نلصق جملة SQL التي نسخناها من نافذة VBE Immediate ، الى هذا الاستعلام:

.

ثم نعرض الاستعلام بوضع التصميم ، حتى يسهل علينا فهم جملة SQL :

.

فيصبح الاستعلام هكذا:

.

و. وبتغيير كلمة "نقدي" الى 'نقدي' (لأننا في الاستعلام نستخدم الخط الواحد ' وليس خطين " للنص) ، واضفنا حقل "اسم المستخدم"

.

ز. والآن نحول الاستعلام الى جملة SQL ، وننسخه الى الكود في VBE (ولو اني دائما افضل استعمال الاستعلام بدل الكود ، ولكن الامر راجع اليك) :

.

.

ح. ونضعه في الكود :

    
    'mySQL = "INSERT INTO المبيعات ( [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس, التاريخ, [نظام الدفع] )  SELECT فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس, Date() AS D, ""نقدي"" AS s  FROM فرعى;"
    mySQL = "INSERT INTO المبيعات ( [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس, التاريخ, [نظام الدفع], [اسم المستخدم] )"
    mySQL = mySQL & " SELECT فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس, Date() AS D, 'نقدي' AS s, '" & [TempVars]![mm] & "' AS T"
    mySQL = mySQL & " FROM فرعى;"
    
    Debug.Print mySQL
    
    DoCmd.RunSQL mySQL

.

مع ملاحظة تغيير المتغير الى نص ، حتى يأخذ قيمته مباشرة من TempVars!mm :

.

.

والآن نستخدم النموذج form2 ونجرب الزر:

.

والنتيجة :

.

 

جعفر

1275.المحل نسخة تجريبية.accdb.zip

[ابو عارف]

عذرا لخطاء ارفاق ملف دون حفظه في ارشيف و هذا ملف الجديد

NewFile.rar

[MOamen Selema]

22 ساعات مضت, jjafferr said:

 

تفضل طريقة تحويل جملة الاستعلام SQL من الكود الى استعلام ، ومن ثم من الاستعلام الى الكود مرة اخرى :

 

بارك الله فيك و نفع بك و أكرمك و جزاك من خيره الوافر

شاكر جدا لمجهودك

18 ساعات مضت, ابو عارف said:

عذرا لخطاء ارفاق ملف دون حفظه في ارشيف و هذا ملف الجديد

 

جزاكم الله خيرا أخي الكريم