احتاج عند تغير رقم فى جدول يتغير فى جدول اخر تلقائيا

[abouelhassan]

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

احتاج مساعدتكم اخوانى الاساتذة

هنا

جدولtbl_pages به عمود ipage_id وعمود ipage_number

حيث ان كل حساب له رقم قابل للتغير مشكلتى تكمن فى الاتى

احتاج اضافة حساب بين مثلا الايراد ورقمه 2 والتمويل ورقمه 3

ف باقوم ناسخ عامود ipage_number الى صفحة اكسيل واضيف الحساب الجديد وليكن مثلا مديونيات

بين الايراد والتمويل ثم ارجع انسخه مرة اخرى الى الاكسيس

واعيد الترقيم فأجد ان النقدية رقمها 1 الايراد2 المديونيات 3 والتمويل سيصبح 4 وهكذا باقى الحسابات هيتغير الرقم امامها بزيادة1

هنا المشكلة الجدول الرئيسى الذى به بياناتى اسمهtbl_Items

البيانات التى به عامود اسمه iPage مرتبط بالعامودipage_id فى جدول tbl_pages وبهذا اسماء الحسابات كل ستتغير لان كل رقم يمثل اسم حساب

هذه مشكلة كبيرة بالنسبة لى احتاج حل لها منكم اخوانى الافاضل بارك الله لكم 

كل التقارير بيتغير فيها البيانات بمجرد اضافة حساب

وكل عام وحضراتكم بخير وصحة

للايضاح

 

هذه قبل ان اقوم باى تعديل

رقم التمويل3

 هنا تقرير 

المبلغ امام التمويل 300

بعد التعديل اضفت حساب اسمه مديونيات بين الحساب الايراد والتمويل فأصبح رقم التمويل 4

 نفس التقرير اصبح

اصبح بدل التمويل 300 اصبح المديونيات 300

والتمويل اصبح مكان الدين الداخلى

البيانات القديمة كلها هتتغير 

بارك الله فيكم اساتذة المنتدى

•  
•  

 

 

DATA14.mdb

تم تعديل مارس 31, 2021 بواسطه abouelhassan

[أبوبسمله]

وعليكم السلام اخى الفاضل @abouelhassan

اتفضل حاجه بسيطه على قد حالى وع قد ما فهمت

تم اضافه فورم frmUPDate وبه حقل نص واحد وزر امر

بعد ان تقوم بالتعديلات التى تعملها

2 ساعات مضت, abouelhassan said:

باقوم ناسخ عامود ipage_number الى صفحة اكسيل واضيف الحساب الجديد وليكن مثلا مديونيات

شوف الرقم اللى قمت باضافته بقى رقم كام

افتح فورم frmUPDate وفى حقل النص ضع هذا الرقم ثم قم بالضغط عالزر

Private Sub btnRun_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb
    
    strSql = "SELECT tbl_Items.iPage " & _
             "FROM tbl_Items " & _
             "WHERE tbl_Items.iPage >= " & Me!txtUPDate
             
    If IsNull(Me!txtUPDate) Then Exit Sub
    Set rs = db.OpenRecordset(strSql)
   
    rs.MoveLast: rs.MoveFirst
    
    For i = 0 To rs.RecordCount - 1
        rs.Edit
        rs.Fields(0) = rs.Fields(0).Value + 1
        rs.Update
        rs.MoveNext
    Next
    
End Sub

قمت بوضع نفس المسمى المديونات بقى رقم 3 ضع رقم 3 فالحقل و اضغط عالزر

جرب ووافنا بالنتيجه

بالتوفيق

DATA14(1).mdb

[abouelhassan]

خالص الشكر استاذ الفلاحجى

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

الف شكر لحضرتك استاذى

ولو عايز اضيف حسابين اضيف حساب واغير الرقم ثم اضيف الاخر واغير الرقم صح كده

شكر واحترام وتقدير من القلب

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

اللهم آمين وجميع المسلمين والمسلمات والمؤمنين والمؤمنات ان شاء الله

14 ساعات مضت, abouelhassan said:

