برنامج متكامل للصادر والوارد ،، أبحث عن !!

[ضاحي الغريب]

السلام عليكم

 

أستاذي العزيز

 ضاحي

 

في المرفق الأخير عندما تقوم بتغيير بحث في الأرسالية لا تتغير  كما موصح في الصورة

 

اخي ريان

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

كل عام وانتم بخير

قم باضافة مايلي لـ (ComboBox2_Change)

If Me.ComboBox2.Value = "البريد الوارد" Then
Me.Frame10.Caption = "نتيجة البحث في البريد الوارد"
ElseIf Me.ComboBox2.Value = "البريد الصادر" Then
Me.Frame10.Caption = "نتيجة البحث في البريد الصادر"
End If 

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

البريد والصادر 2003-LastUpdate.rar

[ريان أحمد]

السلام عليكم

 

أستاذي شكرا وجزاك الله كل خير

 

أصفت الكود إلى الفورم نجحت فيما يخص التبديل لكن عندما أقوم بتغيرر مثلا برقم الأرسالية ترجع كلمة وارد في الأسفل في الليست بوكس أين المشكل

[ريان أحمد]

up

[ضاحي الغريب]

السلام عليكم

 

أستاذي شكرا وجزاك الله كل خير

 

أصفت الكود إلى الفورم نجحت فيما يخص التبديل لكن عندما أقوم بتغيرر مثلا برقم الأرسالية ترجع كلمة وارد في الأسفل في الليست بوكس أين المشكل

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

البريد والصادر 2003-LastUpdate.rar

[ريان أحمد]

السلام عليكم

 

أستاذي العزيز أعتذر لأنني أتعبتك معي لكن

 

مازالت هناك مشكلة وهي مبينة في المرفق

 

الرجاء تبيين أين تم التعديل بالنسبة لهذا الأخير وبالنسبة للتعديل السابق 79

Sans titre.rar

[ضاحي الغريب]

 

الرجاء تبيين أين تم التعديل بالنسبة لهذا الأخير وبالنسبة للتعديل السابق 79

التعديل الذي تم في المشاركة رقم 79

تم اضافة السطر التالي لتحديد عنوان الفريم في حدث الـ (Change) لـ ( ComboBox3) عند البحث برقم الصادر

Me.Frame10.Caption = "نتيجة البحث في البريد الصادر"

[ضاحي الغريب]

السلام عليكم

 

أستاذي العزيز أعتذر لأنني أتعبتك معي لكن

 

مازالت هناك مشكلة وهي مبينة في المرفق

 

الرجاء تبيين أين تم التعديل بالنسبة لهذا الأخير وبالنسبة للتعديل السابق 79

اخي الكريم // ريان

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

لا داعي للاعتذار يا اخي الكريم اهلين فيك في اي وقت

جرب المرفق تم ضبط العنواين مع البريد الصادر والوارد

بالنسبة للتعديل كالتالي

في البريد الوارد يكون مصدر عنواين الليبل عندك الورقة 1 الخاصة بالبريد الوارد كالتالي 

For r = 2 To 7
Me.Controls("Lb" & r).Caption = Sheet1.Cells(1, r).Text
Me.Controls("LB" & r).Visible = True
Me.LB7.Visible = 1
Me.TX7.Visible = 1
Next

وبالنسبة للبريد الصادر في ورقة العمل رقم 2 تم تحديد العنواين كالتالي

For r = 2 To 6
Me.Controls("LB" & r).Caption = Sh.Cells(1, r).Text
Me.Controls("LB" & r).Visible = True
Me.LB7.Visible = 0
Me.TX7.Visible = 0

 

البريد والصادر 2003-LastUpdate.rar

[ريان أحمد]

شكرا وجزاك الله كل خير

 

أستاذي هناك بعص الخصائص سأحوال إصافتها للفورم من خلال تطبقي لدروسك المفيدة لأدوات الفورم وفي حال وجود أي إستفسار سأرجع إليك دمت في خدمة المنتدى

[VERY-HIGH]

يعطيك العافية --- الف شكر

[nassersalah]

مشكور أخى وأعجبنى كثيرا

[عيد الرويلي 1]

شكرررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررراااااااااااااا

[احمدضضض]

الرباط مش شغال

[shmtarek]

السلام عليكم

لاخ محمد الحسن

هذا برنامج بسيط صممته لك عل السريع

لاي اضافات نجن في الخدمة

تخزين+تعديل لصادر و الوارد.rar

لا استطيع تنزيل الملف

[زياد عبد الجليل]

السلام عليكم

لاخ محمد الحسن

هذا برنامج بسيط صممته لك عل السريع

لاي اضافات نجن في الخدمة

تخزين+تعديل لصادر و الوارد.rar

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

جدول ارسال يضاف الى فورم الصادر و الوارد.rar

[الصوصي]

يكتمل هذا البرنامج الرائع بعمل سكان لها مياشره من الاسكانر لكل وثيقة حسب الرقم او اسم الوثيقة

 

[Mahmoud Hassan Mousa]

بعد إذنكم عاوز أضيف صفوف للإكسل وتظهر فى الفورم وتبقى مربوطة بيها

[mahrous22]

استاذنا الفاضل 

ارجو التكرم بإضافة الوقت لتسجيل الوارد والصادر 

وهل ممكن إضافة ارفاق ملف اكروبات للصادر  وأيضا للوارد

 

شاكرة تعاونكم سلفا