منع الحاق سجل تم الحاقه سابقا له نفس التاريخ

[ahmad_mustafa]

السلام عليكم

مرفق قاعدة بها جدولين اريد الحاق سجلات جدول1 الى جدول2 مرة واحدة فقط باليوم ويمنع من الحاقه مرتين في نفس التاريخ

مع الشكر

منع الحاق سجل تم الحاقه سابقة له نفس التاريخ.rar

[Amr Ashraf]

6 دقائق مضت, ahmus said:

مرفق قاعدة

احفظها بصيغة اقدم .. تقريبا عندك اوفيس 2019 وعندى 2016 ولا تفتح عندى .

[ahmad_mustafa]

منع الحاق سجل تم الحاقه سابقة له نفس التاريخ.rar

[Amr Ashraf]

جرب كده .. بابسط طريقة وهى عمل مفاتيح اساسية لرقم الهوية وتاريخ الالحاق بحيث لا يمكن ان يتم الحاق نفس رقم الهوية مرتين فى نفس التاريخ .

اذا اردت ان تكون عملية الالحاق تلقائية فى وقت معين من اليوم اترك رد .. بالتوفيق

AppendOneTime-Amr.accdb

[ahmad_mustafa]

بارك الله فيك الفكرة رائعة وبسيطة وياريت اذا ممكن بشكل تلقائي و ايضا اضافة رسائل للزر تفيد باتمام العملية او تعذرها😀

[Amr Ashraf]

منذ ساعه, ahmus said:

اذا ممكن بشكل تلقائي و ايضا اضافة رسائل للزر تفيد باتمام العملية او تعذرها

😅 اوك .. انظر لهذا الكود فى حدث On Time

Private Sub Form_Timer()
Dim x, x1, dx As Integer
x = DCount("*", "جدول2")
Debug.Print x

If Time = TimeValue("14:22:00") Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "الحاق_من_ج1_الى_ج2"
    DoCmd.SetWarnings True
    x1 = DCount("*", "جدول2")
    Debug.Print x1
    dx = x1 - x
    Debug.Print dx
    
    If dx >= 0 Then MsgBox ("تم اضافة عدد " & dx & " سجل ")
End If


    

End Sub

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

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

مرفق القاعدة .. بالتوفيق

 

1053855661_AppendOneTime-Amrv2.0.accdb

تم تعديل فبراير 4, 2022 بواسطه Amr Ashraf

[د.كاف يار]

و جرب هذي الطريقة

 

منع الحاق سجل تم الحاقه سابقة له نفس التاريخ.zip

[ahmad_mustafa]

اشكر جهودكم Amr Ashraf و د.كاف يار