استعلام تحديث بشرط

[husseinharby]

السلام عليكم

قمت بعمل استعلام تحديث يقوم بزيادة قيمة حقل field1 بالجدول بنسبة 20% كلما قمت بتشغيله

اريد طريقة لتغيير النسبة المئوية بدون الدخول الي تصميم الاستعلام

اريد عند تشغيل الاستعلام ان يعطيني رسالة تطلب مني ادخال النسبة المطلوبة

Documents.rar

[Barna]

طيب حسب ما فهمت ................

انشئ نموذج وضع في زر وفي حدث الزر ضع هذه الشيفرة ::::

Dim xx As String
xx = InputBox("ادخل النسبة ", "حدد  ")
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";"
DoCmd.SetWarnings True

تم تعديل نوفمبر 28, 2022 بواسطه Barna

[husseinharby]

شكرا اخي الفاضل هذا هو المطلوب

ممكن طلب اخر 

ان يكون الرقم الذي ادخله نسبة مئوية

[ابوبسمله]

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

مشاركه مع اخى واستاذى محمد @Barna جزاه الله خيرا

اتفضل اخى حسين @husseinharby تم انشاء وحده نمطيه واستدعائها بالاستعلام

ان شاء الله تروق لك

بالتوفيق

Database11.accdb

[husseinharby]

شكرا للأخوة الافاضل علي مجهودهم العظيم

طلب اخير هل يمكن ادخال الرقم في صيغة نسبة مئوية

[Barna]

45 دقائق مضت, husseinharby said:

شكرا للأخوة الافاضل علي مجهودهم العظيم

طلب اخير هل يمكن ادخال الرقم في صيغة نسبة مئوية

يعني تريد ان تكتب بهذا الشكل 1.5%

 

[husseinharby]

مثلا 50% أو 15%

[Barna]

2 دقائق مضت, husseinharby said:

مثلا 50% أو 15%

طيب جرب هذا ...................

Dim xx As String
xx = InputBox("ادخل النسبة ", "حدد  ")
xx = Replace(xx, "%", "")
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";"
DoCmd.SetWarnings True

 

[husseinharby]

شكرا اخي الفاضل

[husseinharby]

عذرا الاخوة الافاضل 

لكن ظهرت لى مشكلة عندما اريد التراجع عن تنفيذ الامر واضغط cancel لا يستجيب ويقوم بتنفيذ الاستعلام

زرار cancel لايعمل

[Barna]

5 ساعات مضت, husseinharby said:

عذرا الاخوة الافاضل 

لكن ظهرت لى مشكلة عندما اريد التراجع عن تنفيذ الامر واضغط cancel لا يستجيب ويقوم بتنفيذ الاستعلام

زرار cancel لايعمل

استبدل الشيفرة بهذه ....................

Dim xx As String
xx = InputBox("ادخل النسبة ", "حدد  ")
xx = Replace(xx, "%", "")
    If Len(xx) = 0 Then Exit Sub
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";"
DoCmd.SetWarnings True

 

[husseinharby]

مجهود رائع من الاخوة الافاضل

شكرا لكم 

[متقاعد]

مشاركة مع الاساتذة الكرام

تحديث الحقل بدون استعلام

 

تحديث.accdb