ضاحي الغريب

اخي الكريم // طلعت بارك الله فيك وجزاك خيرا علي مرورك الطيب وكلماتك ودعائك الكريم بالنسبة لسؤلك يمكنك التحكم في عرض الرقم من عرض ثلاثة ارقام او اكثر او عرض فاصل الالاف كما يلي:-

معا من جديد ان شاء الله لتكملة الدرس العملي في الفورم المتقدم وفي هذا التدريب سوف نقوم بشرح الجزء من فورم سند الصرف كما تم التوضيح سابقا و سوف نتعرف معا علي خصائص عديدة كما سبق لنا بشرحها في الدروس النظرية لخصائص أدوات الفورم وفي تدريب اليوم سوف نتعرف علي 1- خصائص الأطار Frame وما يحتويه من ادوات اخري والتحكم في ظهوره واخفائه عند توفر شرط معين واستخدام الخاصية Visible في حالتيها (True/False) . 2-اضافة الـ CheckBox مع شروط معينة 3- اضافة التكسات والليبل الي الفورم والتفقيط التلقائي للمبلغ 4- اضافة كود لمسح الادوات الموجودة بالفورم 5- اضافة كود لعمل التسلسل التلقائي 6- كود ادخال البيانات لورقة العمل 7- كود اغلاق الفورم . اولا: نفوم بتجهيز ورقة العمل لدينا كالتالي سوف نقوم باضافة بعض ادوات الفورم للفورم في المثال السابق كالتالي نقوم بضبط خصائص الفريم الذي يحتوي بيانات الشيك (رقم الشيك - اسم البنك - التاريخ ) وشرط ظهوره مع السداد بشيك واخفاءه اذا كان السداد نقدا كالتالي الان نأتي لضبط التكست بوكس المبلغ في حدث كليك ليقوم بتفقيط المبلغ بمجرد ادخاله اولا: نقوم بفتح موديل جديد ونفوم بلصق الكود المستخدم في التفقيط التالي Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "íÊÈÞì áßã " Else ReMark = "ÝÞØ " End If If TheNo = 0 Then NoToTxt = "ÕÝÑ" Exit Function End If MyAnd = " æ" MyArry1(0) = "" MyArry1(1) = "ãÇÆÉ" MyArry1(2) = "ãÇÆÊÇä" MyArry1(3) = "ËáÇËãÇÆÉ" MyArry1(4) = "ÃÑÈÚãÇÆÉ" MyArry1(5) = "ÎãÓãÇÆÉ" MyArry1(6) = "ÓÊãÇÆÉ" MyArry1(7) = "ÓÈÚãÇÆÉ" MyArry1(8) = "ËãÇäãÇÆÉ" MyArry1(9) = "ÊÓÚãÇÆÉ" MyArry2(0) = "" MyArry2(1) = " ÚÔÑ" MyArry2(2) = "ÚÔÑæä" MyArry2(3) = "ËáÇËæä" MyArry2(4) = "ÃÑÈÚæä" MyArry2(5) = "ÎãÓæä" MyArry2(6) = "ÓÊæä" MyArry2(7) = "ÓÈÚæä" MyArry2(8) = "ËãÇäæä" MyArry2(9) = "ÊÓÚæä" MyArry3(0) = "" MyArry3(1) = "æÇÍÏ" MyArry3(2) = "ÇËäÇä" MyArry3(3) = "ËáÇËÉ" MyArry3(4) = "ÃÑÈÚÉ" MyArry3(5) = "ÎãÓÉ" MyArry3(6) = "ÓÊÉ" MyArry3(7) = "ÓÈÚÉ" MyArry3(8) = "ËãÇäíÉ" MyArry3(9) = "ÊÓÚÉ" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then Myno = Mid$(GetNo, i + 1, 3) Else Myno = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "ÅÍÏì ÚÔÑ" If Mid$(Myno, 2, 2) = 12 Then My12 = "ÅËäì ÚÔÑ" If Mid$(Myno, 2, 2) = 10 Then My10 = "ÚÔÑÉ" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " ãáíÇÑ" Else Mybillion = GetTxt + " ãáíÇÑÇÊ" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ãáíÇÑ" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ãáíÇÑÇä" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " ãáíæä" Else MyMillion = GetTxt + " ãáÇííä" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " ãáíæä" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " ãáíæäÇä" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ÃáÝ" Else MyThou = GetTxt + " ÂáÇÝ" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ÃáÝ" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ÃáÝÇä" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur + " " + "áÇ ÛíÑ" Else NoToTxt = ReMark + MyFraction + " " + MySubCur + " " + "áÇ ÛíÑ" End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + " " + "áÇ ÛíÑ" End If End Function ثانيا اضافة الكود التالي في حدث تكست بوكس المبلغ بعدما ما أنتهينا من اعداد ادوات الفورم سوف نقوم باضافة زر امر لادخال البيانات - لمسح الفورم - لاغلاق الفورم كود مسح الفورم وكود السيريال التلقائي كالتالي كود ادخال البيانات لصفحة العمل كالتالي وفي حدث انطلاق الفورم استخدمنا الكود التالي لاستدعاء كود التسلسل التلقائي وادراج تاريخ اليوم بالمرفقات المثال التطبيقي مع الشرح برجاء لاية استفسارات حول الموضوع يتم طرحها هنا لتعميم الافادة للجميع والي لقاء في الدرس القادم ان شاء الله في شرح كود البحث والتعديل والحذف والتعرف علي خواص تغير الاسماء والوظائف عن طريق الكود لادوات الفورم Officana 02.rar

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

