safaa salem5

الصب فورم اللى فوق بياناته مش بتظهر كله لازم تحرك الماوس عشان تبان كلها

تمام تسلم

هو حضرتك عملت تعديل فى اى حاجه غير الكود التقرير فى الملف بتاع حضرتك شغال كويس جدا لكن لما بنقل الكود عندى حجم الصب ريبورت بيكون مش مظبوط @ M.Abd Allah

ممكن حضرتك تشوف المشكله فين جزأ الهيدر حاسه انه اصغر من حجم التقرير الفرعى New Microsoft Access Database (3).accdb

متشكره

هديك مثال لو كنبت فى حقل 4 والحقل التانى 2222 هيحسب الحقل المحسوب تمام لكن لو شيلت 2 من الحقل اللى فيه 2222 مش هيحصل تحديث فى القيمه المحسوبه

ما هو انا نقلت الحدث فى onchange فى الفورم الاول وبرده مش بيحصل تحديث وقتى للقيمه المحسوبه

الفورم الاول مش بيدينى الحقل المحسوب مظبوط فى تاخير فى عملية الحساب جرب بنفسك الفورم التان شغال تمام زى ما انا عايزه بس الحقلين مش بيقبلو اكتر من 6 ارقام وبعدها بيدينى رساله overflow

الطريقة التانيه هى اللى شغاله بس هل ممكن الاستغناء عن الحقول غير المنضمه

طيب ممكن تطبق على الملف عشان يدينى نفس النتيجه زى الصورة

??

عندى فورم به الحقول التاليه volume,conc,total المطلوب اثناء الكتابه فى اى من الحقلين التاليين volume,conc يتم احتساب حقل total اثناء الكتابه وهو ناتج عن ضرب قيمة الحقلين السابقين ببعضهما انا استخدمت الكود دا بس الاستجابه مش سريعه Private Sub conc_Change() Me.total = Nz(Me.volume, 0) * Nz(Me.conc, 1) End Sub مطلوب الكود فى حدث on change فقط بدون استخدم حدث عندالتغيير مثل المثال ف الصوره calc.accdb

نفس الكلام بيعمل اتنين سجل بالشكل دا

بيعمل سجلين اتنين

بردو بيعمل سجلين واحد كامل البيانات وواحد بدون قيمه فى حقل fixed name

ف البدايه حابه اشكرك جدا عندى نقطه اتحلت ان اسم fixedname بدأ يدخل الجدول لكن فى رساله خطأ جديده من الاكسيس ظهرت غير الاولى النقطه التانيه انا عايزه امنع تكرار fixedname فى جدول fixedt_tbl لان فى اول عملية اضافه بيضيف سجلين فى الجدول دا واحد فى اسم fixedname والتانى مفهوش @M.Abd Allah

