اضافة رقم الي مجموعة ارقام موجودة في عامود

[ahmad_mustafa]

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

في البرنامج المرفق اختر اي يوم من ايام الاسبوع ليظهر سجلات بهاعامود لرقم الحلقة و فوقه خانة لوضع رقم معين

المطلوب بعد وضع الرقم والضغط على الزر اضافة رقم والموجود فوق عامود رقم الحلقة فيتم جمع الرقم الى كل الارقام الموجودة في عامود رقم الحلقة

يعن لو كتبت في الخانة مثلا رقم 6 يقوم البرنامج بجمع الرقم الى كل ارقام الحلقات الموجودة

ولكم كل الشكر

 

اعداد جدول البث اليومي .rar

[الحلبي]

اخي الكريم

انظر للمرفق وشوف هل هو المطلوب ام لا

ادخل اي رقم في الخانة ثم اضغط علي زر الاضافة 

اعداد جدول البث اليومي .rar

[ahmad_mustafa]

11 ساعات مضت, حلبي said:

اخي الكريم

انظر للمرفق وشوف هل هو المطلوب ام لا

ادخل اي رقم في الخانة ثم اضغط علي زر الاضافة 

اعداد جدول البث اليومي .rar

السلام عليكم

اشكر استجابتك لكننه ليس المطلوب تقريبا

ارسل لك صورة توضيحية معها البرنامج لعلي استطيع ان اوضح طلبي

وبارك الله فيك 

 

اعداد جدول البث اليومي .rar

[الحلبي]

اخي الفاضل 

طب شوف المرفق وقل لي هل هو طلبك ام لا

اي استفسار او لم يكن طلبك انا معاك ان شاء الله

 

اعداد جدول البث اليومي .rar

[ahmad_mustafa]

11 ساعات مضت, حلبي said:

اخي الفاضل 

طب شوف المرفق وقل لي هل هو طلبك ام لا

اي استفسار او لم يكن طلبك انا معاك ان شاء الله

 

اعداد جدول البث اليومي .rar

السلام عليكم

لازال طلبي لم يتحقق  ناتج الجمع للرقم المراد اضافته للجميع ارقام الحلقات   

[Shivan Rekany]

مشاركة مع استاذ حلبي
اتفضل جرب هذا الكود

Private Sub a_Click()
On Error Resume Next
Dim i As Integer
    For i = 1 To Me.Form.RecordsetClone.RecordCount
        Me.ملاحظات = Me.الحلقة + Me.M
        DoCmd.GoToRecord , , acNext
    Next i
End Sub

 

[الحلبي]

طب شوف كده

اعداد جدول البث اليومي .rar

انا اسف استاد / شيفان 

لم اري مشاركة حضرتك الا بعد ان ادرجت مشاركتي

[Shivan Rekany]

33 دقائق مضت, حلبي said:

طب شوف كده

اعداد جدول البث اليومي .rar

انا اسف استاد / شيفان 

لم اري مشاركة حضرتك الا بعد ان ادرجت مشاركتي

لا تتأسف
نحن ھنا لكي نساعد البعض
المهم ان يوصل صاحب السؤال الى النتيجة المطلوبة 
تحياتي

[ahmad_mustafa]

19 ساعات مضت, Shivan Rekany said:

مشاركة مع استاذ حلبي
اتفضل جرب هذا الكود

Private Sub a_Click()
On Error Resume Next
Dim i As Integer
    For i = 1 To Me.Form.RecordsetClone.RecordCount
        Me.ملاحظات = Me.الحلقة + Me.M
        DoCmd.GoToRecord , , acNext
    Next i
End Sub

 

رائع - رائع فعلا لكل مشكلة حل ولا يحلها الى العباقرة

اشكرك استاذ شفان ريكاني  

لقد حقق الكود ما أريد 

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

1- ان تحتوي الخانة التي امام اضف على رقم ولا تكون خالية

2-ان تتم الاضافة فقط للسجلات التي يحتوي فيها عامود ايام البث على كلمة [كل يوم]  

3-رسالة تاكيد بنعم اولا بانه سيتم الاضافة

 

 

•  

 

اعداد جدول البث اليومي 27-8.rar

تم تعديل أغسطس 27, 2017 بواسطه ahmus

[Shivan Rekany]

اتفضل الييك هذا الكود
اعمل كوبي باست للكود

On Error Resume Next
If Me.M <= 1 Then
MsgBox "يجب ان تدخل رقم لکي يتم العملية"
Exit Sub
Else
DoCmd.GoToRecord , , acFirst
Me.الحلقة.SetFocus
Dim i As Integer
    For i = 1 To Me.Form.RecordsetClone.RecordCount
    If Me.ايام_البث = "كل يوم" Then
        Me.الحلقة = Nz(Me.الحلقة, 0) + Me.M
    End If
        DoCmd.GoToRecord , , acNext
    Next i
End If

اليك مرفق بعد اضافة الكود

لكل سؤال جديد موضوع جديد 

اعداد جدول البث اليومي 27-8.rar

[ahmad_mustafa]

اشكرك استاذ شفان ريكاني هذا ما كنت اريده