husseinharby قام بنشر نوفمبر 28, 2022 مشاركة قام بنشر نوفمبر 28, 2022 السلام عليكم قمت بعمل استعلام تحديث يقوم بزيادة قيمة حقل field1 بالجدول بنسبة 20% كلما قمت بتشغيله اريد طريقة لتغيير النسبة المئوية بدون الدخول الي تصميم الاستعلام اريد عند تشغيل الاستعلام ان يعطيني رسالة تطلب مني ادخال النسبة المطلوبة Documents.rar رابط هذا التعليق شارك More sharing options...
Barna قام بنشر نوفمبر 28, 2022 مشاركة قام بنشر نوفمبر 28, 2022 (معدل) طيب حسب ما فهمت ................ انشئ نموذج وضع في زر وفي حدث الزر ضع هذه الشيفرة :::: Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True تم تعديل نوفمبر 28, 2022 بواسطه Barna 2 رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 28, 2022 الكاتب مشاركة قام بنشر نوفمبر 28, 2022 شكرا اخي الفاضل هذا هو المطلوب ممكن طلب اخر ان يكون الرقم الذي ادخله نسبة مئوية رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر نوفمبر 28, 2022 مشاركة قام بنشر نوفمبر 28, 2022 وعليكم السلام ورحمه الله وبركاته مشاركه مع اخى واستاذى محمد @Barna جزاه الله خيرا اتفضل اخى حسين @husseinharby تم انشاء وحده نمطيه واستدعائها بالاستعلام ان شاء الله تروق لك بالتوفيق Database11.accdb 2 رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 28, 2022 الكاتب مشاركة قام بنشر نوفمبر 28, 2022 شكرا للأخوة الافاضل علي مجهودهم العظيم طلب اخير هل يمكن ادخال الرقم في صيغة نسبة مئوية رابط هذا التعليق شارك More sharing options...
Barna قام بنشر نوفمبر 28, 2022 مشاركة قام بنشر نوفمبر 28, 2022 45 دقائق مضت, husseinharby said: شكرا للأخوة الافاضل علي مجهودهم العظيم طلب اخير هل يمكن ادخال الرقم في صيغة نسبة مئوية يعني تريد ان تكتب بهذا الشكل 1.5% رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 28, 2022 الكاتب مشاركة قام بنشر نوفمبر 28, 2022 مثلا 50% أو 15% رابط هذا التعليق شارك More sharing options...
Barna قام بنشر نوفمبر 28, 2022 مشاركة قام بنشر نوفمبر 28, 2022 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 2 1 رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 28, 2022 الكاتب مشاركة قام بنشر نوفمبر 28, 2022 شكرا اخي الفاضل رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 28, 2022 الكاتب مشاركة قام بنشر نوفمبر 28, 2022 عذرا الاخوة الافاضل لكن ظهرت لى مشكلة عندما اريد التراجع عن تنفيذ الامر واضغط cancel لا يستجيب ويقوم بتنفيذ الاستعلام زرار cancel لايعمل رابط هذا التعليق شارك More sharing options...
Barna قام بنشر نوفمبر 28, 2022 مشاركة قام بنشر نوفمبر 28, 2022 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 2 1 رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 29, 2022 الكاتب مشاركة قام بنشر نوفمبر 29, 2022 مجهود رائع من الاخوة الافاضل شكرا لكم رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر نوفمبر 29, 2022 مشاركة قام بنشر نوفمبر 29, 2022 مشاركة مع الاساتذة الكرام تحديث الحقل بدون استعلام تحديث.accdb 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان