الأخوة الأعزاء
السلام عليكم
أريد كود لزر يشغل العبارة :
UPDATE [سندات القبض ص] SET [سندات القبض ص].اختيار = -1 WHERE ((([forms]![سندات القبض ص]![نص46])=[forms]![سندات القبض ص]![نص144]));
الناتجة لتشغيل استعلام تحديث ؟
تم تعديل هذه المشاركة بواسطة zahrah في 28 أبريل 2007 في 08:55
اخي الكريم تفضل الكود كالتالي:
Docmd.RunSQL "UPDATE [سندات القبض ص] SET [سندات القبض ص].اختيار = -1 WHERE ((([forms]![سندات القبض ص]![نص46])=[forms]![سندات القبض ص]![نص144]));"
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
الأخ الكريم همام
شكرا لك على تجاوبك
ولكن عندما نسخت هذا الكود كتب السطر الأخير
WHERE ((([forms]![سندات القبض ص]![نص46])=[forms]![سندات القبض ص]![نص144]));"
بالأحمر فماذا أفعل ؟
وكيف أرفق لكم الكود بالطريقة هذه التي تعرضونها ؟
اخي الكريم..
عند كتابة كود SQL بعدة اسطر يجب مراعاة استخدام العلامة _ UnderScore بعد علامة التنصيص " في السطر الاول واستخدام & قبل بداية السطر الثاني وقبل اشارة التنصيص " وعذرا فاتني قول ذلك لانني في الكود الذي ارفقته لك كتبته في سطر واحد وعند عرضه ظهر في سطرين ولم انتبه فشكرا لك..
هكذا
Docmd.RunSQL "UPDATE [سندات القبض ص] SET [سندات القبض ص].اختيار = -1 " _ & " WHERE ((([forms]![سندات القبض ص]![نص46])=[forms]![سندات القبض ص]![نص144]));"
بالنسبة لادراج كود كما فعلت انا انظر الصور المرفقة وتحديدا ايقونة او رمز ادخال كود وهي موجودة في شريط الرد السريع..
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 27 أبريل 2007 في 14:02
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
الله يجزيك خيرا ً
INSERT INTO [ايجار قديم] SELECT [بيانات الإيجار].* FROM [بيانات الإيجار] WHERE (((Int(DateDiff("m",[بداية الايجار],Now())/12))>1));تم تعديل هذه المشاركة بواسطة zahrah في 28 أبريل 2007 في 08:44
INSERT INTO [ايجار قديم] SELECT [بيانات الإيجار].* FROM [بيانات الإيجار] WHERE (((Int(DateDiff("m",[بداية الايجار],Now())/12))>1));UPDATE [بيانات الإيجار] SET [بيانات الإيجار].[بداية الايجار] = IIf(Int(DateDiff("m",[بداية الايجار],Now())/12)>1,[بداية الايجار]+6*Int(DateDiff("m",[بداية الايجار],Now())/12)*59,[بداية الايجار]) WHERE ((([بيانات الإيجار].[ترك السكن])=0));تم تعديل هذه المشاركة بواسطة zahrah في 28 أبريل 2007 في 08:46
السلام عليكم ورحمة الله وبركاته
إضافة إلى ماتفضل به الأخ الكريم همام
إذا كان الكود SQL كما في مثالك يستحسن إستخدام وسم SQL هكذا
Docmd.RunSQL "UPDATE [سندات القبض ص] SET [سندات القبض ص].اختيار = -1 WHERE ((([forms]![سندات القبض ص]![نص46])=[forms]![سندات القبض ص]![نص144]));"
تحياتي
أخوكم اكسير
اهلا بك اكسير التدخل السريع.... قائد فرق الانقاذ..
والله فاتتني...شكرا جزيلا..
Docmd.RunSQL "UPDATE [سندات القبض ص] SET [سندات القبض ص].اختيار = -1 " _ & " WHERE ((([forms]![سندات القبض ص]![نص46])=[forms]![سندات القبض ص]![نص144]));"
طبعا طبعا ستظهر باللون الاحمر بسبب وجود علامات التنصيص والUnderScores وغيرها...
لكن هذا طلب الاخ..
تحياتي اكسير...
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 27 أبريل 2007 في 21:04
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
تحياتي لكم إخواني الكرام
لم أستطع إلى الآن كيفية إدراج كود كما تفعلون
كما لو تفضلتم تمنون علينا بطريقة تنقيذ كود أي استعلام بأنواعه المختلفة بزر في نموذج دون الحاجة إلى وجود الاستعلام
بمعنى : بعد انشاء الاستعلام نأخذ الكود حقه ونضعه خلف زر ونحذف الاستعلام فكيف ذلك مشكورين ؟
هذا الموضوع مغلق.