تجميع ملاحظات في مربع نص واحد

[كريمو2]

السلام عليكم أخواني

ممكن مساعدة بخصوص جمع ملاحظتين مثلا

عند احتيار سنة الإشتراك 2015

يظهر لي إسم الموظف ومبلغ المشاركة وملاحظات

مبلغ المشاركة كل سنة ب 2000.00 (1000.00 خلال شهر افريل و1000.00 خلال شهر جويلية)

ولكن في التقرير كان بظهر كمايلي :

كريمو2          1000.00     خصم من الراتب لإشتراك شهر 2015/4

كريمو2          1000.00     خصم من الراتب لإشتراك شهر 2015/7

فبمساعدة الإخوة تمت تجميع المبلغ ولكن بقيت الملاحظات

الصحيح هو :

كريمو2          2000.00     خصم من الراتب لإشتراك لشهري 4 و 7 /2015

ملاحظة : اذا كان اقتطاع واحد يظهر لوحده فقط او دفع عن طريق البريد يظهر كذالك

ارجو المساعدة

 

Discount.rar

تم تعديل مارس 17, 2016 بواسطه كريمو2

[كريمو2]

أساتذة الكرام

إذا صعب الأمر عليكم

ممكن نجمعها بهذه الكيفية

"خصم من الراتب لإشتراك شهر 2015/4 و خصم من الراتب لإشتراك شهر 2015/7 "

أو

"خصم من الراتب لإشتراك شهر 2015/4 و شهر 2015/7"

أو

"خصم من الراتب لإشتراك شهر 2015/4 و 2015/7"

 

[jjafferr]

السلام عليكم :)

 

تفضل :)

 

الاستعلام:

.

الوحدة النمطية:

Option Compare Database

    Dim rst As DAO.Recordset


Function Get_Dates(ID)

    mySQL = "Select * From tbl_Loans"
    mySQL = mySQL & " Where [EmployeeID]=" & ID
    mySQL = mySQL & " And Year([Payment_Month])= " & [Forms]![FrmOtherDiscountReport]![txtYear]
    mySQL = mySQL & " Order by Payment_Month"
    
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    If RC = 1 Then
    
        Get_Dates = "Discount for the month " & Format(rst!Payment_Month, "m/yyyy")
    Else
        
        For I = 1 To RC
        
            If I <> RC Then
                
                Get_Dates = Get_Dates & " and " & Month(rst!Payment_Month)
            Else
            
                Get_Dates = Get_Dates & " AND " & Format(rst!Payment_Month, "m/yyyy")
            End If
            
            rst.MoveNext
            
        Next I
    
        Get_Dates = "Discount for the months " & Mid(Get_Dates, 5)
        
    End If
    


End Function

.

النتيجة:

.

والتقرير:

.

جعفر

Discount.zip

[كريمو2]

شكرا لك استاذي الكريم جعفر

وفقك الله لما يحبه ويرضاه

استاذي الكريم 

العمل ممتاز ولكن هل يمكن استبدال

بما يكتب في Remarks تلقائيا بدون كتابة الشرط الذي وضعته Discount for the months

Get_Dates = "Discount for the month " & Format(rst!Payment_Month, "m/yyyy")

Get_Dates = "Discount for the months " & Mid(Get_Dates, 5)

 

 

[jjafferr]