ولو عايز اضيف حسابين اضيف حساب واغير الرقم ثم اضيف الاخر واغير الرقم صح كده

نعم اضف ما تريد ثم حدثهم بالترتيب من الاصغر الى الاكبر يعنى 2 ثم 3 وهكذا

وده تعديل بسيط باضافه كمبو تختار منه

Private Sub btnRun_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    
    strSql = "SELECT tbl_Items.iPage " & _
             "FROM tbl_Items " & _
             "WHERE tbl_Items.iPage >= " & Me!cmbIPageID.Column(0)
             
    If IsNull(cmbIPageID) Then
        MsgBox "من فضلك اختر القيمه التى تريد تحديثها"
        Me.cmbIPageID.SetFocus
        Me.cmbIPageID.Dropdown
        Exit Sub
    End If
    
    Set rs = db.OpenRecordset(strSql)

    rs.MoveLast: rs.MoveFirst
 
    For i = 0 To rs.RecordCount - 1
        rs.Edit
        rs.Fields(0) = rs.Fields(0).Value + 1
        rs.Update
        rs.MoveNext
    Next
    Me!cmbIPageID = ""
    
    rs.Close
    db.Close
    
    Set rs = Nothing
    Set db = Nothing
    
End Sub

بالتوفيق

DATA14_2.mdb

[abouelhassan]

الله جميل جدااااا تسلم ايدك الله يحفظك استاذالفلاحجى ربنا يكرمك يارب ويسترك ويعزك

بارك الله فيك اخى

استاذ الفلاحجى

ممكن استأذن حضرتك بطريقة لاضافة حساب فى الاكسيس

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

يوجد طريقة مثل insert مثلا بين حسابين واكتب اسم الحساب مشكور اخى فى الله

شكر وتقدير واحترام من اخيك

تم تعديل أبريل 1, 2021 بواسطه abouelhassan

[husamwahab]

مشاركة مع استاذي العزيز احمد

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

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

وتلقائيا سيتم التعديل في جدول tbl_Items 

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

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

وعذرا للاطالة

  

 

DATA1000.rar

[jjafferr]

السلام عليكم 🙂

 

6 ساعات مضت, husamwahab said:

لان العلاقة بينهما (بين الجدول tbl_Pages و الجدول tbl_Items) علاقة راس باطراف مع فرض التكامل المرجعي

انا متأكد بأن الاستاذ احمد لم يلاحظ هذه العلاقة 🙂

لهذا السبب ، طريقته سوف تخل بطريقة عمل البرنامج ،

يعني اذا كانت قيمة iPage_ID (في الجدول tbl_Pages) = iPage (في الجدول tbl_Items) = 3

فقمت بتغيير الرقم 3 الى الرقم 5 في iPage (في الجدول tbl_Items) ، فتظل قيمة  iPage_ID (في الجدول tbl_Pages) 3 ، كما كانت ، وهذا يجعل القيمة 5 يتيمة في الجدول tbl_Items ، وبدون ربط مع الجدول tbl_Pages !!

 

 

6 ساعات مضت, husamwahab said:

وتلقائيا سيتم التعديل في جدول tbl_Items 

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

وهذا التعديل فيه طلبك الاخير

كلامك صحيح ، ولكن يحتاج الى تعديل بسيط ،

.

اذا بدأت الـ Loop من 1 الى آخر قيمة (من الاصغر الى الاكبر) :

- فلما تغير الرقم 1 فيصبح 1+1 = 2 ، فمعناه ان جميع قيم الجدول tbl_Items بدلا عن 1 اصبحت 2 ، فهنا يتم خلط القيم هناك ، قيم 1 و 2 تصبح 2 ،

- ولما تغير الرقم 2 فيصبح 2+1 = 3 ، فمعناه ان جميع قيم الجدول tbl_Items بدلا عن 2 اصبحت 3 ، فهنا يتم خلط القيم هناك ، قيم 1 و 2 و 3 تصبح 3 ،

يعني في نهاية الـ Loop ، جميع القيم هناك ستكون بالرقم الاخير 😁

