الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تساؤل حول طرق إدخال البيانات في حقل

بدأه Farid BR في 14 يوليو 2011 · 11 رد · 869 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أساتذتي الأفاضل : بارك الله فيكم ونور وسدد خطاكم في الدنيا والآخرة .

تساؤل حول طريقة لإدخال البيانات في حقل نموذج بالنقر عليه أو الضغط على ENTR .

حيث تتحول القيمة الموجودة في الحقل الذي قبلها مباشرة بعد النقر بالماوس أو من زر لوحة التحكم Entr .

الحقل الذي توجد به القيمة هو (قيمة المشاركة) أريد من فضلكم أن تحول بعد الضغط على الحقل الذي يليه وهو (دفع) .

بارك الله فيكم وأثابكم وغفر لكم بكل نقطة أو حرف تنيرون بها عبدكم الضعيف .

اللهم ارزقني حبك وحب من يحبك وحب عمل يقربني إلى حبك

EXEMPLE_1.rar

#2
Farid BR كتب:

بارك الله فيكم وأثابكم وغفر لكم بكل نقطة أو حرف تنيرون بها عبدكم الضعيف .

اللهم ارزقني حبك وحب من يحبك وحب عمل يقربني إلى حبك

أولا أخى الكريم كلنا عباد لله

ثانيا اليك التعديل

EXEMPLE_1.rar

مدونتى:-

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

متغيب حاليا لانشغالى الشديد

#3

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

أساتذتي الكرام : بارك الله فيكم ونور وسدد خطاكم في الدنيا والآخرة .

بعد تحميل الملف كان الجواب هو الصواب . صوب الله خطواتكم نحو الجنة .

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

بارك الله فيك وأثابك وغفر لك و نورك في الدنيا و الآخرة بنور العلم .

اللهم ارزقني حبك وحب من يحبك وحب عمل يقربني إلى حبك

#4

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

أساتذتي الكرام : بارك الله فيكم ونور وسدد خطاكم في الدنيا والآخرة .

بعد تحميل الملف كان الجواب هو الصواب . صوب الله خطواتك نحو الجنة .

أخي يوسف . لدي تساؤل حول الحذف في النموذج أي بعد الضغط على زر الحذف يخبرك بحذف السجل (هل تريد حذف السجل) . هل من طريقة اجعله يخبرني بحذف السنة التي حددتها . يعني تخرج رسالة التنبيه بالحذف على السنة بذاتها .

بارك الله فيك وأثابك وغفر لك و نورك في الدنيا و الآخرة بنور العلم .

EXEMPLE_1.rar

#5

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

أساتذتي الكرام : بارك الله فيكم ونور وسدد خطاكم في الدنيا والآخرة .

هل من جواب لهذا السؤال حول الحذف في النموذج أي بعد الضغط على زر الحذف يخبرك بحذف السجل (هل تريد حذف السجل) . هل من طريقة اجعله يخبرني بحذف السنة التي حددتها . يعني تخرج رسالة التنبيه بالحذف على السنة التي وضع بها المؤشر بذاتها .

#6

استخدم هذين السطرين للحذف بدل الكود الحالى 

   CurrentDb.Execute "delete * from payment where [سنة_الإشتراك]='" & Me.[سنة_الإشتراك] & "'"
   Me.Requery

مدونتى:-

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

متغيب حاليا لانشغالى الشديد

#7

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

(استخدم هذين السطرين للحذف بدل الكود الحالي) .

CurrentDb.Execute "delete * from payment where [سنة_الإشتراك]='" & Me.[سنة_الإشتراك] & "'"

Me.Requery

بعد تطبيق الكود المرسل من فضلك أخي يوسف بارك الله فيه . كان الجواب هو أنه عند الضغط على أمر الحذف يرسل رسالة (هل تريد حذف السجل) وعند توقيف الرسالة أو إلغائها يقوم بالحذف مباشرة بعد الضغط على زر الحذف دون الإخبار أو الإشارة إلى أي شيء .

وتساؤلي أخي يوسف . هل من طريقة عند الضغط على أمر الحذف يخبرني بحذف السنة التي حددتها . يعني تخرج رسالة التنبيه بالحذف على السنة التي يوجد عليها المؤشر بذاتها .

إليك التعديل في المرفق المرسل .

لا إله إلا الله قبل كل شيء 000 لا إله إلا الله بعد كل شيء

لا إله إلا الله يبقى وجه ربنا ويفنى كل شيء

EXEMPLE_Delete.rar

#8

اخوي جرب المرفق

EXEMPLE_Delete.rar

#9
mmaref كتب:

اخوي جرب المرفق

=======================================

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

بارك الله فيك أخي . بعد تحميل المرفق لم يكن هناك أي تغيير .

- يحذف مباشرة بعذ الضغط على الأمر دون الاخبار بأي شيء .

#10

اتمنى اخى ان توضح بشىء من التفصيل ما تريده

مدونتى:-

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

متغيب حاليا لانشغالى الشديد

#11

بعد إذن أخي الفاضل .. الأستاذ / Abo_Yossof ، و أخي الفاضل mmaref

جرب أخي هذا الكود ( كود الحذف أصلاً : للأستاذ / Abo_Yossof )

فقط أضفت تعديل على الرسالة التي تخرج للمستخدم تخبرة برقم السنة و تحذره من الحذف ( فقط لا غير)

ان شاء الله تكون هي ما تريده



Private Sub أمر48_Click()
On Error Resume Next

Dim Y As String

Y = "سنة " & Me![سنة الإشتراك].Column(1)


If MsgBox("هل تريد بالتأكيد حذف هذه السنة :" & Y, vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then
Exit Sub
Else
DoCmd.SetWarnings False

CurrentDb.Execute "delete * from payment where [سنة_الإشتراك]='" & Me.[سنة_الإشتراك] & "'"
Me.Requery

Refresh
DoCmd.SetWarnings True

End If
End Sub

      
تم تعديل هذه المشاركة بواسطة smsmvb في 23 يوليو 2011 في 07:42

      
1

      
    

  

    
    

      
#12
        
        

      
السلام عليكم ورحمة الله تعالى وبركاته . 
أساتذتي الأجلاء : بارك الله لكم ونور وسدد خطاكم في الدنيا والآخرة . تقبل الله منكم بركات وخيرات شهر شعبان ونحن على أبواب شهر التوبة والغفران شهر رمضان الكريم، ندعو الله أن يبلغنا ويلبسنا حلة شهره العظيم بالصبر والإنابة . بعد تحميل الكود كانت النتيجة حسب الطلب جيٍد جدًا . 
لا يسعني هنا إلا أن أشكر كل أساتذة هذا المنتدى العظيم الذي جعلني أتشوق إلى كل جديد فيه وأغترف من منابع علمه العظيم . وأخص بالذكر أخي SMSMVB  والأستاذ المشرف Abo_Yossof على كل رد جميل بقلبٍ رحبٍ عليم . 
جعل الله لكم كل هذا في ميزان حسناتكم ورفع به درجاتكم في جنات النعيم . 
اللهم ارزقني حبك وحب من يحبك وحب عمل يقربني إلى حبك 

      
      

      
    

  

    
    
    
 مواضيع مشابهة