برنامج صادر ووارد

السلام عليكم

أولاً : عندي برنامج جاهز للصادر والوارد .. ومعمول به في كثير من الدوائر الجكومية .. يمكنك الأستفسار عن طريق هذا البريد : AMOTAIB@HOTMAIL.COM

ثانياً : هل أفهم أنك تريد ترقيم تلقائي لرقم المعاملة سنوياً ؟! يعني يبدأ في كل سنة من رقم ( 1 ) ... ؟

والمعلوم أن رقم الصادر لا يتكرر خلال السنة الواحدة ....

صحيح اخي فتي الوادي هذا هو المطلوب عند انتهاء السنه اريد ان يبداء رقم المعامله بالنسبه للصادر رقم (1)

وبالنسبه للوارد هناك رقم القيد ايضاً اريده ان يبداء رقم (1)

وقد اضفتك عندي في الماسنجر اخي العزيز

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

للرفع

مادام جهزته بالكامل ولم يبق منه إلا هذا الأمر ، فهي بسيطة .

ولذلك أكثر من طريقة ، طريقة آليه وهي عندما يكون السنة في تاريخ الجهاز أكبر من السنة في تاريخ آخر قيد يقوم البرنامج بإنشاء قيد جديد برقم 1 .

والطريقة الثانية وهي أضمن عمل حدث عن الضغط مرتين على مربع القيد مثلاً ليظهر مربع حوار يطلب إدخال كلمة مرور لعمل سجل قيد يكون به القيد رقم 1 .

وشكراً

اخوي عبدالله

اتمنى ان توضح اكثر

فحسبما فهمته من كلامك هو وضع كود في حدث معين للنموذج

اتمنى ان اجد لديك الكود الذي يقوم بذلك

السلام عليكم

ضع هذا الكود في حدث قبل الإدراج للنموذج .. مع ملاحظة تغيير المسميات للحقول والتعريفات التي لديك ...

If DCount("[txtnum]", "[t_sader]") = 0 Then
Me.txtnum = 1
Else
If Year(DLast("[txtdate]", "[t_sader]")) <> Year(Date) Then
Me.txtnum = 1
Exit Sub
End If
Me.txtnum = DLast("[txtnum]", "[t_sader]") + 1
End If

التعريفات :

txtnum = رقم الصادر

t_sader = جدول الصادر

txtdate = التاريخ

me.txtnum = حقل رقم الصادر في النموذج

ومثلها في الوارد .. مع أجراء ما يلزم من التغييرات ..

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

مع بالغ الشكر والتقدير اخي فتى الوادي وجميع من تجاوب معي

اخي فتي الوادي لي ملاحظه التاريخ لدي تم تجزئته الى التالي جداول

جدول اليوم

جدول الشهر

جدول السنه

اذن كيف سيتم التعامل مع الكود هل من الافضل اعادة النظر في الكود

ام اعادة تجميع التاريخ وهذه الطريقه لا احبذها لأنني قد بنيت عليها الكثير من الاستعلامات المرهقه والنماذج وكذلك التقارير التي اخذت من الوقت الكثير

علماً اخي انني قمت بتجربة الكود ولم ينجح معي وقد ادخلت التعديلات كما هي ولا فائده حيث كانت التغييرات

بالنسبه للصادر:

txtnum = رقم المعامله

t_sader = جدول ( الصادر السري ) علماً انه جدول مستقل عن الوارد العادي

txtdate = التاريخ ( هنا تكمن المشكله حيث الحقول لدي ( اليوم ) ( الشهر) (السنه ) )

me.txtnum = رقم المعامله

اخي العلي

ارسل البرنامج على هذا الايميل وان شاء الله استطيع ان اساعدك

alalmai880@hotmail.com

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