إظهار رسالة عند بدء البرنامج تطلب كتابة كلمة عليها يتم تغيير القيمة الافتراضية

اخي الفاضل ابو مالك

السلام عليكم ورحمة الله وبركاته

نستطيع عمل ذلك من خلال حدث فتح نموذج بدء التشغيل الخاص ببرنامجك

بحيث نضع هذا الكود بهذه الطريقة

Private Sub Form_Open(Cancel As Integer)
Dim prompt, title, username As String
prompt = "ادخل القيمة المطلوبه"
title = "تغيير قيمة افتراضية في حقل"
username = InputBox(prompt, title)
If username = "" Then
MsgBox "عذرا اخي الكريم لم تقم بإدخال اي قيمه"
DoCmd.CancelEvent
Else
strName.SetFocus
strName.Text = username
MsgBox "تم ادخال القيمة المطلوبة بنجاح"
End If
End Sub

حيث strName هو الحقل المطلوب تغيير قيمته الإفتراضيه

فعلى سبيل المثال في المثال المرفق فإن القيمة الإفتراضية لحقل الإسم هو " أبو مالك "

ونريد تغيير قيمة الحقل بأي قيمه نريدها عند بدء فتح النموذج كما في الكود السابق

فعند ظهور الرساله سيتم مطالبتك بكتابة اي قيمه سواء نصيه مثل " زهره " او رقميه مثل " 1234 " بناء على رغبتك في القيمه المطلوبه .

za-ChangeDefaultValueByMessage.rar

بالتوفيق

السلام عليكم ورحمة الله وبركاته

أستاذتي الكريمة أم عهود ... أنا متردد في هذه المشاركة ... ولكن لإيماني بقلبك الكبير ... وأنك ستسامحين تلميذك الموقر لمعلمته .. على هذا التطفل ... لما فيه مصلحة السائل

فالكود التالي

strName.Text = username

لا يغير القيمة الإفتراضية لمربع النص إنما سيغير قيمته فقط ... ولتغيير القيمة الإفتراضية نستبدل الكود السابق ... بالكود التالي

strName.DefaultValue = IIf(IsDate(username), "#" & username & _
"#", IIf(IsNumeric(username), username, """" & username & """"))

ومرة أخرى .. أتمنى أن تسامحينني

اخي الفاضل koao

السلام عليكم ورحمة الله وبركاته

بارك الله بك على هذا التعقيب والتصحيح

فقد اكون انني فهمت سؤال الأخ ابو مالك بطريقة مختلفه

حيث ما كان يدور في مخيلتي ان الأخ ابو مالك لديه قيمه افتراضية ثابته في الحقل ( بدليل انه هو من قام بوضعها ) وبعد ذلك له حرية الخيار في تغيير ما يريد وقت ما يشاء

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

ختاما اشكر لك ما تفضلت بطرحه وايضاحه واتمنى لك التوفيق

السلام عليكم ورحمة الله وبركاته

إستاذتي الكريم ... هذا العشم ... وإسأل الله أن يبارك فيك وبعلمك .. وأن يجعلك لنا ذخر .. وأن يجمعنا وإياك ووالدينا في دار كرامته ومن يقرأ

جزاكما ربي كل خير على تفضلكما للجواب الشافي والكافي وأسأل الله أن يزيدكما من فضله .....