الحذف بعد ادخال رقم الطلبيه

[النجاشي]

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

احبتي الكرام 

المطلوب بنص بحث عن طلبيه اريد يبحث عن القيمه المدخله

وبعدها اضغط زر حذف الطلبيه يحذف الطلبيه

واذا حذفت من الزر يعطينا رساله ادخل رقم الطلبيه   لايحذف الا بعد ادخال القيمه 

شاكرين 

حذف الطلبيه .rar

[صالح حمادي]

السلام عليكم

بالنسبة لكود البحث سوف يكون كالتالي:

If Me.n2 <> "" Or Not IsNull(Me.n2) Then
   Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra='" & Me.n2 & "'"
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = True
Else
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = False
End If
   Me.واجه_الطلبيات_مساعد.Requery
   Me.n2.SetFocus

و كود حذف السجل كالتالي:

Dim req As String
req = "Delete From a_tlbia where Rjmfatwra='" & Me.n2 & "';"
DoCmd.SetWarnings False
DoCmd.RunSQL req
DoCmd.SetWarnings True
   Me.واجه_الطلبيات_مساعد.Requery

و هذا المرفق بعد التعديل:

حذف الطلبيه .rar

[النجاشي]

5 ساعات مضت, صالح حمادي said:

السلام عليكم

بالنسبة لكود البحث سوف يكون كالتالي:

If Me.n2 <> "" Or Not IsNull(Me.n2) Then
   Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra='" & Me.n2 & "'"
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = True
Else
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = False
End If
   Me.واجه_الطلبيات_مساعد.Requery
   Me.n2.SetFocus

و كود حذف السجل كالتالي:

Dim req As String
req = "Delete From a_tlbia where Rjmfatwra='" & Me.n2 & "';"
DoCmd.SetWarnings False
DoCmd.RunSQL req
DoCmd.SetWarnings True
   Me.واجه_الطلبيات_مساعد.Requery

و هذا المرفق بعد التعديل:

حذف الطلبيه .rar

وعليكم السلام 

استاذي الغالي

ممتاز هذا مطلوبي رنا يبارك فيك

ياليت تعديل بسيط علي كود البحث 

اي بدل ما اكتب كامل الكلمه زي k0003 او غيرها

اريد اكتب 3 او 2 

اي بالجزء الاخير من الكلمه 

الف الف شكر اليك

 

[صالح حمادي]

السلام عليكم

اجعل كود البحث كالتالي:

If Me.n2 <> "" Or Not IsNull(Me.n2) Then
   Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra like " & """*" & Me.n2 & "*"""
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = True
Else
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = False
End If
   Me.واجه_الطلبيات_مساعد.Requery
   Me.n2.SetFocus

 

[النجاشي]

3 ساعات مضت, صالح حمادي said:

السلام عليكم

اجعل كود البحث كالتالي:

If Me.n2 <> "" Or Not IsNull(Me.n2) Then
   Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra like " & """*" & Me.n2 & "*"""
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = True
Else
   Me.واجه_الطلبيات_مساعد.Form.FilterOn = False
End If
   Me.واجه_الطلبيات_مساعد.Requery
   Me.n2.SetFocus

 

وعليكم السلام 

شاكر اليك يالغالي هو المطلوب بذاته 

ملاحظه القي اليها نظره الله يعطيك العافيه لكود الحذف بعدتعديل كود البحث صار ما يحذف معي

Dim req As String
req = "Delete From a_tlbia where Rjmfatwra='" & Me.n2 & "';"
DoCmd.SetWarnings False
DoCmd.RunSQL req
DoCmd.SetWarnings True
   Me.واجه_الطلبيات_مساعد.Requery

ربنا يبارك فيك ويزيدك علما

تحياتي اليك

تم تعديل سبتمبر 9, 2018 بواسطه ابو زاهر

[صالح حمادي]

اجعل كود الحذف كالتالي:

Dim req As String
If not isnull(me.n2) or n2<> "" then
   req = "Delete From a_tlbia where Rjmfatwra like " & """*" & Me.n2 & "*"""
   DoCmd.SetWarnings False
   DoCmd.RunSQL req
   DoCmd.SetWarnings True
   Me.واجه_الطلبيات_مساعد.Requery
End If

مع العلم يحذف نتيجة البحث حتى لو كانت أكثر من سجل

[النجاشي]

1 ساعه مضت, صالح حمادي said:

اجعل كود الحذف كالتالي:

Dim req As String
If not isnull(me.n2) or n2<> "" then
   req = "Delete From a_tlbia where Rjmfatwra like " & """*" & Me.n2 & "*"""
   DoCmd.SetWarnings False
   DoCmd.RunSQL req
   DoCmd.SetWarnings True
   Me.واجه_الطلبيات_مساعد.Requery
End If

مع العلم يحذف نتيجة البحث حتى لو كانت أكثر من سجل

ممتاز بارك الله فيك واعطاك الصحه والعافيه يالغالي 

بالنسبه لنتيجه البحث يحذف لوكان اكثر من سجل مش مشكله

هي الطلبيات اصلا لاتزيد عن 3 سجلات او اربعه اذا كثرت 

فكذا تودي المطلوب بدقه فجزاك الله خير يالغالي