أبو منتظر

بعد التحية والسلام على جميع أعضاء المنتدى ارفق بالمشاركة برنامج رائع يمكننا من عمل أكواد جاهزة لكافة أنواع الـ  Msgbox  . بالتوفيق MsgBuilder.rar

نبارك لجميع الأعضاء والمشرفين عودة المنتدى للعمل .

تقبل الله أعمالك يا أبا صادق الديناصوري الديجيتالي وأسعد أيامك ...

حيّاك أبا صادق .. نعم الرّد وبارك الله فيك

      بعد التحية والسلام على جميع أعضاء المنتدى   احتاج الى مساعدة في كيفية نسخ اول وقت وآخر وقت من حقل يدرج في اوقات الدخول والخروج بصيغة نص , وذلك في قاعدة بيانات جهاز البصمة الأداري   بعد الحصول على عمود اوقات دخول وخروج الموظفين (من خلال ملف اكسل يصدره برنامج جهاز البصمة) والتي تدرج في الحقل كالتالي ( 08:30 08:30 08:30 16:01 16:01 16:02 ) او (09:30 09:30 09:30 17:01 17:01 17:02) أو مايشابهها من الأوقات   ونلاحظ بداخله وقت الدخول وقد يتكرر نتيجة ضغط البصمة المتتالي في نفس الدقيقة من قبل المستخدم وينتهي بوقت الخروج والذي قد يكرره المستخدم أيضاً .       الخطوة التي اريدها وبعد نسخ عمود الأوقات من الأكسل الى العمود (InOut) في الجدول whours  تصميم كود ,  يتم عن طريقه نسخ الوقت الأول الى حقل (TimeStart) والذي يمثل وقت الدخول , ونسخ الوقت الأخير الى حقل (TimeFinish) الذي يمثل دور الخروج ,   وبعدها يقوم الأستعلام بأحتساب ساعات العمل .,وتتم العملية لكل السجلات بالتتالي .   وأوجه شكري وامتناني هنا الى استاذتي الفاضلة زهرة , حيث انني استفدت من برنامج سابق لها في احتساب الفرق الزمني .   المثال مرفق...مشكورين   InOut Times.rar

بعد التحية والسلام على جميع اعضاء المنتدى   في الكود المرفق توجد الجملة  img.ImageUrl = "OrphPics/" + img.ImageUrl + ".jpg"والتي تقوم بأختيار الصورة من المجلد وحسب المسار   اريد هنا تعديل الكود بحيث اذا لم تتواجد اي صورة في مجلد الصور لعرضها في الــ  ListView   يقوم بعرض الصورة الأفتراضية التي أسمها     Default.JPG  Protected Sub ListViewMak_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListViewMak.PreRender Dim fu As New FileUtil 'If Me.IsPostBack = False Then Dim img As System.Web.UI.WebControls.Image Dim OrphNameHL, ImageHL As System.Web.UI.WebControls.HyperLink Dim Oid As Label For i = 0 To ListViewMak.Items.Count - 1 OrphNameHL = CType(ListViewMak.Items.Item(i).FindControl("HyperLinkOrphName"), System.Web.UI.WebControls.HyperLink) Oid = CType(ListViewMak.Items.Item(i).FindControl("IDLabelMak"), Label) img = CType(ListViewMak.Items.Item(i).FindControl("MakImage"), System.Web.UI.WebControls.Image) img.ImageUrl = "OrphPics/" + img.ImageUrl + ".jpg" 'End If 'img.ImageUrl = fu.MakeThenGetPhotoThumb("OrphPics/" + img.ImageUrl + ".jpg", 90) OrphNameHL.NavigateUrl = "~/showorph.aspx?id=" + Oid.Text 'OrphNameHL.Attributes.Add("style", "font-family: tahoma;text-decoration : none") ImageHL = CType(ListViewMak.Items.Item(i).FindControl("HyperLinkMakImage"), System.Web.UI.WebControls.HyperLink) ImageHL.NavigateUrl = "~/showorph.aspx?id=" + Oid.Text 'OrphNameHL.Attributes.Add("style", "font-family: tahoma;text-decoration : none") Next End Subمشكورين سلفا

