اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تبديل القيمه الافتراضيه


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

السلام عليكم 

في البرنامج المرفق طيا والذي هو من تصميم استاذتنا الفاضله زهره العبدالله . ادعو الله ان يجعله في ميزان حسناتها . هل ممكن تبديل القيمه الافتراضيه من رقم الى نص  او تاريخ   .  وجزاكم الله خير

تغييرالقيمه الافتراضيه.rar

رابط هذا التعليق
شارك

لتبديل القيمة الإفتراضية إلى تاريخ تجعل الكود هذا مع مراعاة نوع الحقل:

Dim x As Date
x = Date
CurrentProject.Connection.Execute "ALTER TABLE tblORQA1 ALTER [h] date DEFAULT " & x
DoCmd.Close
DoCmd.OpenForm "FASASE"

لتبديل القيمة الإفتراضية إلى نص تجعل الكود هذا:

Dim x As String
x = "officena"
CurrentProject.Connection.Execute "ALTER TABLE tblORQA1 ALTER [c] string DEFAULT " & x
DoCmd.Close
DoCmd.OpenForm "FASASE"

 

1 دقيقه مضت, sandanet said:

اخي الكريم يبدو ان المثال الذي ارفقته غير واضح

أخي المثال واضح و يعمل بشكل جيد

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

18 دقائق مضت, sandanet said:

استاذي العزيز صالح هل يمكن ان تضع لنا مثال جميل يوضح الفكرة جيداً

أخي الكريم @sandanet حسب علمي هناك طريقتن للتعديل على قواعد البيانات

إحداهما الطريقة التي تفضلت بها أنت

و الطريقة الثانية هي باستخدام أوامر sql و قد تناولت موضوعين شرحت فيهم هذه الدوال:

 

 

في المثال الذي تقدم به السائل لدينا هذا السطر أو أمر سكيول هو الذي يقوم بكل شيء:

ALTER TABLE tblORQA1 ALTER [h] date DEFAULT " & x

فالأمر Alter يسمح لنا بالتعديل على الجدول و Alter الثانية تعطينا إمكانية التعديل على الحقل الموجود في هذا الجدول

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته
اخي العزيز sadanet المحترم 
جزاك الله خيرا وجعل ذلك في ميزان حسناتك - عاجز عن انتقاء كلمات الشكر التي تليق بجنابكم الكريم  . لكن ياسيدي كيف يمكنني الاستفاده من هذا النموذج الرائع حيث اني حاولت استيراده الى قاعدة بياناتي للاستفاده منه ولم اتمكن من استيراده هذا اولا وثانيا. ليتسنى لنا الاستفاده منه ارجو ان تضيف له زر ين امر الاول عند الضغط عليه ينفذ امر استبدال القيمه ويعيدنا الى النموذج الذي كنا نعمل عليه وفي مثالي هو نموذج FASASE مع امكانية تغيير اسم النموذج FASASE الى اي اسم اخر لدي  والثاني ينفذ الامر ويغلق النموذج وليس يغلق قاعدة البيانات بالكامل . او اي حل اخر تراه مناسب لانني بحاجة ماسه اليه .  وتقبل تحياتي 


سيدي الفاضل صالح حمادي المحترم
شكرا جزيلا على تواصلك معي . اخي العزيز . في القاعده التي اردت انا تعديل عليها .ارجو ان تقوم بما يلي -  اضف سجل جديد او اكثر الى النموذج FASASE ستلاحظ في كل مره يظهر لك الرقم 31234  . الان اضغط الزر (فتح نموذج تغيير القيمه الافتراضيه)  واستبدل الرقم المذكور برقم جديد وليكن 25 مثلا . ثم اختر تنفيذ واضف سجل جديد ستظهر لك القيمه الافتراضيه الجديده التي هب 25 واضف ماتشاء من السجلات ستظهر نفس القيمه 25 حاول مرة ثانيه استبدالها بالرقم 26 مثلا وكرر ماجاء اعلاه ستلاحظ بان القيمه الجديده تصبح 26 مع كل سجل جديد  . المطلوب بدلا من ادخال رقم اريد ادخال نص  - وليس المطلوب انه في كل مره يظهر لي اوفيسنا ولايمكن تغيير هذه القيمه الا بالدخول الى الكود فاذا كان ذلك ممكنا . ارجو التصحيح على الكود . اكرر شكري لك اخي العزي

رابط هذا التعليق
شارك

3 دقائق مضت, يونس الخطابي said:

المطلوب بدلا من ادخال رقم اريد ادخال نص  - وليس المطلوب انه في كل مره يظهر لي اوفيسنا ولايمكن تغيير هذه القيمه الا بالدخول الى الكود فاذا كان ذلك ممكنا . ارجو التصحيح على الكود . اكرر شكري لك اخي العزي

هذه ليست مشكلة أنا وضعت مثالا للتوضيح فقط

قم بتغيير كلمة أوفيسنا باسم مربع النص لديك Me.h

  • Like 1
رابط هذا التعليق
شارك

1 ساعه مضت, صالح حمادي said:

أخي الكريم @sandanet حسب علمي هناك طريقتن للتعديل على قواعد البيانات

إحداهما الطريقة التي تفضلت بها أنت

@صالح حمادي 

بعد اطيب تحية .. كيف عرفتالطريقة والكود محمي بكلمة مرور ؟

مشكورين

اخي @يونس الخطابي

هل انت تعلم مدى خطورة ماتقوم به ؟ مثلا لو لديك بيانات سابقة في الحقل نص .. وتريد تغير القيمة الافتراضية الى تاريخ مثلا .. الاكسس هنا حسب الطرق اعلاه سيكون هناك نتائج غير متوقعه وخصوصا للبيانات النصية السابقة ؟

 

تم تعديل بواسطه رمهان
رابط هذا التعليق
شارك

3 ساعات مضت, صالح حمادي said:

الطريقة الثانية هي باستخدام أوامر sql و قد تناولت موضوعين شرحت فيهم هذه الدوال:

شكرا لك استاذي العزيز صالح على هذا التوضيح

منذ ساعه, رمهان said:

كيف عرفتالطريقة والكود محمي بكلمة مرور ؟

استاذ رمهان في المرفق الملف بدون كلمة مرور 

 

2 ساعات مضت, يونس الخطابي said:

كيف يمكنني الاستفاده من هذا النموذج الرائع حيث اني حاولت استيراده الى قاعدة بياناتي للاستفاده منه ولم اتمكن من استيراده

أخي يونس جرب المرفق التالي

تغيير القيمة الافتراضية برمجياً .mdb

  • Thanks 1
رابط هذا التعليق
شارك

اخي العزيز صالح حمادي المحترم / هو المطلوب وجزاك الله خير
اخي العزيز sandanet المحترم / هو المطلوب وجزاك الله خير
اخي العزيز  رمهان المحترم  / لم اكن لاجازف واستبدل قيمه في حقل تاريخ بنص وانما قصدت التبديل من تاريخ لاخر وجزاك الله خير على التنبيه

يا اخوتي والله دعوت لكم في ظهر الغيب  كثيرا وختمت دعائي لكم بـ اللهم سخر لهم من يكون لهم عونا على مايريدون من أمور الدنيا والأخره .. وارحم والديهم .. اللهم اني اسالك مقاعد العز لهم ومنتهى الرحمة بهم  .. اللهم امين

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information