حروف علي تسلسل السندات

[النجاشي]

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

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

موضوعي اليوم كيف نجعل التسلسل للسندات كلاتي

 يرمز سند ايردات ويكون مثلا حرف A00001  

سند مصروفات ويكون M00001

سند سداد S00001

سند قبض G00001

تحياتي لكم (للرفع)

3333.rar

تم تعديل يوليو 25, 2017 بواسطه ابو زاهر

[النجاشي]

للرفع

[jjafferr]

وعليكم السلام اخي وضاح

 

السؤال هو ، في اي نموذج ، في اي حقل ، هل السنة لها علاقة بالموضوع

 

جعفر

[النجاشي]

الان, jjafferr said:

وعليكم السلام اخي وضاح

 

السؤال هو ، في اي نموذج ، في اي حقل ، هل السنة لها علاقة بالموضوع

 

جعفر

حياك أخي جعفر  دوما وأتت بجانبي لك أجمل تحيه من اخوك الحقل رقم السند الجدول السندات النماذج سند قبض .سندمصاريف.سند سداد. سند إيرادات  تحياتي لك يالغالي 

تم تعديل يوليو 25, 2017 بواسطه ابو زاهر

[jjafferr]

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

 

1. انا غيّرت الحقل "رقم السند" الى نص ،

2. هذه الوحدة النمطية تقوم بعمل الترقيم

Function Next_Seq(T As String) As String

'T = Type نوع السند
'A = سند ايردات
'M = سند مصروفات
'S = سند سداد
'G = سند قبض
    myGroup = "A = سند ايردات" & vbCrLf & _
              "M = سند مصروفات" & vbCrLf & _
              "S = سند سداد" & vbCrLf & _
              "G = سند قبض"

    If Len(T & "") = 0 Then
        MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup
        Exit Function
    
    ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" Then
        MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup
        Exit Function
        
    Else
        Next_Seq = Nz(DMax("Mid([رقم السند], 2)", "السندات", "Mid([رقم السند], 1, 1) = '" & T & "'"), 0)
        Next_Seq = T & Format(Next_Seq + 1, "00000")
        
    End If
    
End Function

 

وكلما اردت ان تحصل على رقم جديد في نموذجك ، اكتب هذا الكود:

تذكر
'A = سند ايردات
'M = سند مصروفات
'S = سند سداد
'G = سند قبض

me.[رقم السند]= Next_Seq("A")

 

جعفر

698.3333.mdb.zip

[Shivan Rekany]

اتفضل 

انا غيرت حقل رقم السند الى نصي

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

="A000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "إيرادات'");"A0000");2;10)+1

وهذا لسند سداد

="S000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "سداد'");"S0000");2;10)+1

وهذا لنموذج القبض

="G000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "قبض'");"G0000");2;10)+1

وهذا لنموذج المصاريف

="M000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "مصاريف'");"M0000");2;10)+1

اليك الملف بعد تعديل

 

3333.rar

اعتذر منك استاذ @jjafferr الموضوع  كان مفتوح وما انتبهت لردك

تم تعديل يوليو 26, 2017 بواسطه Shivan Rekany

[jjafferr]

11 دقائق مضت, Shivan Rekany said:

اعتذر منك استاذ @jjafferr الموضوع  كان مفتوح وما انتبهت لردك

بالعكس اخوي شفان ،

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

 

جعفر

[Shivan Rekany]

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

بالعكس اخوي شفان ،

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

 

جعفر

شكرا على سعة صدرك استاذي الحبيب
 

[النجاشي]

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

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

 

1. انا غيّرت الحقل "رقم السند" الى نص ،

2. هذه الوحدة النمطية تقوم بعمل الترقيم

Function Next_Seq(T As String) As String

'T = Type نوع السند
'A = سند ايردات
'M = سند مصروفات
'S = سند سداد
'G = سند قبض
    myGroup = "A = سند ايردات" & vbCrLf & _
              "M = سند مصروفات" & vbCrLf & _
              "S = سند سداد" & vbCrLf & _
              "G = سند قبض"

    If Len(T & "") = 0 Then
        MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup
        Exit Function
    
    ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" Then
        MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup
        Exit Function
        
    Else
        Next_Seq = Nz(DMax("Mid([رقم السند], 2)", "السندات", "Mid([رقم السند], 1, 1) = '" & T & "'"), 0)
        Next_Seq = T & Format(Next_Seq + 1, "00000")
        
    End If
    
End Function

 

وكلما اردت ان تحصل على رقم جديد في نموذجك ، اكتب هذا الكود:

تذكر
'A = سند ايردات
'M = سند مصروفات
'S = سند سداد
'G = سند قبض

me.[رقم السند]= Next_Seq("A")

 

جعفر

698.3333.mdb.zip

بارك الله فيك اخي@jjafferr  وزادك الله علما كم انت طيب القلب هذا هو المطلوب ونفع الله بك الإسلام والمسلمين شكرا لك تحياتي لك

1 ساعه مضت, Shivan Rekany said:

اتفضل 

انا غيرت حقل رقم السند الى نصي

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

="A000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "إيرادات'");"A0000");2;10)+1

وهذا لسند سداد

="S000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "سداد'");"S0000");2;10)+1

وهذا لنموذج القبض

="G000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "قبض'");"G0000");2;10)+1

وهذا لنموذج المصاريف

="M000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "مصاريف'");"M0000");2;10)+1

اليك الملف بعد تعديل

 

3333.rar

اعتذر منك استاذ @jjafferr الموضوع  كان مفتوح وما انتبهت لردك

 بارك الله فيك اخي @jjafferrShivan Rekany وزادك الله علما  ونفع الله بك الإسلام والمسلمين كم انت طيب القلب وانا اعتذر منك بشده انك انحرجت واكون انا السبب

ولكن استاذنا @jjafferr دوما يطلب بأكثر من اجابه لكي نحصل على اكثر من طريقه للاجابه 

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