ما فهمت قصدك :-(

[كريمو2]

قصدي ظهور ماكتب في جدول tbl_Loans وخاصة عند مربع النص Remarks

 

[jjafferr]

اذا كان قصدك الكتابة بالعربي ، فللأسف لا استطيع ، لأني على سفر واللابتوب مستعار ، والاكسس لا يكتب عربي في الكود ، ولا استطيع تغيير اعدادات الكمبيوتر :(

ولكنك تستطيع عمل هذا بكل بساطة ، بتغيير الكلمات من انجليزي الى عربي :)

 

فهل قصدك انك تريد ان يكون الجواب ، لكل شهر سطر؟

يعني اذا كانت الدفوعات لشهرين ، تريد ان يكون الجواب سطرين ، واذا كانت الدفوعات لثلاثة اشهر ، تريد الجواب ان يكون 3 اسطر؟

 

 

جعفر

[كريمو2]

1 دقيقه مضت, jjafferr said:

اذا كان قصدك الكتابة بالعربي ، فللأسف لا استطيع ، لأني على سفر واللابتوب مستعار ، والاكسس لا يكتب عربي في الكود ، ولا استطيع تغيير اعدادات الكمبيوتر :(

ولكنك تستطيع عمل هذا بكل بساطة ، بتغيير الكلمات من انجليزي الى عربي :)

فهل قصدك انك تريد ان يكون الجواب ، لكل شهر سطر؟

يعني اذا كانت الدفوعات لشهرين ، تريد ان يكون الجواب سطرين ، واذا كانت الدفوعات لثلاثة اشهر ، تريد الجواب ان يكون 3 اسطر؟

جعفر

ليست المشكلة بالعربي او بالأنحليزية

المطلوب : جمع كل مايكتب قي الملاحظات "Remarks" لكل موظف

مثلا : سنة 2015 " خصم من الراتب لشهر 2015/4 "و "خصم من الراتب لشهر 2015/7 "  للموظف رقم 3

تظهر في الملاحظات كمايلي في التقرير امام العامل رقم 3 "خصم من الراتب لشهر   4 و 7 /2015 "

[jjafferr]

اذا فهمت قصدك صح:

1. بالنسبة الى خصم من الراتب لشهر x و yyyy/mm ، فيظل مثل ما عملته ،

2. اذا تم الدفع بطريقة اخرى ، تريدها ان تٌكتب ؟

 

جعفر

[كريمو2]

صح استاذي العزيز ... جعفر

[jjafferr]

السلام عليكم 

 

اذا كان هذا الذي تريد:

.

فالكود اصبح:

Option Compare Database

    Dim rst As DAO.Recordset


Function Get_Dates(ID)

    mySQL = "Select * From tbl_Loans"
    mySQL = mySQL & " Where [EmployeeID]=" & ID
    mySQL = mySQL & " And Year([Payment_Month])= " & [Forms]![FrmOtherDiscountReport]![txtYear]
    mySQL = mySQL & " Order by Payment_Month"
    
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For I = 1 To RC
        Get_Dates = Get_Dates & vbCrLf & rst!Remarks
        rst.MoveNext
    Next I
    
    Get_Dates = Mid(Get_Dates, 3)
        
        
'    If RC = 1 Then
'
'        Get_Dates = "Discount for the month " & Format(rst!Payment_Month, "m/yyyy")
'    Else
'
'        For I = 1 To RC
'
'            If I <> RC Then
'
'                Get_Dates = Get_Dates & " and " & Month(rst!Payment_Month)
'            Else
'
'                Get_Dates = Get_Dates & " AND " & Format(rst!Payment_Month, "m/yyyy")
'            End If
'
'            rst.MoveNext
'
'        Next I
'
'        Get_Dates = "Discount for the months " & Mid(Get_Dates, Len(" and "))
'
'    End If
    


End Function

 

جعفر

 

 

[كريمو2]

وهو كذالك استاذي

شكرا لك

[jjafferr]

[كريمو2]

لقد تم التعديل على الكود

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

للاستفادة ...

Option Compare Database

    Dim rst As DAO.Recordset
    Dim MonthN1 As String

Function Get_Dates(id)
       
    mySQL = "Select * From tbl_Loans"
    mySQL = mySQL & " Where [EmployeeID]=" & id
    mySQL = mySQL & " And Year([Payment_Month])= " & [Forms]![FrmOtherDiscountReport]![txtYear]
    mySQL = mySQL & " Order by Payment_Month"

   Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    rc = rst.RecordCount
    MonthN1 = ""
    Remk = ""
    For I = 1 To rc
       Remk = Left$(rst!Remarks, 22)
        MonthN1 = MonthN1 & Month(Format(rst!Payment_Month, "m/yyyy"))
        rst.MoveNext
        If I = rc Then Exit For
        MonthN1 = MonthN1 & " و"
    Next I
    Get_Dates = Remk & " شهر " & MonthN1 & " / " & [Forms]![FrmOtherDiscountReport]![txtYear]


End Function

 

تم تعديل أغسطس 24, 2018 بواسطه كريمو2