حذف سجل من نموذج ونقله الى نموذج اخربشرط

[انس المنصوري]

السلام عليكم ورحمة الله وبركاته

  @عبد اللطيف سلوم   تعديلاتك استاذ

 

لدي ملف بسيط فيه نموذجين anas    يمثل الغير نمدفوع   و mad      هو المدفوع 

المطلوب عندما اكتب تم الدفع هو حذف السجل من نموذج anas ونقله الى نموذج mad 

مع الشكر للجميع

Database1 (1) (1).rar

[ابو ياسين المشولي]

تريد استعلام الحاق

مع استعلام حذف

انا الان انا بالمبايل

 

تم تعديل سبتمبر 11, 2018 بواسطه ابو ياسين المشولي

[انس المنصوري]

جزاك الله خيرا

@ابو ياسين المشولي

 

[Hamdi Edlbi-khalf]

59 دقائق مضت, ابو ياسين المشولي said:

تريد استعلام الحاق

 مع استعلام حذف

انا الان انا بالمبايل

جزاك الله خيراً

ألا يكفي أن جعل مصدر أحد النموذجين استعلام في معاييره

" لم يتم الدفع "

و عند تسجيل "تم الدفع " سيختفي السجل من النموذج الأول و يظهر بالثاني 

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

"تم الدفع "

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

[عبد اللطيف سلوم]

4 ساعات مضت, انس المنصوري said:

السلام عليكم ورحمة الله وبركاته

  @عبد اللطيف سلوم   تعديلاتك استاذ

 

لدي ملف بسيط فيه نموذجين anas    يمثل الغير نمدفوع   و mad      هو المدفوع 

المطلوب عندما اكتب تم الدفع هو حذف السجل من نموذج anas ونقله الى نموذج mad 

مع الشكر للجميع

Database1 (1) (1).rar

أخي الكريم @انس المنصوري

انا لا ازال مبتدئ بالاكسس ولم ارقى الى مستوى خبير 

حيث احتاج للمزيد من الدراسة والخبرة 

وهناك العديد من الاخوة الخبراء في هذا المندى الرائع

مثل الاخ شيفان والاخ ابو خليل والاخ جعفر .......... الخ

على كل 

موضوعك يحتاج الى استعلام حذف واستعلام الحاق 

لكن للامانة لا اعرف كيف اخدمك 100%

 

نحيل الموضوع للخبراء 

ومنكم نستفيد 

[انس المنصوري]

@عبد اللطيف سلوم

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

اتمنى المساعدة ممن لديهم الخبرة وشكرا لكم جميعا

 

[Shivan Rekany]

منذ ساعه, عبد اللطيف سلوم said:

الاخ شيفان

الاخ شفان موجو😉دة هنا

5 ساعات مضت, انس المنصوري said:

المطلوب عندما اكتب تم الدفع هو حذف السجل من نموذج anas ونقله الى نموذج mad 

اتفضل اليك هذا

Private Sub الحالة_AfterUpdate()
    If Me.الحالة.ListIndex = 0 Then
      Dim AppendSql As String
      Dim DelSql As String
        AppendSql = "INSERT INTO mad ( الرقم, التاريخ, التفاصيل, المبلغ, العملة, الحالة, ملاحظات ) SELECT anas.الرقم, anas.التاريخ, anas.التفاصيل, anas.المبلغ, anas.العملة, anas.الحالة, anas.ملاحظات FROM anas WHERE (((anas.الرقم)=[Forms]![anas]![الرقم]));"
        DelSql = "DELETE anas.الرقم, anas.التاريخ, anas.التفاصيل, anas.المبلغ, anas.العملة, anas.الحالة, anas.ملاحظات FROM anas WHERE (((anas.الرقم)=[Forms]![anas]![الرقم]));"

        DoCmd.SetWarnings False
        DoCmd.RunSQL (AppendSql)
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
        Me.Requery
    End If
End Sub

اليك ملف بعد تعديل

Database1 (1) (1).rar

[ابو ياسين المشولي]

مشاركة مع اخي شيفان

في حدث بعد التحديث

الحالة

If Me.الحالة = "تم الدفع" Then
Dim SQL As String
'==== Insert
SQL = "INSERT INTO mad([الرقم],[التاريخ],[التفاصيل],[المبلغ],[العملة],[الحالة],[ملاحظات])" & _
  "SELECT [الرقم],[التاريخ],[التفاصيل],[المبلغ],[العملة],[الحالة],[ملاحظات] " & "FROM anas " & _
  "WHERE [الرقم] NOT IN (SELECT [الرقم] FROM mad);"
  DoCmd.SetWarnings False
   DoCmd.RunSQL SQL
  DoCmd.SetWarnings True
'==== Delete
CurrentDb.Execute "DELETE * FROM anas WHERE [الرقم]=" & Me.[الرقم] & "", dbFailOnError
'==== Ref
Me.Requery
'====
InsCmd.Enabled = False

End If

 

[انس المنصوري]

@Shivan Rekany

جزاك الله خيرا وزادك علما وفتح عليك 

اذا امكن انه عندما نكتب تم الدفع ان ينتقل السجل للنموذج الثاني 

لاني لاحظت انه يختفي نهائيا

 

[Shivan Rekany]

23 دقائق مضت, انس المنصوري said:

اذا امكن انه عندما نكتب تم الدفع ان ينتقل السجل للنموذج الثاني 

لاني لاحظت انه يختفي نهائيا

نعم بيختفي السجل وما يظهر في نموذج mad لان مصدر نموذج mad هو جدول anas وليس جدول mad
لذلك قمت بتغيير مصدره والان كل شيء تمام
اتفضل

Database1 (1) (1).rar

[انس المنصوري]

Shivan Rekany

 

جزاك الله خيرا وزادك علما وفتح عليك