القعر

بار الله فيك 

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

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

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

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

‎أخي الكريم / بحثت وجدت أكواد نسخ  حبيت أنقلها لعلها تكون المطلوبة لبرنامجك حاولت أوظفها لتلبي طلبك لا أعرف . أترك الموضوع لإساتذة المنتدى ليفيدونا بارك الله فيهم وجزاهم الله الف خير 
******
‎زر النسخ للنموذج الرئيسي ضع الكود التالي
‎كود:
    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

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

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

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

اخي الكريم وجدت هذا الكود أو الوحدة النمطية في أحد المنتديات  تخدم نفس طلبك جزاه الله الف خير من عملها ، لكن أخي لا أعرف كيف أضعها في برنامجك  وكلنا أمل من الأساتذة جزاهم الله الف خير العمل على وضعها حسب المطلوب في البرنامج أو حسب ما يرونه ليستفيد الجميع ، بارك الله في الجميع.

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

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

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

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

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

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