بوركتِ يازهرة جنّة الآخرة في الدنيا .

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

بعد التحية والسلام على جميع مشرفي وأساتذة و أعضاء المنتدى    هل ممكن المساعدة في صياغة كود ينفذ عملية ربط الى جدول في قاعدة أخرى تقع في نفس المجلد بحيث يعمل الكود عند وضع المجلد في اي قرص ...   ففي المرفق المجلد وفيه القاعدة db1  , والأخرى db2   , نريد ان نربط في القاعدة db2 عند فتحها أو من خلال تشغيل نموذج , الى الجدول name في القاعدة db1  برمجياً .    مشكورين سلفاً linktable.rar

بارك الله فيك يا أستاذتنا الفاضلة .

شكراً لأستاذتنا الفاضلة على هذه الملاحظات , وقد تمّ حذف الملف . الظاهر آن الأخطاء التي حصلت نتيجة نسخ الآيات من ملف وورد آية آية الى جدول الاكسس .وعدم توافق الفونتات وألغاء الكثير من الحركات الأعرابية  . وكان الهدف من البرنامج هو البحث عن الكلمات وليست التلاوة .   وأقدم اعتذاري لما حصل .

بعد التحية والسلام على جميع اعضاء المنتدى  اسعد الله ايامكم بحلول عيد الأضحى المبارك ورزقنا الله زيارة بيته المعظم . في المرفق اول برنامج صمّمته عبر تطبيق الأكسس قبل عشرة سنوات وهو عبارة عن دليل مبسّط لكلمات القرآن الكريم يتم عن طريقه البحث عن اي كلمة  في السور وأيجاد موقعها في الآيات المباركة . اليوم اريد  أن اطور هذا البرنامج لأجعله ناطقاً يتلو الآيات القرآنية بطريقتان : 1 - الطريقة اليدوية : ويتم تشغيل الصوت للآية عند النقر عليها , اي عند التركيز على احد صفوف القائمة والتي تمثل الآيات . 2 - الطريقة التلقائية : عندما يتم التركيز على احد صفوف القائمة فأن ملف الصوت المتعلق بالآية يشتغل وعند أنتهاءه ينتقل فوراً الى الصف الذي يليه الذي يمثل الآية التالية وهكذا .   اود المساعدة في كيفية صياغة الأكواد اللازمة لتنفيذ ذلك وخصوصا الطريقة التلقائية , حيث نحتاج الى دالة تقوم باحتساب (Length) الملف الصوتي من خصائص الملف لأعتماده في حدث عداد وقت لينتقل التركيز الى الأسفل لصفوف القائمة لبدء الملف التالي .   ملاحظة : وضعت البرنامج في مجلد اسمه Qrn , ولفتحه والأطلاع عليه يوضع على القرص C  لكي تشتغل بالنقر المزدوج على القائمة , روابط الملفات الصوتية للآيات الثلاث الأولى  وضعتها في المجلد source  على سبيل التجربة .   مشكورين سلفاً

بارك الله فيك اخي ابو شفيق ومشكوراً على هذا الجهد ....

الأخ العزيز هاني    اليك مثال لدليل هاتف استخدمه بعد تنسيق المودم اللازم مع برنامج طلب الأتصال التلقائي في الويندوز , و بعد ربط سلك الهاتف الأرضي بالمودم . عملية الأتصال تتم بالنقر المزدوج على الرقم المنتخب في القائمة ليظهر لك معالج الأتصال .    بالتوفيق دليل الهاتف.rar

استاذتنا الفاضلة   أعتذر لعدم رفع الملف سهوا .   يحتوي الملف على جدول فيه حقل اسماء , قابل لتغييره الى ارقام ,, لنطبق عليه دالة الأستبدال   ومن الأفضل صياغة استعلام الأستبدال على نتائج استعلام آخر مأخوذ من جدول(ٌ هنا مثلاً ReplaceQ) قد تكون فيه معايير يضعها المصمم .   والرأي لكم ....مشكورين Replace.rar