ترقيم سندات الحساب بحسب السنة

[رعد داود]

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

 

كان عندي ملفات اكسل  دمجتها كلها بجدول  واحد  من  سنة  2018 الى  الان
المطلوب  ترقيم  تلقائي  في  حقل  no

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

من 2018.rar

[أبوبسمله]

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

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

جزاه الله خيرا اخى واستاذنا رضوان على هذا الكود

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

من 2018.rar

[رعد داود]

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

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

[أبوبسمله]

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

فكلنا نشارك ونحاول قدر استطاعتنا اخى العزيز واخواننا واساتذتنا لم يقصروا ولكن على حسب الوقت والاشغال

فى انتظار تجربتك وموافتنا بالنتيجه

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[رعد داود]

الف شكر  اخي   احمد المحترم

جربت  الامر  على وصل قبض  تمام
عملت  فورم  لسند صرف  يرحل  الى  نفس الجدول
ونفس  الكود  نسخته  الى  سند  صرف  لكن  يظهر  خطأ  في  جملة
me.datee
هل  السبب تكرار العملية  ام  هناك  اشتباه  لم  انتبه  اليه
أتصور  انه  يجب  تعريف متغير  لنوع  السند  ... وصل  قبض   و   سند  صرف  حسب  حقل  الجدول  kayed

ارفق البرنامج

من 2018.rar

تم تعديل فبراير 27, 2020 بواسطه رعد داود

[أبوبسمله]

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

لا السبب انك قمت بتسميه الحقل الغير منضم Td ولم تغييره بالكود

اتفضل ان شاء الله الامور تكون تمام

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

من 2018_2.rar

[رعد داود]

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

حيث  لاحظت  في سند  الصرف  الاشارة  الى  حقل التاريخ  باسم  التكست  بوكس  وليس  اسم  الحقل  في  الجدول
ان  كان  لديك  توضيح  مبسط  للكود  جزاك  الله  خير  الجزاء

 

[أبوبسمله]

1 ساعه مضت, رعد داود said:

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

حيث  لاحظت  في سند  الصرف  الاشارة  الى  حقل التاريخ  باسم  التكست  بوكس  وليس  اسم  الحقل  في  الجدول
ان  كان  لديك  توضيح  مبسط  للكود  جزاك  الله  خير  الجزاء

 

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

Dim f, k As Date
Dim j As String
Dim s As Long

If DCount("[no]", "hesab") > 0 Then

f = DMax("datee", "hesab")
    If Year(datee) > Year(f) Then
        t2 = 1
    Else
        j = "Year(datee) = " & Year(Me.Td)
        
        t2 = DMax("[no]", "hesab", j) + 1
    
    End If
Else
t2 = 1
End If

الكود بيشوف اذا كان حقل ترقيم السند اكبر من 0

يقوم بجلب اعلى تاريخ وحجزها بالمتغير  ثم نختبر السنه هل هى اكبر من السنه التى بالحقل  Td ان كان اكبر فيعطي حقل الترقيم رقم 1

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

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

واعذرنى عالتقصير

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

 

 

 

[رعد داود]

10 hours ago, أحمد الفلاحجى said:

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

Dim f, k As Date
Dim j As String
Dim s As Long

If DCount("[no]", "hesab") > 0 Then

f = DMax("datee", "hesab")
    If Year(datee) > Year(f) Then
        t2 = 1
    Else
        j = "Year(datee) = " & Year(Me.Td)
        
        t2 = DMax("[no]", "hesab", j) + 1
    
    End If
Else
t2 = 1
End If

الكود بيشوف اذا كان حقل ترقيم السند اكبر من 0

يقوم بجلب اعلى تاريخ وحجزها بالمتغير  ثم نختبر السنه هل هى اكبر من السنه التى بالحقل  Td ان كان اكبر فيعطي حقل الترقيم رقم 1

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

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

واعذرنى عالتقصير

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

 

 

 

الف شكر  لك  ياطيب
احسنت 
عفوا  اخي  مالتغيير  في  حقل النص الغير  منظم  ايهما  تقصد ؟
عندي  مشكلة  ظهرت  في  كود  ترحيل  الفورم الثاني
حيث احتاج  احيانا  بصرف  اكثر  من  حساب  ومجموعة  مبالغ
يعني في اسم  الحساب  والمبلغ  المصروف
فالكود  لايقبل  ترحيل  اكثر  من  حقل  للجدول ؟
هل  عندكم  حل  لهذا  الأمر  ؟؟

[أبوبسمله]

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

اخى الفاضل

هل تقوم فالشغل اليدوى بادخال اكتر من حساب ومبالغ فى ايصال واحد ؟

 

[رعد داود]

28 minutes ago, أحمد الفلاحجى said:

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

اخى الفاضل

هل تقوم فالشغل اليدوى بادخال اكتر من حساب ومبالغ فى ايصال واحد ؟

 

نعم  فهناك  في  سند  صرف  اكثر  من  مبلغ  لكل  حساب
مثلا  قسم 1  قيد  يستلم  رواتب  ويستلم مبلغ صيانة  في  سند  صرف  واحد
وقسم 2  قد  يستلم  مبلغ  اثاث و ضيافة  ووقود  في  سند  صرف  واجد 
ويكون  هناك  مجموع  نهائي  في  سند  الصرف

[أبوبسمله]

لا اعلم ولكن يمكنك اضافه الملاحظات فى حقل notes التى تريدها اذا كان مبلغ الصرف سيتم تقسيمه

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

او انشاء جدول فرعى بمفتاح فرعى لرقم السند بالحقول المطلوبه

ولعل احد اخواننا واساتذتنا لديه فكره افضل

والله اعلى واعلم

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[رعد داود]

استاذنا  الفاضل
انا  احتاج  فقط  لإسم  الحساب يتكرر وكذلك  مبلغ  الصرف  امام  كل  حساب
الملاحظات  لاحاجة  لتكرراها   فسوف  ادرج  فيها  كل  ماهو  مطلوب
الف  شكر  لاهتمامكم

[أبوبسمله]

اخى الفاضل

اذا كنت سوف ستدرج فالملاحظات كل البيان ضع المبلغ الاجمالى فى حقل الصرف مثلا 40

والملاحظات مثلا قسم 1 قيد يستلم رواتب مبلغ 20 + صيانه مبلغ 20

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

ولعل احد اخواننا واساتذتنا لديه فكره افضل

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[رعد داود]

2 minutes ago, أحمد الفلاحجى said:

اخى الفاضل

اذا كنت سوف ستدرج فالملاحظات كل البيان ضع المبلغ الاجمالى فى حقل الصرف مثلا 40

والملاحظات مثلا قسم 1 قيد يستلم رواتب مبلغ 20 + صيانه مبلغ 20

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

ولعل احد اخواننا واساتذتنا لديه فكره افضل

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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