اخي ريان اليك برنامج save As Pdf رابط الشرح http://www.youtube.com/watch?feature=player_detailpage&v=S9y4Ggla6Hg مع ان ميزة الحفظ الي PDF متوفرة تلقائيا في الاصدارات الجديدة لمايكروسوفت اوفيس 2010 بالمرفقات SaveAsPDF.rar

اخي الكريم // ريان وعليكم السلام ورحمة الله وبركاته لا داعي للاعتذار يا اخي الكريم اهلين فيك في اي وقت جرب المرفق تم ضبط العنواين مع البريد الصادر والوارد بالنسبة للتعديل كالتالي في البريد الوارد يكون مصدر عنواين الليبل عندك الورقة 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

التعديل الذي تم في المشاركة رقم 79 تم اضافة السطر التالي لتحديد عنوان الفريم في حدث الـ (Change) لـ ( ComboBox3) عند البحث برقم الصادر Me.Frame10.Caption = "نتيجة البحث في البريد الصادر"

أخي ريان برجاء التوضيح ماذا تريد ان تفعل بالضبط او بمعني ادق معيار البحث المطلوب للفورم داخل الفورم البحث برقـم القيد تقبل تحياتي

الملف بعد التعديل البريد والصادر 2003-LastUpdate.rar

بالنسبة لاصدار الويندوز 64 بت اتبع مايلي 1- قم بفك الضغط عن الملف المرفق 2- قم بنقل الملف mscal.ocx للمسار التالي C:\Windows\SysWow64 ثم افتح Run عن طريق الضغط علي شعار الويندوز وحرف R تظهر الشاشة التالية واكتب CMD ثم انتر تظهر الشاشة التالية مع ملاحظة اختلاف مسمي الجهاز عندي عن عندك وبها اكتب مايلي cd \windows\syswow64 ويمكنك نسخه ولصقه مع ملاحظه عند اللصق اضغط كليك يمين واختار لصق تظهر الشاشة التالية اكتب الامر التالي regsvr32 mscal.ocx ثم انتر تظهر الشاشة التالية مع ملاحظة انا لم اقم بالتجربة لان نظامي 32 بت وان شاء الله تضبط معك جرب واعلمني بالنتيجة MSCAL.rar

بارك الله فيك اخي الكريم ريان اتاسف منك لاني ماعندي اوفيس 2003 عسي الله يسير لك احد من الاخوة يرفعلك الملف اوفيس 2003 تقبل تحياتي

أخي الكريم // ...................... بالنسبة لحل مشكلتك عند ظهور الرسالة التالية والتي تفيد عندك خطا في عدم اضافة التقويم لـ VBA اتبع ما يلي في الصورة رقم (1) لكن اذا كانت غير موجودة عندك في الخصائص الأضافية Additional Control اتبع ما يلي في صورة رقم (2) وبعد تنفيذ الخطوات ان شاء الله تنحل مشكلتك وان كان هناك اي شيء لا تتردد في طلبه تقبل الله منا ومنكم صالح الأعمال تقبل تحياتي MSCAL.rar التعليمات.rar

اخي العزيز ارجوا ان يكون التفقيط بالدينار وخانات الكسر تكون ثلاثة خانات (بالفلس) ولك كل الاحترام والتقدير اخي لم افهم طلبك انه تفقيط برجاء التوضيح

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

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

أخي الحبيب واستاذنا الأستاذ/ عباد (ابونصار) مروركم شرفني بارك الله فيك وجزاك خيرا علي كلماتك ودعائك الكريم وادعوا الله ان اكون عند حسن ظنكم في وعلي نقل الملف بالمشاركة الاولي ليكون ميسر لاخواننا مع انه كان من بداية الرفع بالمشاركة الاولي وكل عام وانتم بخير وعيدمبارك تقبل تحياتي واحترامي لكم

أخي الحبيب والخلوق الأستاذ// عباس السماوي مروركم شرفني بارك الله فيك علي كلماتك الجميلة ودعائك الكريم وادعوا الله ان يكون العمل فيه النفع للجميع وان اكون عند حسن ظنكم في جزاك الله خيرا وكل عام وانتم بخير وعيد مبارك اعاده الله علينا وعليكم وعلي جميع الامة الاسلامية والعربية بالخير واليمن والامن والامان والاستقرار تقبل تحياتي واحترامي لكم

اخي ريان وعليكم السلام كل عام وانتم بخير قم باضافة مايلي لـ (ComboBox2_Change) If Me.ComboBox2.Value = "البريد الوارد" Then Me.Frame10.Caption = "نتيجة البحث في البريد الوارد" ElseIf Me.ComboBox2.Value = "البريد الصادر" Then Me.Frame10.Caption = "نتيجة البحث في البريد الصادر" End If اليك المرفق بعد التعديل البريد والصادر 2003-LastUpdate.rar

اخي الكريم // السلام عليكم ورحمة الله وبركاته برجاء الالتزام بسياسة المنتدي في اختيار عنوان مناسب يدل علي موضوعك قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ولك دعوة طيبة لتغيير اسم الظهور للعربية علي الرابط التالي http://www.officena.net/ib/index.php?showannouncement=21&f=135 وبالنسبة لمستحقات نهاية الخدمة بالسعودية حسب قوانين مكتب العمل كما ورد في طلبك اعلاه برجاء الاطلاع علي الموضوع التالي http://www.officena.net/ib/index.php?showtopic=47291&hl=

البرنامج مفتوح عدل فيه كما تشاء اخي الكريم

اخي محمد عبارة بارك الله فيك الملف بالمشاركة رقم 30 تقبل تحياتي

اخي الكريم //sdat جزاك الله خيرا وكل عام وانتم بخير تقبل تحياتي

أخي الكريم // متولي بارك الله فيك وجزاك خيرا كل عام وانتم بخير تقبل تحياتي

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