صالح حمادي

و الله يا أستاذي الكريم يعلم الله عز و جلى أني أحبك فيه حتى و لو لم أصل إلى هدفي فنيتك الصادقة و المعبرة لمساعدة الناس أخلص من كل شيء جعلها الله لك صدقة جارية إن شاء الله

بارك الله فيك و نفعنا الله بعلمك إن شاء الله

شكرا على الرد أستاذي الكريم لكن أنا أريد أن أجعل خاصية مشروط : لا لكي أستطيع فتح نموذج آخر

جزاك الله خيرا أستاذ أبا جودي أنا ما أريده هو هل بالإمكان تعويض vbred التي تعطي اللون الأحمر بكود آخر يعطي لون شفاف me.detail.BackColor = vdred

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام أريد أن أجعل النموذج يعرض في المقدمة دائما حتى و لو فتحة نموذجا أخر في وضع التصميم. من لديه أي معلومة فليفدنا بها جزاكم الله خير الجزاء

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام كما هو معروف أنه بالإمكان تلوين النموذج بأي لون بسهولة و لكني أردت أن أجعله شفاف فلم أستطع. من لديه أي معلومة فليفدنا بها جزاكم الله خير الجزاء

العفو أخي لا عليك أشكرك على المشاركة

السلام عليكم و رحمة الله تعالى و بركاته أخوتي و أساتذتي الكرام هل يمكن إضافة شريط أو زر لطباعة تقرير منبثق. و جزاكم الله خيرا.

السلام عليكم و رحمة الله تعالى و بركاته تابع هذا الموضوع:

ما شاء الله عليك أستاذي رمهان أنت شديد الملاحظة نفعنا الله بما تقدمه من علم و جزاك الله عنا خير الجزاء. لقد قمت بتغيير طفيف يمكنني من إصطياد الخطأ الذي ذكرته و البقاء في نفس السجل الذي أقوم بالتعديل عليه. If CurrentRecord = 1 Then DoCmd.GoToRecord , , acNext DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acPrevious DoCmd.GoToRecord , , acNext End If قاعدة بيانات1.rar

السلام عليكم و رحمة الله تعالى و بركاته: تفضل الملف و بدون أي كود لقد أضفت إليه إستعلام و ماكرو فقط به خطأ.rar

السلام عليكم و رحمة الله تعالى و بركاته: شكرا جزيلا أساتذتي الكرام على هذه الملاحظة، لكن يمكن تجاوز هذه المشكلة بتعويض الجزء التالي من الكود: DoCmd.GoToRecord , , acLast بهذا الجزء: DoCmd.GoToRecord , , acPrevious DoCmd.GoToRecord , , acNext بهذا الشكل يصبح البرنامج يطلع رسالة بأن السجل مكرر و عند الضغط على موافق للرسالة يعود لنفس السجل الذي كنت تجري عليه التعديل. هذا و الله أعلم إن كانت هناك ملاحظات أخرى فسنسعى جاهدين لتخطيها بإذن الله جل و على موفقون بإذن الله قاعدة بيانات1.rar

جزاك الله خيرا

استعمل الدالة Trim فهي تقوم بإزالة المسافات الزائدة

السلام عليكم و رحمة الله تعالى و بركاته الحل الذي قدمه الأستاذ أبا جودي ممتاز جدا، و لدي محاولة بسيطة رغم أنها أقل من محاولة أستاذي أبا جودي لكن لا بأس بالمحاولة قاعدة بيانات1.rar

العفو أخي الأستاذ أبا جودي دائما يبهرنا بإبداعه جزاه الله كل خير و نفعنا الله بعلمه هو و جميع أعمدة هذا المنتدى الرائع

السلام عليكم و رحمة الله تعالى و بركاته بعد إذنك أستاذ محمد إبراهيم هذا كود آخر للحل db.rar

ما شاء الله عليك أستاذ أبا جودي

أخي لم أفهم المطلوب البرنامج يعمل بشكل جيد يا ريت توضح المطلوب بالصور

و فيك بارك الله

أن صممت الحاسبة على أن تحسب عددين و لكن بإمكانك حساب الجملة التي طلبتها بالشكل التالي 1+2 تضغط على = ثم +3 و هكذا بإمكانك حساب أي عملية و هكذا أنا صممنها على شكل الحاسبة الكلاسيكية أتمنى أن يكون قد إتضحى الأمر أخي

لقد غيرت أسماء العناصر إلى اللغة اللاتينية جرب الآن آلة حاسبة.rar

الحمد لله لقد توصلت إلى الكود الذي يؤدي الغرض حسب ما فهمت أنا: On Error Resume Next Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("tbl_wared_motaba") x = 1 rs.MoveFirst For I = 1 To DCount("*", "tbl_wared_motaba") If Nz(rs!id_emp_w, 0) = Nz(id_m, 0) And Nz(rs!sn_user_Recv, 0) = Nz(sn_user_Recv, 0) And Nz(rs!sn_user_Send, 0) = Nz(sn_user_Send, 0) And Nz(rs!taxt_Tasera, 0) = Nz(taxt_Tasera, 0) And Nz(rs!dd_end, 0) = Nz(dd_end, 0) And Nz(rs!Date_End, 0) = Nz(Date_End, 0) And Nz(rs!Date_start, 0) = Nz(Date_start, 0) Then x = 0 End If rs.MoveNext Next I If x = 0 Then msgBox ("لقد تم تسجيل هذه البيانات من قبل") Else Me.frm_wared_motaba.SetFocus rs.AddNew rs!id_emp_w = id_m rs!sn_user_Recv = sn_user_Recv rs!sn_user_Send = sn_user_Send rs!taxt_Tasera = taxt_Tasera rs!dd_end = dd_end rs!Date_End = Date_End rs!Date_start = Date_start rs.Update msgBox ("لقد تم تسجيل البيانات بنجاح") End If Me.Requery Me.frm_wared_motaba.Requery rs.close Set rs = Nothing المراسلات.rar

أخي محمد أنت قلت لا أريد الإضافة في حال التكرار هذا ما فهته من شرحك أخي و هل يقوم بالإضافة في حال عدم و جود التكرار؟ جرب إدخال سجل غير موجود و أطلعني على النتائج أستاذ محمد

السلام عليكم و رحمة الله تعالى و بركاته أستاذ محمد إن شاء الله تكون بخير: تفضل جرب هذا الكود: For i = 1 To DCount("*", "tbl_wared_motaba") If rs!id_emp_w = id_m And rs!sn_user_Recv = sn_user_Recv And rs!sn_user_Send = sn_user_Send And rs!taxt_Tasera = taxt_Tasera And rs!dd_end = dd_end And rs!Date_End = Date_End And rs!Date_start = Date_start Then x = 0 End If Next i If x = 0 Then MsgBox ("لقد تم تسجيل هذه البيانات من قبل") Else On Error Resume Next Me.frm_wared_motaba.SetFocus Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("tbl_wared_motaba") rs.AddNew rs!id_emp_w = id_m rs!sn_user_Recv = sn_user_Recv rs!sn_user_Send = sn_user_Send rs!taxt_Tasera = taxt_Tasera rs!dd_end = dd_end rs!Date_End = Date_End rs!Date_start = Date_start rs.Update rs.Close Me.frm_wared_motaba.Requery MsgBox ("لقد تم تسجيل البيانات بنجاح") End If