ولكن ،  iPage_ID (في الجدول tbl_Pages) لا يقبل التكرار 😁

لذا ولحل الموضوع بالطريقة الصحيحة ، يجب ان  تبدأ الـ Loop من آخر قيمة الى 1 (من الاكبر الى الاصغر).

 

جعفر

[abouelhassan]

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

حاجة جميلة جداااااااااا والله تسلم ايدك اعزك الله

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

الحساب الجديد مثلا مدين لم يظهر اسم الحساب الجديد ما تغير رقم النقدية الى2 فقط

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

اكثر من مرة وراء بعض 

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

ربنا يحفظك بارك الله فيك استاذhusamwahab

كل عام وحضرتك بخير وصحة وسلامة

شكر وتقدير واحترام من اخيك

تم تعديل أبريل 2, 2021 بواسطه abouelhassan

[jjafferr]

9 ساعات مضت, husamwahab said:

وهذا التعديل فيه طلبك

اعتذر منك اخوي حسام ، لم انتبه انك عملت فرز تنازلي ، فعليه ، كلامي اعلاه في غير محله 🙂

 

جعفر

[أبوبسمله]

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

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

نعم اخى واستاذى العزيز @jjafferr لم انتبه لوجود العلاقه الا بعد طلب الاضافه من خلال الاكسس من اخى الفاضل @abouelhassan ولكن كنت استعد للنوم للسفر باكر

ولسه راجع من السفر والحمد لله اخى حسام جزاه الله خيرا قدم المساعده

تمنياتى لكم بالتوفيق وكل عام وانتم بخير

[husamwahab]

 السلام عليكم اساتذتي واحبتي استاذ جعقر واستاذ احمد واستاذ ابو الحسن 

واعتذر  منكم عن تاخري بالرد والمشاركة

 

On 4/2/2021 at 2:49 PM, jjafferr said:

اعتذر منك اخوي حسام ، لم انتبه انك عملت فرز تنازلي

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

 

On 4/2/2021 at 8:38 PM, الفلاحجى said:

ولسه راجع من السفر

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

 

On 4/2/2021 at 11:07 AM, abouelhassan said:

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

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

اما بخصوص طلبك  الاخير ان شاء الله ساقوم بالتعديل وانا بخدمتك

 

 

[husamwahab]

تفضل التعديل استاذي العزيز ابو الحسن

 

DATA2000.rar

[abouelhassan]

حفظك المولى وبارك لك استاذى العزيز husamwahab

استاذ حسام حضرتك رائع تسلم ايدك اتقدم لك بكل الشكر وخالص الدعاء من القلب

والشكر موصول لاستاذ الفلاحجى واستاى الحبيبjjafferr

اشكرك اخى لقد حلت مشكلة كبيرة بالنسبة لى والله ربنا ينجيك دائما اخى استاذ حسام

كل عام وحضرتك واسرتك بكل خير وصحة وسعادة يارب 

تم تعديل أبريل 4, 2021 بواسطه abouelhassan

[husamwahab]

استاذي العزيز abouelhassan انا بالخدمة

ورحم الله والديك على هذا الدعاء 

وانت بالف خير وصحة وسلامة  

[abouelhassan]

استاذى الغالى husamwahab

معلش سامحنى ربنا يحفظك يارب

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

بمعنى احتاج لتغير رقم حساب من 2 مثلا الى 10

ربنا يكرمك يارب وحفظك يارب

تم تعديل أبريل 17, 2021 بواسطه abouelhassan

[husamwahab]

بالخدمة استاذي العزيز

تفضل التعديل ارجوان يكون طلبك 

DATA3000.rar

[abouelhassan]

استاذ husamwahab اغرقتنا بالروائع تسلم ايدك يارب

جعل الله الشهر الفضيل شهر خير ويمن وبركات عليك وعلى اسرتك الكريمة يارب

حفظك الله

ربنا  يراضيك ويرضيك يارب

انا احبك فى الله اخى

[husamwahab]

استاذي الحبيب abouelhassan

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