بص انا عملت ميكس بين الكودين بالشكل دا Dim rs As DAO.Recordset Dim fixedNameValue As String Dim newResultValue As String Dim fixedDefaultValue As Variant Dim fixedNormalValue As Variant Dim reportNameValue As Variant fixedNameValue = Me.testnameN newResultValue = Me.Newresult fixedDefaultValue = Me.fixeddefault fixedNormalValue = Me.fixednormal reportNameValue = Me.Reportname If IsNull(fixedDefaultValue) Or IsNull(fixedNormalValue) Or IsNull(reportNameValue) Then MsgBox "ÝÖáÇ íÑÌì ÇÓÊßãÇá ÈÇÞì ÈíÇäÇÊ (fixeddefault, fixednormal, Reportname) ÞÈá ÇáÅÖÇÝÉ.", vbExclamation Exit Sub End If If IsNull(fixedNameValue) Or IsNull(newResultValue) Then MsgBox "+ ÖÚ ÇáÞíãå ÇáãÑÇÏ ÇÖÇÝÊåÇ Ëã ÇÖÛØ ÒÑÇÑ", vbExclamation Exit Sub End If Set db = CurrentDb sql = "SELECT COUNT(*) AS RecordCount FROM fixedresults_tbl WHERE Fixedname = '" & fixedNameValue & "' AND Fixedresult = '" & newResultValue & "'" Set rs = db.OpenRecordset(sql) If Not rs.EOF And rs!RecordCount > 0 Then MsgBox "ÇáÞíãÉ ÇáãÏÎáÉ ãæÌæÏÉ ãÓÈÞðÇ.", vbExclamation rs.Close Set rs = Nothing Set db = Nothing Exit Sub End If rs.Close Set rs = Nothing MAXCODE = DMax("code", "fixedresults_tbl") Me.code.Value = MAXCODE + 1 sql = "INSERT INTO fixedresults_tbl (code,Fixedname, Fixedresult) " & _ "VALUES ('" & code & "', '" & fixedNameValue & "', '" & newResultValue & "')" db.Execute sql, dbFailOnError Set db = Nothing Resultlist.Requery Newresult.Value = "" MsgBox "ÊãÊ ÇáÇÖÇÝå", vbInformation ' ÝÊÍ ÇáÌÏæá ÇáãÑÇÏ ÇáÊÍÏíË áå Set rs = db.OpenRecordset("Fixed_tbl", dbOpenDynaset) ' ÇáÊÍÞÞ ãä ÇÐÇ ßÇä ÇáÓÌá ãæÌæÏ ÈÇáÝÚá rs.FindFirst "fixedname = '" & fixedNameValue & "'" If rs.NoMatch Then ' ÇÖÇÝÉ ÓÌá ÌÏíÏ rs.AddNew rs!fixedname = fixedNameValue Else ' ÊÚÏíá ÇáÓÌá ÇáãæÌæÏ rs.Edit End If ' ÊÍÏíË ÇáÞíã Ý ÇáÓÌá rs!fixeddefault = fixedDefaultValue rs!fixednormal = fixedNormalValue rs!Reportname = reportNameValue rs!fixedname = fixedNameValue rs.Update rs.Close Set rs = Nothing Set db = Nothing MsgBox "ÊãÊ ÇáÇÖÇÝå!", vbInformation End Sub بس عندى مشكله فى الجدول الاخير مش بيكتب قيمة fixedname رحت انا اضفتها للكود بس برده بيطلع قيمته فى الجدول فاضى وفى حاجه تانيه بعد مابيضيف بيدينى رساله دى @M.Abd Allah

@M.Abd Allahممكن لو سمحت استاذ محمد عايزه اضيف شرط هنا اثناء الضغط على زرار اضافه يشوف لو الحقول دى fixeddefault fixednormal Reportname هتكون موجوده فى نفس الفورم لوفيها قيم يضيف عادى (لو مفهاش قيم تخرج رساله (يرجى ادخال البيانات قبل الاضافه واول مايتم ملاؤهم يقبل الاضافه عادى والقيم اللى اتكتبت فى الفيلدات التلاته تروح للجدول اللى اسمه Fixed_tbl هو بالشكل اللى ف الصوره

M Mohamed صح M Mohamed صح

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

فى حاجه بسيطه خالص لو مالقاش سجل بنفس الشرط اللى فى الكود دا WHERE fixedname = '" & fieldName & "'" فى الحاله دى يعمل كدا Me.testnameN = fieldName & "(" & subName & ")" Me.default = null Me.Normal = null Me.Reportname = null ورساله تخرج لا يوجد قيم مسجله لهذا التحليل

خلاص انا عرفت اشيل الاقواس من الكود نقطه اخيره والله عارفه انى تقلت عليك هو هنا لو ملقاش قيمه حقل من التلاته متسجله هيدينى رسالة لايوجد سجل لا انا عايزاه يجيب القيم المتسجله واللى مش متسجل عادى الحقل بتاعه يفضل فاضى بدل مايدينى لا يوجد سجل عايزاه يجيب قيمة اى حقل متسجل Else MsgBox "لا يوجد سجل " & fieldName, vbExclamation انت ابن حلال والله تقريبا هود دا اللى انا كنت بشرحه لحضرتك

تمام كدا بس مش عايزه الاقواس اللى فى الاخر

بص هو زى الملف اللى الاستاذ خليفه صممه بس عايزه لما اختار قيمه من الليست بوكس تظهر في الحقل