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

جرب اخي الان انظر الى المرفق new.rar

حبيت اشارك بنفس الطريقه ولكن بدل النموذج تقرير تصيد المتلاعب-3.rar

العفو اخي وبالتوفيق لك

اتفضل هذا ماطلبت فتح نموذج بشرط.rar

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

جرب هذا وقول شو المطلوب بعده الان هذا طلبك الاول حسابات قيد مزدوج.rar

اخي الفاضل انا حاولت وطلع فعلا عند الانتقال الى الحقل الاخر يحذف الحقل اللي قبله ان شاء الله نجد لها حل

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

جرب هذا حسابات قيد مزدوج.rar

اخي جعفر انت المعلم ومنكم نستفيد ربي يحفظك

اتمنا يكون المطلوب والحل هو تبع الاخ جعفر فقط انا سويت في حدث عند الخروج من الادراج ky=0 3211.rar

اتفضل اخي ابو زاهر عند الخروج بدون رساله اتمنا ان يكون المطلوب 3211.rar

كلام الاخ جعفر صحيح انظر 951.rar

ارفق المثال الكود سليم If Me.Password = DLookup("[Password]", "user", "[username]= '" & Me.UserName & "'") Then MsgBox "loading" DoCmd.OpenForm "census" DoCmd.Close acForm, "login" Else MsgBox "incorrect username and password" End If ولكن اظن Password عبارة محجوزه حاول تغيرها الى Password2

اخي الكريم هل تقصد سبب الرسالة عند الحفظ اذا كان نعم فالعبارة ناقصه If Not CheckAll Then Cancel = True End If فيجب ان تكون هكذا انظر الى المرفق If Not CheckAllFieldsInserted Then Cancel = True End If حسابات قيد مزدوج.rar

اتفضل اخي ابو زاهر هذا اخر تعديل اخر دعديل.rar

بالتوفيق اخي ابو زاهر

ان شاء الله الاخ جعفر بيحلها بسهوله ماشاء الله عليه ربي يزيده من علمه

وعليكم السلام ورحمة الله وبركاته شكرا لك اخي جعفر

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

تسلم اخي جعفر توصلت الى نتيجه فكان المطلوب MsgBox " C?U?U? I??UE IU?U? C?U??U?U? ?U?U?C C?U?U?UEUIUI? ?U? " & " (" & Me.n1 * DrXes & " ) ", , " ?UU?UU? ?UUI?UU? ?UU?C ?UU?UUE EUC?IUU?U? C?UEU? " ', , vbOKOnly, "??UUC? C?U?U?EU? : C??UUUU?C??UUCE " هذا ماكنت اقصده (" & Me.n1 * DrXes & " )

اخي جعفر كيف نجعل الخصم يطلع 30% بدلا من 03 DoCmd.Beep Dim str1SaveMssage As String str1SaveMssage = " ÓÜÜíÜÜÊÜÜã ÎÜÜÕÜÜã : " str1SaveMssage3 = " ãÜÜä ÇáÜãÜÜÈÜÜÜáÜÛ : " str1SaveMssage3 = str1SaveMssage3 & Me.[n1] str1SaveMssage2 = str1SaveMssage2 & [Alhasm] & " Ñ íÜÇá : " If MsgBox(str1SaveMssage & str1SaveMssage2 & str1SaveMssage3 & vbCrLf & "", vbYesNo, " æÖÜÜÇÍ ÇáÜäÜæÈÜå ") = vbYes Then Dim DrXes As Double DrXes = DLookup("[DracaALXesim]", "tb5", "[name]= '" & Me.user1 & "'") ' DrXes = DLookup("[DracaALXesim]", "[tb5]", "[name]='" & Me.user1 & "'") If DrXes < (Me.Alhasm / Me.n1) Then ' MsgBox "ÇÚáì ÏÑÌÉ ÎÕã ÇáãÓãÍ áåÐÇ ÇáãÓÊÎÏã åæ" & " (% " & DrXes & " ) ", , "ÊäÈíå" ' MsgBox " ÇÚÜáÜì ÏÑÌÜÉ ÎÜÕÜã ÇáÜãÓÜãÜÍ áÜåÜÐÇ ÇáÜãÜÓÜÊÜÎÜÏã åÜæ " & " (% " & DrXes & " ) ", , "ÊäÈíå" MsgBox " ÇÚÜáÜì ÏÑÌÜÉ ÎÜÕÜã ÇáÜãÓÜãÜÍ áÜåÜÐÇ ÇáÜãÜÓÜÊÜÎÜÏã åÜæ " & " (% " & DrXes & " ) ", , " áÜÜíÜÜÓ áÜÜÏíÜÜß ÕÜÜáÇ ÍÜÜíÜÜÉ ÈÜÇáÎÜÜÕÜã ÇßÜËÜÑ " ', , vbOKOnly, "æÖÜÜÇÍ ÇáÜäÜæÈÜå : ÇáÕÜÜÜÜáÇÍíÜÜÇÊ " Cancel = 0 Else Me.Percentage_Discount = Me.Alhasm / Me.n1 End If End If

ماشاء الله عليك اخي جعفر مبدع تسلم اصبت بارك الله فيك

الاخ جعفر عندما تضغط انتر عللى اسم الصنف يفتح نموذج الاصناف فتختار 1-1 يطلع الصنف تعمل له ادراج وعند الضغط على الصنف يعطيك العدد حق شهر 12 11

لم افهم الاخ جعفر المجموع3.rar