ومبارك عليكم الشهر الكريم واعاده الله عليكم بالصحة والسلامة وقبول الاعمال

[abouelhassan]

والله اخى استاذ husamwahab انا اخجل من حضرتك حدث معى بعد تجارب كثيرة الاتى

لفورم

افتح الفورم frm_main وحدد الاختيارات التى بالصورة

سيظهر لك تقرير

انظر حضرتك الى الحساب المسمى الايراد3 المبلغ بجواره 26500

فتحت فورم التغير ولخترت تغير الحساب المسمى الايراد5 مكان الايراد 3

انظر استاذى ما حدث

اسم الحساب اتغير بس المبالغ ظلت كما هى لم تتغير مع حسابها 

بمعن الحسابات تغير الاسم فقط

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

ستجد المبالغ لكل الحسابات اتغيرت ايضا

بارك الله فيك

 

2300.rar

تم تعديل أبريل 21, 2021 بواسطه abouelhassan

[husamwahab]

السلام عليكم استاذي الحبيب abouelhassan

اعتذر لتاخري بالرد 

بالنسبة للمشكلة اعلاه السبب انك لم تقم بانشاء علاقة بين جدولي المواد والصفحات

 

2300-1.rar

[abouelhassan]

اكثر الله خيرك يارب وزادك من فضله وخيره

استاذى الحبيب لقلبى husamwahab

اكمل جميلك ممكن شرح طريقة الربط بين الجدولين معلش 

ريى لا يحرمنى منك ابدا يارب

زادك الله من فضله وبارك لك يارب امين

تم تعديل أبريل 23, 2021 بواسطه abouelhassan

[abouelhassan]

عرفتها استاذى husamwahab

عملت العلاقة فتحت الجدول تابل ايتمز فى وضع الديزاين وقمت بسحب الايباج ايدى الى الاى باج 

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

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

الحمد لله اتحلت المشكلة ولكنى لا اعرف السبب بس الحمد لله

بارك الله فيك استاذى الغالى لقلبى

يارب يفرحك ويفرح قلبك مثل ما تفرحنا

لى طلب اخير استاذى الاوتو ايبى كيف اتمكن من اعادة الى 1-2-3-4-5-6 وهكذا

لان بعد اعاد الترتيب الاوتو ايبى بيتغير

 

يارب يسترك ويحفظك ويكرمك يارب

تم تعديل أبريل 23, 2021 بواسطه abouelhassan

[abouelhassan]

20 ساعات مضت, husamwahab said:

السلام عليكم استاذي الحبيب abouelhassan

اعتذر لتاخري بالرد 

بالنسبة للمشكلة اعلاه السبب انك لم تقم بانشاء علاقة بين جدولي المواد والصفحات

 

2300-1.rar 519.69 kB · 2 downloads

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

ربنا يرضى عنك يارب وعن والديك وجعلك دائما عونا لنا يارب

2300-1.rar

[husamwahab]

On 4/24/2021 at 4:49 AM, abouelhassan said:

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

السلام عليكم استاذي العزيز abouelhassan

اولا اعتذر لتاخري بالرد عليكم

ثانيا السبب هو ان يكون هناك تكامل مرجعي بين الجدولين بمعنى بعد انشاء العلاقة يجب تحديد جميع حقول الاختيار 

ملاحظة : انشاء علاقة راس باطراف معناه ان هناك جدول رئيسي وجدول ثانوي 

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

لذا تم اضافة بيانات لجدول الصفحات لانشاء علاقة بين الجدولين (جدول الصفحات وجدول المواد)

وعذرا للاطالة     

2300-2.rar

[abouelhassan]

انا الذى اتقدم اليك استاذى husamwahab بالاعتذار والشكر واقبل رأسك لجميل صنعك حضرتك قمة فى الذوق 

ربنا يبارك لك يارب فى اسرتك الكريمة ويبارك لك ويراضيك حتى يرضيك

ويرزقك كل خير الدنيا والاخرة يارب انا احبك فى الله اخى

اخيك بمنتهى الاحترام