القعر

بار الله فيك

الف شكر وبارك الله فيك ، رائع

عمل أكثر من رائع ، بارك الله فيك

مشكور وبارك الله فيك ، عمل أكثر من رائع

‎أخي الكريم / بحثت وجدت أكواد نسخ حبيت أنقلها لعلها تكون المطلوبة لبرنامجك حاولت أوظفها لتلبي طلبك لا أعرف . أترك الموضوع لإساتذة المنتدى ليفيدونا بارك الله فيهم وجزاهم الله الف خير ****** ‎زر النسخ للنموذج الرئيسي ضع الكود التالي ‎كود: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy ‎وولصق بيانات النموذج الرئيسي استخدم الكود ‎كود: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste ‎اما زر نسخ بيانات النموذج الفرعي فاستخدم هذا الكود ‎كود: Me![ChildSubform].form.Setfocus with [ChildSubform].form DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy End With ‎اما كود اللصق فهو ‎كود: Me![ChildSubform].form.Setfocus with [ChildSubform].form DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste End with ‎ملاحظة استبدل الكلمة ChildSubform باسم النموذج الفرعي ‎أو الكود التالي لا أعرف أيهما أفضل وعملي الكود السابق أم هذا ABB" DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy ‎وكود اللصق كذلك ‎كود PHP: DoCmd.GoToControl "ABB" DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste

بارك الله فيك ، برنامج رائع ومرتب

برنامج رائع الف شكر وجزاك الله الف خير ، ونأمل إضافة وضع مدة الإجازة ثم تاريخ البداية ويقوم البرنامج بإحتساب نهايتها آلياً بتخطي أيام العطل الأسبوعية والرسمية ، ودمت بعافية

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

أحسنت ، أحسن الله إليك ، سلمت يمناك وجزاك الله الف خير

رائع وأكثر من رائع أخي أبو عارف ، بارك الله فيك مجهود تشكر عليه وأسال الله لك التوفيق دائماً ، والعفو منك ، والمعذرة من صاحب البرنامج ،يرجى التفضل إستاذي بالمزيد من ابداعك على البرنامج : 1- تسهيل اضافة صنف من الطعام إلى إلقائمة 2- الفصل بين طلبات الزبائن بزر زبون جديد مثلاعند الضغط على فاتورة جديدة -3- لوأمكن تلوين خلفية شاشة السعر عند اختيار السعربلون اخر عن شاشة الكمية للإستفادة من البرنامج ، زادك الله علماً ورفعه وغفر الله لك ولوالديك -

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

أكثر من رائع بارك الله فيك

الف شكر اخي الكريم وبارك الله فيك

أخي سلمان ، آملاً إن تجد ما يفيد طلبك على هذا الرابط . http://www.officena.net/ib/index.php?showtopic=58372

الف شكر اخي الكريم على جهودك الطيبة

برنامج أكثر من رائع ، بارك الله فيك إستاذنا العزيز

الشكر لك موصول أخي سمير1 ، ابدعت سلمت يداك وزادك الله فضلاً وعلما . أخي الفاضل آخر الأرض ، جزاك الله الف خير نعم مثال رائع ، الف شكر

مبدع بارك الله فيك ، متميز دائماًَ

اخي الكريم وجدت هذا الكود أو الوحدة النمطية في أحد المنتديات تخدم نفس طلبك جزاه الله الف خير من عملها ، لكن أخي لا أعرف كيف أضعها في برنامجك وكلنا أمل من الأساتذة جزاهم الله الف خير العمل على وضعها حسب المطلوب في البرنامج أو حسب ما يرونه ليستفيد الجميع ، بارك الله في الجميع. Public Module DateServices Public Structure SDateInterval Dim StartDate As Date ' تاريخ بداية الفترة Dim EndDate As Date ' تاريخ نهاية الفترة End Structure ' دالة الاختبار Public Function IntervalConflict(ByVal Period1 As SDateInterval, ByVal Period2 As SDateInterval) As Boolean If ((Period1.StartDate >= Period2.StartDate) And (Period1.StartDate <= Period2.EndDate)) Or _ ((Period1.EndDate >= Period2.StartDate) And (Period1.EndDate <= Period2.EndDate)) Then Return True ' تعارض Else Return False ' لا يوجد تعارض End If End Function End Module Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Period1 As SDateInterval Dim Period2 As SDateInterval ' القيم التالية للتجربة - يمكن قراءتها من مربعات نص أو غيرها Period1.StartDate = #10/1/2013# Period1.EndDate = #10/15/2013# Period2.StartDate = #10/13/2013# Period2.EndDate = #10/28/2013# If IntervalConflict(Period2, Period1) Then MsgBox("Conflicts") Else MsgBox("No conflict") End If End Sub End Class

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

الف شكر أخي احمد ، أنت إستاذ ومبدع ، برامج رائعه ومفيدة

مشكور اخي الكريم ، مبدع

الله يوفقك ويزيدك علماً ، الف شكر اخي

مثال ممتاز جداً ، الله يعطيك العافية ، والف شكر

سلمت ، وبارك الله فيك ، مثال ولا أروع ، وكل عام وأنت في صحة وسعادة