اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم مشرفين واعضاء

لدي نموذج طريقة العرض عبارة عن نماذج مستمرة

هل بالإمكان جعل التعديل و الحذف فقط على السجل الآخير في النموذج

"وليس السجل الاخير في الجدول"

مع كل الاحترام

stu.rar

قام بنشر
3 دقائق مضت, ابو عبدلله said:

السلام عليكم مشرفين واعضاء

لدي نموذج طريقة العرض عبارة عن نماذج مستمرة

هل بالإمكان جعل التعديل و الحذف فقط على السجل الآخير في النموذج

"وليس السجل الاخير في الجدول"

مع كل الاحترام

stu.rar

طيب وسجل الاضافة لاضافة سجل جديد محتاجه يكون موجود ؟

  • Like 1
قام بنشر (معدل)
الان, ابا جودى said:

طيب وسجل الاضافة لاضافة سجل جديد محتاجه يكون موجود ؟

أخي الكريم ابا جودي وبعد شكري لك لاهتمامك

الاضافة اريدها موجودة واذا تمت عن طريق وضع زر لاضافة السجل

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

مع كل التقدير

تم تعديل بواسطه ابو عبدلله
قام بنشر (معدل)
52 دقائق مضت, ابو عبدلله said:

أخي الكريم ابا جودي وبعدي شكري لك لاهتمامك

الاضافة اريدها موجودة واذا تمت عن طريق وضع زر لاضافة السجل

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

مع كل التقدير

الشكر لله وحده اخى الحبيب @ابو عبدلله

طيب جرب المرفق ده

طبعا هتحتاج تعمل بعض التعديلات لو عجبتك الحيلة دى

وممكن تلاقى حل عند اساتذتنا الكرام

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

 

وفى انتظار رد حضرتك لو عجبتك الفكرة لو احتاجت تعدل اى شئ تانى :rol:
 

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

stu.rar

تم تعديل بواسطه ابا جودى
  • Like 1
قام بنشر (معدل)
1 ساعه مضت, ابا جودى said:

وفى انتظار رد حضرتك لو عجبتك الفكرة لو احتاجت تعدل اى شئ تانى :rol:

بارك الله بك أخي ابا جودي هل من طريقة أخرى دون زيادة نموذج وأيضاً موضوع الحذف ؟؟

تم تعديل بواسطه ابو عبدلله
  • Like 1
قام بنشر
1 دقيقه مضت, ابو عبدلله said:

بارك الله بك أخي محمد أيمن هل من طريقة أخرى دون زيادة نموذج وأيضاً موضوع الحذف ؟؟

اخى الكريم جزاكم الله خيرا ورزقكم البركة ورزقكم اكثر مما تمنيتم ودعوتم لى :fff::fff:

اخى الفاضل @ابو عبدلله 
الله سبحانه وتعالى اعلى واعلم ان كان هناك طريقة اخرى ام لا

وبخصوص الحذف او اضافة سجل جديد يمكن عمل ذلك من اضافة ازرار اوامر فى النموذج الفرعى الجديد 

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

 

  • Like 1
قام بنشر

جرب النموذج المستمر

الفكرة أن وقوفك على أي سجل سابق ينقلك تلقائيا إلى السجل الأخير أو ما بعده

لا أعلم إن كانت هذه الفكرة تناسب برنامجك أم لا ؟

stu2.rar

  • Like 1
قام بنشر
8 ساعات مضت, ابو عبدلله said:

السلام عليكم مشرفين واعضاء

لدي نموذج طريقة العرض عبارة عن نماذج مستمرة

هل بالإمكان جعل التعديل و الحذف فقط على السجل الآخير في النموذج

"وليس السجل الاخير في الجدول"

مع كل الاحترام

stu.rar

طيب ودى حيله جديده من غير اضافة اى نماذج اخرى :wink2:
اتمنى تعجبك واان شاء الله تجد ضالتك 

فى انتظار رد حضرتك بعد التجربة 

:rol:

stu (3).rar

  • Like 1
قام بنشر (معدل)

استأذن من استاذنا @ابا جودى  و @أمير2008

