كيف اجعل في الحقل Text_Value قيمة افتراضية في لو اضفنا سجل وكانت خانة الحقل Text_Value فارغة
مثلاً نضيف النص (V200001011230) كقيمة افرتاضية في حالة اضافة سجل وكان الحقل فارغ ليس به بيانات يتم اضافة النص الافتراضي
قمت بعمل الموضح بالصورة ولكن لم يعطي نتائج صحيحة
تم تعديل هذه المشاركة بواسطة aftfm في 13 أكتوبر 2014 في 15:48
وعليكم السلام اخي :)
طريقتك صحيحة ، ويمكنك الاستغناء عن الاشارة = :)
ولكن ، يجب ادخال اي معلومة في السجل حتى يتم استعمال القيمة الافتراضية :)
في المرفق ، انا اضفت حقل Any_Number ، بحيث لما تدخل اي رقم ، فسترى ان القيمة الافتراضية تم تسجيلها ، وفي نفس الوقت يظهر التاريخ :)
جعفر
الف شكر اخي العزيز جعفر
جميل لكن عندي مشكلة عند الاضافة عن طريق الفيجوال بيسك لا يقوم باضافة القيمة الافتراضية لا اعرف ما هو السبب :(
حياك الله :)
جرب القيمة الافتراضية بدون اشارة = .
VB مالها علاقة بطريقة عمل جدول الاكسس ، يعني Vb بيطلب اضافة سجل ، فالجدول لما يضيف سجل ، فانه تلقائيا سيضيف القيمة الافتراضية للحقل :)
جعفر
ما جعلني اقول انه من كود الاضافة عن طريق الفيجوال
هن انني عندما قمت بوضع بيانات في الحقل بيدي مشي الحال تمام
ولكن بعد اضافة البيانات عن طريق الفيجوال لم يتم وضع القيمة الافتراضية في السجل
آسف أخوي ، ما عندي فكرة :(
بس تأكد انك في كود Vb ما ادخلت قيمة للحقل Text_Stamp ،
جعفر
طب سؤال اخير
هل من الممكن في الاستعلام السابق استخدام قاعدة if
بحيث لو كان الحقل Text_Value فارغ يتم اضافة البيانات ا لافتراضية
ولكن في الاستعلام وليس في الحقل المحسوب
وعليكم السلام :)
وطيب ليش هاللف والدوران ، ليش ما تستخدم المعادلة اللي اعطيتك (هم معادلتين وجربهم الاثنين) في الكود مباشرة علشان تحسب التاريخ من Text_stamp؟
هذه الطريقة مباشرة ومافيها اعتماد على الاكسس :)
ومع اني ما لمست Vb لمدة طويلة ، فاذا حبيت ارفق برنامجك Vb بكل connections حقته ، وانا بشوف اللي اقدر اعمله ان شاء الله :)
جعفر
السلام عليكم ورحمة الله وبركاته
هذا مثال vb.net 2008 :blush:
المطلوب عند اضافة فقط الاسم يتم اضافة البيانات الافتراضية للحقل Text_Value
وفي حالة تم اضافة البيانات للحقل Text_Value لا يضيف البيانات الاضافية
جعفر
شكرا اخي ، بس انا يا الله افهم في vb ، ولا علم لي في vb.net :(
بس اللي لاحظته ، هو اني اضفت سجلين في vb ، ولكن لم يتم اضافتهم للجدول ، فاعتقد المشكلة موجودة في شئ آخر ، والله العالم :)
جعفر
لا حرمك الله الاجر بارك الله فيك
السلام عليكم ورحمة الله وبركاته
اخواني جزاكم الله خير
في استعلام من نوع تحديث وحسب ما افادنا مشكور اخونا جعفر اثابه الله
في حالة كان حقل Text_Stamp فارغ يظهر خطأ
في حالة تنفيذ استعلام من نوع تحديث
السلام عليكم :)
غير استعلام التحديث الى:
UPDATE tbl1 SET tbl1.L_Date = IIf(Len(Nz([Text_Stamp],0) & "")=1,Null,CDate(Mid([Text_Stamp],2,4) & "/" & Mid([Text_Stamp],6,2) & "/" & Mid([Text_Stamp],8,2)));
واللي عملناه هو ، اننا نطلب من الكود حساب طول البيانات في الحقل [Text_Stamp] (وقبل حساب طوله ، نطلب منه تحويل قيمة Null الى صفر عن طريق الامر Nz) ، بهذا الكود:
Len(Nz([Text_Stamp],0) & "")=1
واذا كان نتيجة الطول هو 1 ، فإننا نطلب من الكود ان يضع القيمة Null في حقل التاريخ ،
وإلا ، اي عندما يكون الحقل [Text_Stamp] يحتوي على قيمة ، فالكود يقوم بعملع السابق ، وذلك بتحويل جزء من قيمة [Text_Stamp] الى تاريخ :)
بمعنى آخر:
اننا جعلنا الكود لا ينظر الى امر التاريخ (وهذا الذي كان يسبب الخطأ) ، إلا اذا كانت هناك قيمة في الحقل [Text_Stamp] :)
جعفر