النجاشي قام بنشر سبتمبر 13, 2017 قام بنشر سبتمبر 13, 2017 (معدل) السلام عليكم ورحمه الله وبركاته هل يوجد طريقه لعدم ظهور( #خطأ )داخل النص شاكرين احبتي تم تعديل سبتمبر 13, 2017 بواسطه ابو زاهر
حسين العربى قام بنشر سبتمبر 14, 2017 قام بنشر سبتمبر 14, 2017 اخي الفاضل ابو زاهر ممكن رفع مرفق للتعديل عليه ومعرفة سبب المشكلة 1
jjafferr قام بنشر سبتمبر 14, 2017 قام بنشر سبتمبر 14, 2017 وعليكم السلام اخي وضاح هذا الخطأ ينتج لما تكون عندك معادلة لحقل ومافيه بيانات ، لذا تقدر تستعمل iif الشرطية: اذا في بيانات ، فقم بالمعادلة ، واذا مافي بيانات فاعطنا "" ، مثلا من http://allenbrowne.com/RecordCountError.html : =IIf([Form].[Recordset].[RecordCount] > 0, Sum([Amount]), 0) وهناك شرح اكثر في الرابط اعلاه. جعفر 2
النجاشي قام بنشر سبتمبر 14, 2017 الكاتب قام بنشر سبتمبر 14, 2017 منذ ساعه, jjafferr said: وعليكم السلام اخي وضاح هذا الخطأ ينتج لما تكون عندك معادلة لحقل ومافيه بيانات ، لذا تقدر تستعمل iif الشرطية: اذا في بيانات ، فقم بالمعادلة ، واذا مافي بيانات فاعطنا "" ، مثلا من http://allenbrowne.com/RecordCountError.html : =IIf([Form].[Recordset].[RecordCount] > 0, Sum([Amount]), 0) وهناك شرح اكثر في الرابط اعلاه. جعفر منذ ساعه, حسين العربى said: اخي الفاضل ابو زاهر ممكن رفع مرفق للتعديل عليه ومعرفة سبب المشكلة استاتذي الكرام@jjafferr @حسين العربىهذه القاعده نموذج اليوميه عند افتح النموذج ويكون ما فيش قيمه كما قال الأستاذ جعفر تجي المشكله ولكن عندما اظغط زر انتر شغال كويس بس المطلوب في حاله عدم وجود بيانات لا اريد ظهور الخطاء بالنص شاكرين مقدرين بس لقلت خبرتي لم استطع عمل المعادله بالطريقه الصحيحه 5555.rar
jjafferr قام بنشر سبتمبر 15, 2017 قام بنشر سبتمبر 15, 2017 السلام عليكم الظاهر انك ارفقت البرنامج الخطأ !! جعفر 1
النجاشي قام بنشر سبتمبر 15, 2017 الكاتب قام بنشر سبتمبر 15, 2017 منذ ساعه, jjafferr said: السلام عليكم الظاهر انك ارفقت البرنامج الخطأ !! جعفر السلام عليكم استاذي @jjafferr هههه صحيح اننا ارفقت قاعده خطاء المعذره فاليك القاعده استاذي بارك الله فيك بنموذج اليوميه المشكله عند الفتح لا اريد ظهور الخطاء 55.rar
jjafferr قام بنشر سبتمبر 15, 2017 قام بنشر سبتمبر 15, 2017 السلام عليكم الطريقة التي اقترحتها لم تفلح ، لذا استخدمت الكود التالي لعمل اللازم Private Sub Sub_Values() On Error GoTo err_Sub_Valuest Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [مساعد يوميه]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'a pause is required PauseTime = 0.5 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop If RC > 0 Then Me.نص130 = Me.[تابع15]![نص13] Me.نص228 = Me.[تابع15]![نص23] Me.نص28 = Me.[تابع15]![نص17] Me.نص132 = Me.[تابع15]![نص29] End If rst.close: Set rst = Nothing Exit Sub err_Sub_Valuest: If Err.Number = 3021 Then 'No Records in SubForm Me.نص130 = 0 Me.نص228 = 0 Me.نص28 = 0 Me.نص132 = 0 ElseIf Err.Number = 3061 Then 'parameter required Set db = CurrentDb Set qdf = db.QueryDefs("[مساعد يوميه]") For Each prm In qdf.Parameters prm.Value = Eval(prm.name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . ونناديها مرتين ، مرة في الحالي للنموذج الرئيسي ، ومرة عند تغيير التاريخ: Private Sub Form_Current() Me.[تابع15].Requery Call Sub_Values End Sub Private Sub n2_Exit(Cancel As Integer) Call cmd_Search2_Click Call Sub_Values End Sub . جعفر 724.55.accdb.zip 1
النجاشي قام بنشر سبتمبر 15, 2017 الكاتب قام بنشر سبتمبر 15, 2017 12 دقائق مضت, jjafferr said: السلام عليكم الطريقة التي اقترحتها لم تفلح ، لذا استخدمت الكود التالي لعمل اللازم Private Sub Sub_Values() On Error GoTo err_Sub_Valuest Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [مساعد يوميه]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'a pause is required PauseTime = 0.5 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop If RC > 0 Then Me.نص130 = Me.[تابع15]![نص13] Me.نص228 = Me.[تابع15]![نص23] Me.نص28 = Me.[تابع15]![نص17] Me.نص132 = Me.[تابع15]![نص29] End If rst.close: Set rst = Nothing Exit Sub err_Sub_Valuest: If Err.Number = 3021 Then 'No Records in SubForm Me.نص130 = 0 Me.نص228 = 0 Me.نص28 = 0 Me.نص132 = 0 ElseIf Err.Number = 3061 Then 'parameter required Set db = CurrentDb Set qdf = db.QueryDefs("[مساعد يوميه]") For Each prm In qdf.Parameters prm.Value = Eval(prm.name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . ونناديها مرتين ، مرة في الحالي للنموذج الرئيسي ، ومرة عند تغيير التاريخ: Private Sub Form_Current() Me.[تابع15].Requery Call Sub_Values End Sub Private Sub n2_Exit(Cancel As Integer) Call cmd_Search2_Click Call Sub_Values End Sub . جعفر 724.55.accdb.zip اسال الله العظيم ان يكتب لك الاجر بكل حرف كتبته يديك بميزان حسناتك استاتذي @jjafferr كم انت رائع تسلم يديك والف شكر برد قلبي تماما كذا الله يحفظك ويزيك علما وينفع بك الإسلام والمسلمين
رمهان قام بنشر سبتمبر 15, 2017 قام بنشر سبتمبر 15, 2017 مشاركة مع اخي جعفر لي محاولة هنا هي شبيهه لماتريد وباختصار : عمل مربع رديف واستخدام الدالة iserror تحياتي للجميع 4
النجاشي قام بنشر سبتمبر 15, 2017 الكاتب قام بنشر سبتمبر 15, 2017 10 دقائق مضت, رمهان said: مشاركة مع اخي جعفر لي محاولة هنا هي شبيهه لماتريد وباختصار : عمل مربع رديف واستخدام الدالة iserror تحياتي للجميع سلمت يديك اخي @رمهان ماقصرت ربنا يحفظك
jjafferr قام بنشر سبتمبر 15, 2017 قام بنشر سبتمبر 15, 2017 شكرا اخي رمهان بالفعل ، يمكن الاستغناء عن الكود ، واستعمال المعادلة التاليه في الحقل مباشرة: =IIf(IsError([تابع15]![نص13]),0,[تابع15]![نص13]) جعفر 2
النجاشي قام بنشر سبتمبر 15, 2017 الكاتب قام بنشر سبتمبر 15, 2017 19 دقائق مضت, jjafferr said: شكرا اخي رمهان بالفعل ، يمكن الاستغناء عن الكود ، واستعمال المعادلة التاليه في الحقل مباشرة: =IIf(IsError([تابع15]![نص13]),0,[تابع15]![نص13]) جعفر حاولت في هذه المعادله وتجي رساله يحتوي التعبير الذي ادخلته على جمله غير صحيحه
Shivan Rekany قام بنشر سبتمبر 15, 2017 قام بنشر سبتمبر 15, 2017 29 دقائق مضت, ابو زاهر said: حاولت في هذه المعادله وتجي رساله يحتوي التعبير الذي ادخلته على جمله غير صحيحه لانك تكتبه كمصدر المربع النصي لذلك تحصل على هذا الرسالة وما تكتبه في الاكواد لذا فقط عليك ان تتغير هذا "," بهذا ";" وکل شيء سيكون على ما يرام ان شاء الله 1
النجاشي قام بنشر سبتمبر 15, 2017 الكاتب قام بنشر سبتمبر 15, 2017 (معدل) 8 دقائق مضت, Shivan Rekany said: لانك تكتبه كمصدر المربع النصي لذلك تحصل على هذا الرسالة وما تكتبه في الاكواد لذا فقط عليك ان تتغير هذا "," بهذا ";" وکل شيء سيكون على ما يرام ان شاء الله حياك الله استاذي @Shivan Rekany نورت المنتدي زياده الخير خيرين صحيح اكتبه كمصدر للمربع النصي بس لذا فقط عليك ان تتغير هذا "," بهذا ";" وکل شيء سيكون على ما يرام ان شاء الله ما دريت فين اعملها ممكن تعملها علي نص الإيرادات شاكر على المشاركه اخي الغالي تم تعديل سبتمبر 15, 2017 بواسطه ابو زاهر
أفضل إجابة jjafferr قام بنشر سبتمبر 15, 2017 أفضل إجابة قام بنشر سبتمبر 15, 2017 تفضل ، المرفق بطريقة اخي رمهان جعفر 724.1.55.accdb.zip 2
Shivan Rekany قام بنشر سبتمبر 15, 2017 قام بنشر سبتمبر 15, 2017 على الرغم ان استاذ جعفر عمل المطلوب لكن انا اريد ان اشرح قصدي كان قصدي في جملة استاذ جعفر اي يعني سيكون الكود كالتالي =IIf(IsError([تابع15]![نص13]);0;[تابع15]![نص13]) 2
النجاشي قام بنشر سبتمبر 15, 2017 الكاتب قام بنشر سبتمبر 15, 2017 12 دقائق مضت, Shivan Rekany said: على الرغم ان استاذ جعفر عمل المطلوب لكن انا اريد ان اشرح قصدي كان قصدي في جملة استاذ جعفر اي يعني سيكون الكود كالتالي =IIf(IsError([تابع15]![نص13]);0;[تابع15]![نص13]) صحيح استاذي عمل المطلوب وكان بقي شويه ملاحظه والحمدلله عملها فالف شكر اليك ولاستاذ جعفر والاخ رمهان 18 دقائق مضت, jjafferr said: تفضل ، المرفق بطريقة اخي رمهان جعفر 724.1.55.accdb.zip شكرا أستاذ جعفر بس ممكن توضيح ليش انا كنت اعمل المعادله ولم تقبل معي للاستفاده شاكر اليك
jjafferr قام بنشر سبتمبر 15, 2017 قام بنشر سبتمبر 15, 2017 5 دقائق مضت, ابو زاهر said: شكرا أستاذ جعفر بس ممكن توضيح ليش انا كنت اعمل المعادله ولم تقبل معي للاستفاده شاكر اليك آسف ، ما اعرف!! عندك نسختي ونسختك ، واعمل مقارنه بينهما جعفر 2
النجاشي قام بنشر سبتمبر 15, 2017 الكاتب قام بنشر سبتمبر 15, 2017 3 دقائق مضت, jjafferr said: آسف ، ما اعرف!! عندك نسختي ونسختك ، واعمل مقارنه بينهما جعفر تمام أستاذ جعفر حفظك الله انت وكل الاخوه المشاركين الأستاذ رمهان والأستاذ شفان ريكاني ما قصرتم الله يزيدكم علما
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.