اتفضل القي نظرتا الى هذا

تقدر تستخدم احد هذه الاكواد 

Private Sub Form_Current()
On Error Resume Next
Me.Text15 = Me.رقم_الدرجة
    Me.Refresh
                If Me.Text15 <= DCount("[رقم الطالب]", "جدول_الدرجة", "[رقم الطالب]=" & Me.رقم_الطالب) - 1 Then
                    Me.رقم_الدرجة.Locked = True
                    Me.رقم_الطالب.Locked = True
                    Me.رقم_المادة.Locked = True
                    Me.اسم_المادة.Locked = True
                    Me.الدرجة.Locked = True
                Else
                    Me.رقم_الدرجة.Locked = False
                    Me.رقم_الطالب.Locked = False
                    Me.رقم_المادة.Locked = False
                    Me.اسم_المادة.Locked = False
                    Me.الدرجة.Locked = False
            End If
End Sub

او

Private Sub Form_Current()
On Error Resume Next
Me.Text15 = Me.رقم_الدرجة
    Me.Refresh
                If Me.Text15 <= DCount("[رقم الطالب]", "جدول_الدرجة", "[رقم الطالب]=" & Me.رقم_الطالب) - 1 Then
                    Me.AllowEdits = False
                Else
                    Me.AllowEdits = True
            End If
End Sub

اليك قاعدة بياناتك

 

 

stu.rar

تم تعديل بواسطه Shivan Rekany
  • Like 2
قام بنشر

او اليك هذا باستخدام count بدل dcount

Private Sub Form_Current()
	Me.Text15 = Me.ÑÞã_ÇáÏÑÌÉ
    	Me.Refresh
            If Me.Text15 <= (Me.Text17 - 1) Then
                    Me.AllowEdits = False
                Else
                    Me.AllowEdits = True
            End If
End Sub

 

stu.rar

  • Like 1
قام بنشر
في 5/13/2017 at 19:37, ابو عبدلله said:

السلام عليكم مشرفين واعضاء

لدي نموذج طريقة العرض عبارة عن نماذج مستمرة

هل بالإمكان جعل التعديل و الحذف فقط على السجل الآخير في النموذج

"وليس السجل الاخير في الجدول"

مع كل الاحترام

stu.rar

Private Sub Form_Current()
Me.AllowEdits = CurrentRecord = Me.RecordsetClone.RecordCount
Me.AllowDeletions = Me.AllowEdits
End Sub

تحياتي للجميع

  • Like 2
قام بنشر

ليس بالجديد عليكم أخوتي واساتذتنا الكرام

أمير2008 , ابا جودى , Shivan Rekany , رمهان

وما من أية كلمات تفي لشكري لكم للمساعدة وتقديري لجهودكم واهتمامكم

بارك الله بكم وجزاكم عنا كل خير تريدون

مع كل الاحترام و التقدير

 

  • Like 1
قام بنشر
منذ ساعه, ابو عبدلله said:

ليس بالجديد عليكم أخوتي واساتذتنا الكرام

أمير2008 , ابا جودى , Shivan Rekany , رمهان

وما من أية كلمات تفي لشكري لكم للمساعدة وتقديري لجهودكم واهتمامكم

بارك الله بكم وجزاكم عنا كل خير تريدون

مع كل الاحترام و التقدير

 

تكرم عيونك اخى الحبيب  @ابو عبدلله

 

في 5/15/2017 at 00:17, رمهان said:

Private Sub Form_Current()
Me.AllowEdits = CurrentRecord = Me.RecordsetClone.RecordCount
Me.AllowDeletions = Me.AllowEdits
End Sub

تحياتي للجميع

استاذى الجليل ومعلمى القدير ساحر الاكسس الاستاذ @رمهان
كل ما اشارك فى شئ اتمنى على الله واطمع ان اجد لمساتكم الساحرة بكل شغف 
دائما اللمسات الرمهانية لها طابع خاص وفريد :rol:

جزاكم الله خيرا وبارك الله فى علمكم وعملكم وغفر لكم ولوالديكم وكل المسلمين ان شاء الله  :fff::fff::fff:

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information