Matin_Murad قام بنشر يوليو 29, 2022 قام بنشر يوليو 29, 2022 اريد تغير قيمة افتراضية حقل غير منضم بواسطة ( زر و حقل غير منضم ) اخرى قيمة افتراضية.accdb
متقاعد قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 7 ساعات مضت, Matin_Murad said: اريد تغير قيمة افتراضية حقل غير منضم بواسطة ( زر و حقل غير منضم ) اخرى ممكن عمل ذلك ولكن الاجراء الصحيح ان يكون لدينا جدول للقيم الثابتة للبرنامج على كل حال في زر الامر نضع الكود Dim x As String x = BB DoCmd.OpenForm "form1", acDesign Forms!form1!AA.DefaultValue = x DoCmd.close acForm, "form1", acSaveYes DoCmd.OpenForm "form1" معنى الامر حسب ترتيب الاسطر احجز متغيير نصي اسمه اكس قيمة المتغيير اكسس تساوي المكتوب في حقل bb افتح النموذج في عرض التصميم اجعل القيمة الافتراضية للحقل aa تساوي المتغيير x اغلق النموذج مع حفظ التغيير اعد فتح النموذج ----------------------------- ملاحظة 1 هذا الكود لن يعمل اذا كانت القاعدة بصيغة Accde او mde ملاحظة 2 عند الرغبة كتابة نص للقيمة الافتراضية نكتب في حقل bb النص هكذا 'منتهي' اما الارقام فتكتب بشكل عادي تحياتي والملف مرفق قيمة افتراضية.accdb 4
أبو امين قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 (معدل) معلومة جيدة . مشكور استاذ .. ماذا تعني بجدول القيم القيم الثابتة للبرنامج ... رجاءا افدنا بالمعلومة بمثال ان امكن نحن نريد التعلم و الاستفادة من حضرتكم جعلها االه في ميزان حسناتك تم تعديل يوليو 30, 2022 بواسطه derbali ammar 1
متقاعد قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 35 دقائق مضت, derbali ammar said: ماذا تعني بجدول القيم القيم الثابتة للبرنامج القيم الثابتة هي مجموعة من الحقول تحتوي على بيانات نحتاج الى استخدامها في انحاء متفرقة من البرنامج مثال لدينا برنامج للمدرسة ونرغب في توزيعة او بيعة لعدة مدارس هل نقوم بكتابة اسم المدرسة وعنوانها وارقام الاتصال واسم المدير والمنطقة التعليمية وووو الخ في كل التقارير والنماذج الخ او اذا كان برنامج للفواتير هل نكتب كل مرة اسم المؤسسة وعنوانها والرقم الضريبي ونسبة الضريبة والحد الاعلى للحسم ... الخ الاجابة لا وانما يكون لدينا جدول لهذه الحقول ونموذج لادخال بيانات لهذا الجدول ويقوم المستفيد من البرنامج بادخال هذه البيانات عند اول استخدام للبرنامج فقط ساحول تبسيط الامر انت مثلا عملت برنامج لمدرسة اسمها مدرسة أكودة الاعدادية وترغب في وضع اسم المدرسة على التقارير بدون استخدام هذه القيم انت ستقوم بفتح التقرير في وضع التصميم ثم تستخدم حقل نص او عنوان وتكتب اسم المدرسة ولو اردت بيعة على مدرسة اخرى ستقوم بهذا التعديل اليدوي وهكذا كل مرة اما عند استخدام القيم كل المطلوب ان نضع حقل نصي لاسم المدرسة يحصل على قيمته من جدول القيم وبالتالي يقوم مدير المدرسة بكتابت اسمها مرة واحدة في الجدول وسيظهر الاسم في التقرير هذا هو المقصود بالقيم الثابتة تحياتي 2
Moosak قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 مشاركة مع معلمنا الكبير @مبرمج سابق ، ولحل قضية نوع البيانات المدخلة هذا تعديل بسيط على الكود ليستقبل أرقام أو نصوص أو تواريخ بدون الحاجة لوضع الأقواس أو ال # : 🙂 Dim dv As String dv = Nz(BB, " ") DoCmd.OpenForm "form1", acDesign Select Case dv Case IsNumeric(dv): [Forms]![form1]!AA.DefaultValue = dv Case IsDate(dv): [Forms]![form1]!AA.DefaultValue = "#" & dv & "#" Case Else [Forms]![form1]!AA.DefaultValue = "'" & dv & "'" End Select DoCmd.close acForm, "form1", acSaveYes DoCmd.OpenForm "form1", acNormal قيمة افتراضية.accdb 3
متقاعد قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 14 دقائق مضت, Moosak said: هذا تعديل بسيط على الكود ليستقبل أرقام أو نصوص أو تواريخ بدون الحاجة لوضع الأقواس احسنت استاذنا الفاضل @Moosak والحقيقة لم احرص في مشاركتي على احترازات نوع الحقول لكون الطريقة في الاساس ليست عمليه ولن تعمل عند تحويل القاعدة وانما وضعت المشاركة ردا على سؤال الاستاذ مراد واشرت بوضوح الى انها ليست الاجراء الصحيح تحياتي 3
متقاعد قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 (معدل) 1 ساعه مضت, Moosak said: ليستقبل أرقام أو نصوص أو تواريخ بدون الحاجة لوضع الأقواس أو ال # ايضا اذا اردنا التعامل مع حقل كحقلي نصي ويقبل جميع التنسيقات وبدون زيادة عدد اسطر الكود Dim x As String x = Nz(BB, "") DoCmd.OpenForm "form1", acDesign Forms!form1!AA.DefaultValue = "'" & x & "'" DoCmd.close acForm, "form1", acSaveYes DoCmd.OpenForm "form1" الملف مرفق قيمة افتراضية(2).accdb تم تعديل يوليو 30, 2022 بواسطه مبرمج سابق 3
Moosak قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 4 ساعات مضت, مبرمج سابق said: ايضا اذا اردنا التعامل مع حقل كحقلي نصي ويقبل جميع التنسيقات وبدون زيادة عدد اسطر الكود أحسنت مهندسنا العزيز 🙂 ولكن ربما نضطر لوضع الأسطر البرمجية التي استغنينا عنها الآن لاحقاً عندما نريد أن نستخدم قيمة الحقل لتفنيد نوع البيانات 😅 3
متقاعد قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 (معدل) 46 دقائق مضت, Moosak said: حسنت مهندسنا العزيز ياهلا بالاستاذ موسى الحقيقة انا لست مهندس كنت مبرمج ثم تدرجت في هذا المجال الى ان انهيت مساري الوظيفي بطلب التقاعد 46 دقائق مضت, Moosak said: ولكن ربما نضطر لوضع الأسطر البرمجية التي استغنينا عنها الآن لاحقاً عندما نريد أن نستخدم قيمة الحقل لتفنيد نوع البيانات 😅 نعود للموضوع دائما عندما اضع مشاركة لا اشير الى انها حل بديل وانما كطريقه اخرى للحل وعندما يكون هناك اكثر من حل وجميعها تؤدي للمطلوب فانني افضل حينها الاخذ بمبدأ اوكام اما بشأن ما نريده لاحقا فهناك دائما حلول ولكن لكل حدث حديث تحياتي وتقديري 🌹 تم تعديل يوليو 30, 2022 بواسطه مبرمج سابق 2
Moosak قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 1 دقيقه مضت, مبرمج سابق said: الحقيقة انا لست مهندس كنت مبرمج ثم تدرجت في هذا المجال الى ان انهيت مساري الوظيفي بطلب التقاعد تظل في عيني مهندس .. ومن كبار المهندسين 😊 وليست الهندسة هنا شهادة تعليمية ( ورقية ) .. ولكنها مكانة علمية وقيمة واجب علينا تقديرها 👍🏼😉 4 دقائق مضت, مبرمج سابق said: نعود للموضوع دائما عندما اضع مشاركة لا اشير الى انها حل بديل وانما كطريقه اخرى للحل وعندما يكون هناك اكثر من حل وجميعها تؤدي للمطلوب فانني افضل حينها الاخذ بمبدأ اوكام اما بشأن ما نريده لاحقا فهناك دائما حلول ولكن حدث حديث تحياتي وتقديري 🌹 نعم مهندسنا العزيز كما قلت .. وما كان تعليقي إلا إضافة لما تفضلت به .. والمقصد هو توضيح الصورة للمبرمج وتوسيع الأبعاد لما يمكن أن يواجه لاحقا ووضع السيناريوهات المختلفة للأمر 🙂 تحياتي وتقديري 🌹 3
متقاعد قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 6 دقائق مضت, Moosak said: وما كان تعليقي إلا إضافة لما تفضلت به .. والمقصد هو توضيح الصورة للمبرمج وتوسيع الأبعاد لما يمكن أن يواجه لاحقا ووضع السيناريوهات المختلفة للأمر 🙂 احسنت استاذنا العزيز الحقيقة كلما شاهدت مشاركة لك تذكرت اخ وصديق عزيز اقتعني بالعودة ثم اختفى 😃 اسأل الله ان يعود سالما غانما تحياتي 3
Moosak قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 3 دقائق مضت, مبرمج سابق said: تذكرت اخ وصديق عزيز اقتعني بالعودة ثم اختفى 😃 كلنا نفتقده .. أعاده الله إلينا سالما غانما 😊 2
Matin_Murad قام بنشر يوليو 30, 2022 الكاتب قام بنشر يوليو 30, 2022 شكرا استاذ ( Moosak , مبرمج السابق و derbali ammar ) تم تغير قيمة افتراضية ولاكن بعد تغير الى accde لا یتغیر قیمة افتراضية ... يتغير عند accdb ولا یوجد حل لتغیر قیمة افتراضية لمربع النص غير منضم مع مربع النص الخر غير منضم
عبد الله قدور قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بالنسبة لي انا استخدم الطريقة التالية اضيف جدول باسم options اضع فيه اعدادات و القيم الافتراضية التي اريدها للكائنات في النموذج الاصلي استخدم الدالة dlookup لاحضار القيمة الافتراضية للكائنات بهذه الطريقة يستطيع المستخدم تحديد القيم الافتراضية كما يشاء وبسهولة 3
أفضل إجابة متقاعد قام بنشر يوليو 30, 2022 أفضل إجابة قام بنشر يوليو 30, 2022 منذ ساعه, Matin_Murad said: تم تغير قيمة افتراضية ولاكن بعد تغير الى accde لا یتغیر قیمة افتراضية سبق ان تم ايضاح ذلك ⬇️ 13 ساعات مضت, مبرمج سابق said: ملاحظة 1 هذا الكود لن يعمل اذا كانت القاعدة بصيغة Accde او mde منذ ساعه, Matin_Murad said: ولا یوجد حل لتغیر قیمة افتراضية لمربع النص غير منضم مع مربع النص الخر غير منضم بل يوجد لكن الفكرة باختصار تتطلب وجود حقل في جدول يتم تحديثة بالقيمة الافتراضية كلما قمنا بتغييرها ويبقى الحقلين aa و bb غير منضمة bb يحدث القيمة و aa يحصل على القيمة الافتراضية باستخدام DLookup او احدى شقيقاتها ولكن ننتظر رأي الاساتذة ربما لديهم افكار افضل 4
Matin_Murad قام بنشر يوليو 30, 2022 الكاتب قام بنشر يوليو 30, 2022 (معدل) شكرا استاذ ( في النهاية لازم تستخدم الاجدول ) تم تعديل يوليو 30, 2022 بواسطه Matin_Murad
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.