مطلوب كود فى قاعدة IF

[المهاجر ابو معاذ]

الساده الخبراء

لدى جدول A وجدول B

جدول A به حقل NO و جدول B به حقل NO 

جدول B يقوم بترقيم حركات مؤقته يتم ترحيلها لجدول A

المطلوب عمل كود يقرأ آخر رقم بالحقل NO فى الجدول A ووضعه فى الحقل  NO  فى الجدول B ولو الحقل NO فى الجدول B اكبر يقوم بالترقم على أساس الحقل NO فى الجدول B

 

[jjafferr]

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

 

رجاء ارفاق مثال بسيط بقاعدة بيانات ، وسيكون ذو فائدة كبيرة للحل 🙂

 

جعفر

[المهاجر ابو معاذ]

5 ساعات مضت, المهاجر ابو معاذ said:

الساده الخبراء

لدى جدول A وجدول B

جدول A به حقل NO و جدول B به حقل NO 

جدول B يقوم بترقيم حركات مؤقته يتم ترحيلها لجدول A

المطلوب عمل كود يقرأ آخر رقم بالحقل NO فى الجدول A ووضعه فى الحقل  NO  فى الجدول B ولو الحقل NO فى الجدول B اكبر يقوم بالترقم على أساس الحقل NO فى الجدول B

 

 

منذ ساعه, jjafferr said:

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

 

رجاء ارفاق مثال بسيط بقاعدة بيانات ، وسيكون ذو فائدة كبيرة للحل 🙂

 

جعفر

عزيزى الغالى تم ارفاق الملف

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

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

أرجو أن أكون وضحت

تحياتى

New Microsoft Access.accdb

[jjafferr]

تفضل 🙂

 

1. اضفنا الزر ، وحقل آخر ، يأخذ استعلام الالحاقي بأخذ قيمته (اقرأ ملاحظات تفاصيل الكود ) :

.

2. هذا كود الحدث على الزر :

Private Sub cmd_Append_Click()

    'نأخذ اكبر قيمة من الجدول B
    Me.Which_Invoice_no = DMax("[Invoice_no]", "A")
    
    'نعمل مقارنة بين القيمتين ، ونأخذ الاكبر
    If Me.Invoice_no > Me.Which_Invoice_no Then
    
        Me.Which_Invoice_no = Me.Invoice_no
    End If
    
    
    DoCmd.SetWarnings False
    
        'نضيف هذه القيمة والتاريخ الى الجدول A
        DoCmd.OpenQuery "qry_Append_to_tbl_A"
    
        'نحذف هذا السجل من الجدول B
        DoCmd.OpenQuery "qry_Delete_from_tbl_B"
    
    DoCmd.SetWarnings True
    
    Me.Requery
    
End Sub

.

3. هذا استعلام الالحاقي الى الجدول A

.

4. وهذا استعلام الحذف من الجدول B

.

 

ولكن اذا تأخذ رأيي ، فلا داعي لوجود جدولين ، واستعلام الحاقي وآخر حذف ، وكود وووو ،

فقط استعمل جدول واحد ، مثلا الجدول A ، واضف اليه حقل جديد بإسم "هل تم التدقيق" ، نوع نعم/لا ،

بحيث المدقق يعمل اشارة صح على السجل ، بأنه تم تدقيقه ، وبهذه البساطة 🙂

 

جعفر

 

1283.New Microsoft Access.accdb.zip

[المهاجر ابو معاذ]

17 ساعات مضت, jjafferr said:

تفضل 🙂

 

1. اضفنا الزر ، وحقل آخر ، يأخذ استعلام الالحاقي بأخذ قيمته (اقرأ ملاحظات تفاصيل الكود ) :

.

2. هذا كود الحدث على الزر :

Private Sub cmd_Append_Click()

    'نأخذ اكبر قيمة من الجدول B
    Me.Which_Invoice_no = DMax("[Invoice_no]", "A")
    
    'نعمل مقارنة بين القيمتين ، ونأخذ الاكبر
    If Me.Invoice_no > Me.Which_Invoice_no Then
    
        Me.Which_Invoice_no = Me.Invoice_no
    End If
    
    
    DoCmd.SetWarnings False
    
        'نضيف هذه القيمة والتاريخ الى الجدول A
        DoCmd.OpenQuery "qry_Append_to_tbl_A"
    
        'نحذف هذا السجل من الجدول B
        DoCmd.OpenQuery "qry_Delete_from_tbl_B"
    
    DoCmd.SetWarnings True
    
    Me.Requery
    
End Sub

.

3. هذا استعلام الالحاقي الى الجدول A

.

4. وهذا استعلام الحذف من الجدول B

.

 

ولكن اذا تأخذ رأيي ، فلا داعي لوجود جدولين ، واستعلام الحاقي وآخر حذف ، وكود وووو ،

فقط استعمل جدول واحد ، مثلا الجدول A ، واضف اليه حقل جديد بإسم "هل تم التدقيق" ، نوع نعم/لا ،

بحيث المدقق يعمل اشارة صح على السجل ، بأنه تم تدقيقه ، وبهذه البساطة 🙂

 

جعفر

 

1283.New Microsoft Access.accdb.zip 56.32 kB · 0 downloads

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