النجاشي قام بنشر أغسطس 21, 2017 مشاركة قام بنشر أغسطس 21, 2017 السلام عليكم ورحمه الله وبركاته اخواني الكرام المطلوب ضهور رساله بعد شروط 1 اذا بحثت برقم عقد منتهي تظهر رساله (العقد منتهي لايسمح بمردود) ولايفتح الزر اصدار مردود 2 اذا كان لايوجد سجل عقد بالنموذج الفرعي يعطيك رساله (لايوجد عقد بهدا الرقم)ولايفتح الزر اصدار مردود 3 اذا عملت مردود برقم عقد تجي رساله(سبق وعملت مردود بهدا العقد)ولايفتح الزر اصدار مردود النموذج المطلوب العمل فيه نموذج بحث عن مردود تحياتي رساله.rar رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر أغسطس 21, 2017 مشاركة قام بنشر أغسطس 21, 2017 السلام عليكم استعمل هذا الكود في حدث عند النقر على الزر: If DCount("*", "asnsdat", "rajmasand='" & Me.n1 & "'") = 0 Then MsgBox "áÇíæÌÏ ÚÞÏ ÈåÏÇ ÇáÑÞã" Exit Sub ElseIf [ÊÇÈÚ4].Form![nahatalajd] < Date Then MsgBox "ÇáÚÞÏ ãäÊåí áÇíÓãÍ ÈãÑÏæÏ" Exit Sub ElseIf DCount("*", "ass", "rajmasand='" & Me.n1 & "'") > 0 Then MsgBox "ÓÈÞ æÚãáÊ ãÑÏæÏ ÈåÏÇ ÇáÚÞÏ" Exit Sub End If و هذا هو التعديل على المرفق رساله.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 23, 2017 الكاتب مشاركة قام بنشر أغسطس 23, 2017 الان, صالح حمادي said: السلام عليكم استعمل هذا الكود في حدث عند النقر على الزر: If DCount("*", "asnsdat", "rajmasand='" & Me.n1 & "'") = 0 Then MsgBox "áÇíæÌÏ ÚÞÏ ÈåÏÇ ÇáÑÞã" Exit Sub ElseIf [ÊÇÈÚ4].Form![nahatalajd] < Date Then MsgBox "ÇáÚÞÏ ãäÊåí áÇíÓãÍ ÈãÑÏæÏ" Exit Sub ElseIf DCount("*", "ass", "rajmasand='" & Me.n1 & "'") > 0 Then MsgBox "ÓÈÞ æÚãáÊ ãÑÏæÏ ÈåÏÇ ÇáÚÞÏ" Exit Sub End If و هذا هو التعديل على المرفق رساله.rar استاذي صالح حمادي المطلوب لايفتح الزر في حاله الخيارات الثلاثه الذي ذكرتها اما غير الشروط المذكوره المطلوب يفتح شاكر استاذي كثير على مجهودك رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أغسطس 23, 2017 مشاركة قام بنشر أغسطس 23, 2017 استأذن من استاذنا @صالح حمادي اتفضل اليك هذا رساله.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 23, 2017 الكاتب مشاركة قام بنشر أغسطس 23, 2017 (معدل) 34 دقائق مضت, Shivan Rekany said: استأذن من استاذنا @صالح حمادي اتفضل اليك هذا رساله.rar السلام عليكم استاذي انا حاولت اقرب المسافه بهذا التعديل حتا حذفت الزر وعملت فتح النموذج بعد التحديث بعد ادخال الرقم بنص البحث ثم انتر يفتح النموذج عندي بنموذج بحث عن مردود اثنين عقود واحد مغادر وواحد موجود المطلوب 1 - السجل الأول رقم عقد واحد (غادر) فعندما ادخل رقم عقده بنص البحث واضغط انتر لا اريد يفتح نموذج المردود تجي رساله هذا غادر 2 السجل الثاني (موجود) رقم عقد 2 فعندما ادخل رقم عقده بنص البحث واضغط انتر اريد ان يفتح نموذج المردود 3 في حاله البحث عن عقد ولم يوجد السجل بالنموذج الفرعي رساله لايوجد عقد بهدا الرقم انا شاء استاذي شفان وصالح حمادي تكون وصلت الفكره وهدا القاعده الأخيره فيها توضيح افضل شاكر احبتي لكم كثير تحياتي اذا لم تتضح الفكره سحاول اقرب اكثر طبق بهدا.rar تم تعديل أغسطس 23, 2017 بواسطه ابو زاهر رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أغسطس 24, 2017 مشاركة قام بنشر أغسطس 24, 2017 21 ساعات مضت, ابو زاهر said: السلام عليكم استاذي انا حاولت اقرب المسافه بهذا التعديل حتا حذفت الزر وعملت فتح النموذج بعد التحديث بعد ادخال الرقم بنص البحث ثم انتر يفتح النموذج عندي بنموذج بحث عن مردود اثنين عقود واحد مغادر وواحد موجود المطلوب 1 - السجل الأول رقم عقد واحد (غادر) فعندما ادخل رقم عقده بنص البحث واضغط انتر لا اريد يفتح نموذج المردود تجي رساله هذا غادر 2 السجل الثاني (موجود) رقم عقد 2 فعندما ادخل رقم عقده بنص البحث واضغط انتر اريد ان يفتح نموذج المردود 3 في حاله البحث عن عقد ولم يوجد السجل بالنموذج الفرعي رساله لايوجد عقد بهدا الرقم انا شاء استاذي شفان وصالح حمادي تكون وصلت الفكره وهدا القاعده الأخيره فيها توضيح افضل شاكر احبتي لكم كثير تحياتي اذا لم تتضح الفكره سحاول اقرب اكثر طبق بهدا.rar اتفضل اليك هذا الكود On Error Resume Next If Len(Me.n1 & "") = 0 Then Exit Sub ElseIf DCount("[rajmasand]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = 0 Then MsgBox "ليس لدينا اي عقد بھذا الرقم" Exit Sub ElseIf DLookup("[terhel]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = "غادر" Then MsgBox "هذا مغادر لايمكن فتح نموذج المردود" ElseIf DLookup("[terhel]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = "موجود" Then DoCmd.close acForm, "بحث عن مردود", acSaveNo DoCmd.OpenForm "مردود", acNormal, , "[rajmasand]='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If واليك ملف بعد تعديل طبق-بهدا.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 24, 2017 الكاتب مشاركة قام بنشر أغسطس 24, 2017 في ٢٢/٠٨/٢٠١٧ at 02:04, صالح حمادي said: السلام عليكم استعمل هذا الكود في حدث عند النقر على الزر: If DCount("*", "asnsdat", "rajmasand='" & Me.n1 & "'") = 0 Then MsgBox "áÇíæÌÏ ÚÞÏ ÈåÏÇ ÇáÑÞã" Exit Sub ElseIf [ÊÇÈÚ4].Form![nahatalajd] < Date Then MsgBox "ÇáÚÞÏ ãäÊåí áÇíÓãÍ ÈãÑÏæÏ" Exit Sub ElseIf DCount("*", "ass", "rajmasand='" & Me.n1 & "'") > 0 Then MsgBox "ÓÈÞ æÚãáÊ ãÑÏæÏ ÈåÏÇ ÇáÚÞÏ" Exit Sub End If و هذا هو التعديل على المرفق رساله.rar في ٢٣/٠٨/٢٠١٧ at 17:24, Shivan Rekany said: استأذن من استاذنا @صالح حمادي اتفضل اليك هذا رساله.rar السلام عليكم ورحمه الله وبركاته استاذتي@صالح حمادي و@shivan rekany بعتذر منكم كثير السموحه عملكم مظبوط مايه بالمايه ولكن كان الخلل من عدم تركيزي باكتمال الشرط عند البحث فانتم عملكم مضبوط بارك الله فيكم وجزاكم الله خير الجزاء فكان عندم ابحث برقم العقد اضع واحد واتجاهل الحرف الأجنبي قبل الاصفار ورقم السند وهذا من قله خبرتي باذن الله علي ايديكم نتعلم ولكن ماذا عن تجاهل الاصفار والحرف الأجنبي لا اريد اكتبها بالبحث ه مثلا اريد ابحث برقم 1.2 .3 هكذا بدون اصفار لكم مني اجمل تحيه استاذتي الكرام رابط هذا التعليق شارك More sharing options...
أفضل إجابة Shivan Rekany قام بنشر أغسطس 25, 2017 أفضل إجابة مشاركة قام بنشر أغسطس 25, 2017 15 ساعات مضت, ابو زاهر said: السلام عليكم ورحمه الله وبركاته استاذتي@صالح حمادي و@shivan rekany بعتذر منكم كثير السموحه عملكم مظبوط مايه بالمايه ولكن كان الخلل من عدم تركيزي باكتمال الشرط عند البحث فانتم عملكم مضبوط بارك الله فيكم وجزاكم الله خير الجزاء فكان عندم ابحث برقم العقد اضع واحد واتجاهل الحرف الأجنبي قبل الاصفار ورقم السند وهذا من قله خبرتي باذن الله علي ايديكم نتعلم ولكن ماذا عن تجاهل الاصفار والحرف الأجنبي لا اريد اكتبها بالبحث ه مثلا اريد ابحث برقم 1.2 .3 هكذا بدون اصفار لكم مني اجمل تحيه استاذتي الكرام اذن اليك هذا الكود Private Sub n1_AfterUpdate() On Error Resume Next Dim R As Integer R = Mid(DLookup("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'"), 6) If Len(Me.n1 & "") = 0 Then Exit Sub ElseIf DCount("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = 0 Then MsgBox "ليس لدينا اي عقد بھذا الرقم" Exit Sub ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "غادر" Then MsgBox "هذا مغادر لايمكن فتح نموذج المردود" ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "موجود" Then DoCmd.close acForm, "بحث عن مردود", acSaveNo DoCmd.OpenForm "مردود", acNormal, , "Mid([rajmasand],6)='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If End Sub واليك المرفق بعد تعديل طبق-بهدا.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 25, 2017 الكاتب مشاركة قام بنشر أغسطس 25, 2017 3 دقائق مضت, Shivan Rekany said: اذن اليك هذا الكود Private Sub n1_AfterUpdate() On Error Resume Next Dim R As Integer R = Mid(DLookup("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'"), 6) If Len(Me.n1 & "") = 0 Then Exit Sub ElseIf DCount("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = 0 Then MsgBox "ليس لدينا اي عقد بھذا الرقم" Exit Sub ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "غادر" Then MsgBox "هذا مغادر لايمكن فتح نموذج المردود" ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "موجود" Then DoCmd.close acForm, "بحث عن مردود", acSaveNo DoCmd.OpenForm "مردود", acNormal, , "Mid([rajmasand],6)='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If End Sub واليك المرفق بعد تعديل طبق-بهدا.rar اسال الله العظيم ان ينفع بك الإسلام والمسلمين استاذي شفان برد قلبي كذا ما قصرت سلمت يديك ربنا يجزيك خير والقائمين على المنتدي الرائع الذي باذن الله اتخرج منه شاكر اليك تحياتي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.