حذف بيانات العميل

[النجاشي]

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

الموضوع .حذف بيانات العميل  بدون رقمه  بشرط

اذا كان رصيده صفر ويكون الحذف بشكل فردي أي اننا اختار العميل الذي اريد احذفه  وليس الحذف لكل العملاء الذين رصيدهم صفر

الزر موجود بنموذج أسماء العملاء

تحياتي لكم جميعا

حذف بيانات اعميل بدون رقمه.rar

تم تعديل أبريل 11, 2017 بواسطه ابو زاهر
للتوضيح اكثر

[أواب]

تفضل أخي الكريم

حذف بيانات اعميل بدون رقمه.rar

[النجاشي]

مسكور اخي اواب ان شاء يكون هو المطلوب 

19 دقائق مضت, أواب said:

تفضل أخي الكريم

حذف بيانات اعميل بدون رقمه.rar

شكرا اخي اواب ان شاء الله يكون هو المطلوب لاننا حاليا على الموبيل بشوفه في الظهر من الكمبوتر شاكر لك على تعاونك معنا

[النجاشي]

5 ساعات مضت, أواب said:

تفضل أخي الكريم

حذف بيانات اعميل بدون رقمه.rar

السلام عليكم اخي  اولا مشكور اخي 

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

تحياتي اليك اخي

[النجاشي]

الأخ @أواب والاخ شفان المطلوب موجود بنموذج أسماء العملاء تحياتي

حذف بيانات اعميل بدون رقمه.rar

[Shivan Rekany]

13 ساعات مضت, ابو زاهر said:

الأخ @أواب والاخ شفان المطلوب موجود بنموذج أسماء العملاء تحياتي

حذف بيانات اعميل بدون رقمه.rar

جرب هذا 

استخدمت هذا الكود

Private Sub أمر150_Click()
On Error Resume Next
If DLookup("الرصيد", "asd", "[NoEmp]=" & Forms![اسماء العملاء]![Text155]) <> 0 Then
    MsgBox ("لا يتم الحذف لان عنده " & " ( " & Forms![اسماء العملاء]![Text157] & " ) " & "باقي من الرصيد")
    Exit Sub
    End If
        If MsgBox("هل انت متأكد من حذف بيانات العميل", vbYesNo) = vbYes Then
        Forms![اسماء العملاء]![تابع132]![NaEMP] = ""
        Forms![اسماء العملاء]![تابع132]![SAL] = ""
        Forms![اسماء العملاء]![تابع132]![Alhdalmsmh] = ""
            Me.Refresh
        MsgBox "تم الحذف"
    End If
End Sub

تقبل تحياتي

حذف بيانات اعميل بدون رقمه.rar

تم تعديل أبريل 13, 2017 بواسطه Shivan Rekany

[النجاشي]

12 ساعات مضت, Shivan Rekany said:

جرب هذا 

استخدمت هذا الكود

Private Sub أمر150_Click()
On Error Resume Next
If DLookup("الرصيد", "asd", "[NoEmp]=" & Forms![اسماء العملاء]![Text155]) <> 0 Then
    MsgBox ("لا يتم الحذف لان عنده " & " ( " & Forms![اسماء العملاء]![Text157] & " ) " & "باقي من الرصيد")
    Exit Sub
    End If
        If MsgBox("هل انت متأكد من حذف بيانات العميل", vbYesNo) = vbYes Then
        Forms![اسماء العملاء]![تابع132]![NaEMP] = ""
        Forms![اسماء العملاء]![تابع132]![SAL] = ""
        Forms![اسماء العملاء]![تابع132]![Alhdalmsmh] = ""
            Me.Refresh
        MsgBox "تم الحذف"
    End If
End Sub

تقبل تحياتي

حذف بيانات اعميل بدون رقمه.rar

بارك الله فيك اخي@Shivan Rekany  هو المطلوب ذاته ما قصرت ربي يعافيك يالغالي