النجاشي قام بنشر يوليو 25, 2017 قام بنشر يوليو 25, 2017 (معدل) السلام عليكم ورحمه الله وبركاته استاذتي الكرام موضوعي اليوم كيف نجعل التسلسل للسندات كلاتي يرمز سند ايردات ويكون مثلا حرف A00001 سند مصروفات ويكون M00001 سند سداد S00001 سند قبض G00001 تحياتي لكم (للرفع) 3333.rar تم تعديل يوليو 25, 2017 بواسطه ابو زاهر
jjafferr قام بنشر يوليو 25, 2017 قام بنشر يوليو 25, 2017 وعليكم السلام اخي وضاح السؤال هو ، في اي نموذج ، في اي حقل ، هل السنة لها علاقة بالموضوع جعفر 1
النجاشي قام بنشر يوليو 25, 2017 الكاتب قام بنشر يوليو 25, 2017 (معدل) الان, jjafferr said: وعليكم السلام اخي وضاح السؤال هو ، في اي نموذج ، في اي حقل ، هل السنة لها علاقة بالموضوع جعفر حياك أخي جعفر دوما وأتت بجانبي لك أجمل تحيه من اخوك الحقل رقم السند الجدول السندات النماذج سند قبض .سندمصاريف.سند سداد. سند إيرادات تحياتي لك يالغالي تم تعديل يوليو 25, 2017 بواسطه ابو زاهر
jjafferr قام بنشر يوليو 26, 2017 قام بنشر يوليو 26, 2017 وعليكم السلام 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 2
Shivan Rekany قام بنشر يوليو 26, 2017 قام بنشر يوليو 26, 2017 (معدل) اتفضل انا غيرت حقل رقم السند الى نصي اليك هذا كقيمة افتراضية لمربع نصي باسم رقم السند لنموذج ايرادات ="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 1
jjafferr قام بنشر يوليو 26, 2017 قام بنشر يوليو 26, 2017 11 دقائق مضت, Shivan Rekany said: اعتذر منك استاذ @jjafferr الموضوع كان مفتوح وما انتبهت لردك بالعكس اخوي شفان ، انا دائما ارحب اكثر من مشاركة في الموضوع ، فبهذه الطريقة الاجابات تكون مختلفة ، وهاي فائدة للجميع جعفر 2
Shivan Rekany قام بنشر يوليو 26, 2017 قام بنشر يوليو 26, 2017 1 دقيقه مضت, jjafferr said: بالعكس اخوي شفان ، انا دائما ارحب اكثر من مشاركة في الموضوع ، فبهذه الطريقة الاجابات تكون مختلفة ، وهاي فائدة للجميع جعفر شكرا على سعة صدرك استاذي الحبيب 1
النجاشي قام بنشر يوليو 26, 2017 الكاتب قام بنشر يوليو 26, 2017 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 دوما يطلب بأكثر من اجابه لكي نحصل على اكثر من طريقه للاجابه فالف شكرا لك اخي شفان والاخ جعفر باذن الله نكون مبدعين علي ايديكم جزاكم الله خير
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان