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

[النجاشي]

السلام عليكم ورحمه الله وبركاته استاتذتي الكرام حصلت لكود من مشاركات استاذنا @alwazeer الله يجزيه خير على على احد الاعضاء وبدي التعديل علي الكود اذا كان قيمه الحقل نقدي يعطينا رقم العميل العدد 1 واسم العميل الصندوق العام وجزاكم الله خير الجزاء

اذا كان نقدي اوجل.rar

تم تعديل أكتوبر 5, 2017 بواسطه ابو زاهر

[محمد أبوعبدالله]

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

جرب الكود التالي

Private Sub Adfah_Click()
    If Adfah.Value = "نقدي" Then
       NoEmp.Value = 1
	else
    If Adfah.Value = "اجل" Then
       NoEmp.Value = Null
End If
End If
End Sub

تحياتي

[النجاشي]

5 ساعات مضت, محمد ابوعبد الله said:

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

جرب الكود التالي

Private Sub Adfah_Click()
    If Adfah.Value = "نقدي" Then
       NoEmp.Value = 1
	else
    If Adfah.Value = "اجل" Then
       NoEmp.Value = Null
End If
End If
End Sub

تحياتي

استاذي@محمد ابوعبد الله  هوالمطلوب بكله ولكن انا  في البدايه لم اضع السوال الكامل بالمشاركه لقله خبرتي والسماح منك اخي

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

جزاك الله خير استاذي

تحياتي اليك

77777.rar

تم تعديل أكتوبر 6, 2017 بواسطه ابو زاهر

[محمد أبوعبدالله]

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

فضلا الاطلاع على المرفق الجديد

77777.rar

تحياتي

[النجاشي]

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

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

اخوك وضاح

[النجاشي]

14 ساعات مضت, محمد ابوعبد الله said:

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

جرب الكود التالي

Private Sub Adfah_Click()
    If Adfah.Value = "نقدي" Then
       NoEmp.Value = 1
	else
    If Adfah.Value = "اجل" Then
       NoEmp.Value = Null
End If
End If
End Sub

تحياتي

السلام عليكم اخي الكريم حصلت على وحده نمطيه الحمدلله صار تمام التمام عدلت على كودك شويه شكرا اليك استاذي @محمد ابوعبد الله

تحياتي اليك