Fmmm

السلام عليكم عندي مشكله انا اعمل علي ويندوز ١٠ وميكروسوف ٢٠١٩ عند تصميم اي قاعده بيانات تعمل علي الجهاز وعند نقلها الي اي جهاز اخر يحصل سوء كان ويندوز ١٠ أو ١١ أو ميكروسوفت اقل من ٢٠١٩ او ٣٦٥ يحدث مشاكل في اللغة العربية تكون شكلها رموز مع اني دخلت علي الاعدادات وحاولت حلها بدون جدوي المشكله في محرر الاكواد. مع اني ظبت اعدات اللغة من الجهاز للمنطقة الزمنيه اللغة العربية. احتاج حل بحيث عند نقل قاعده البيانات لا يحدث اي مشاكل للغة العربية.

؟

السلام علي وجدت قاعده بيانات للسيد @Moosak وقمت بالتعديل عليها حسب طلب ولكن واجهتني مشكله عند الإضافة الأصناف من القوائم بحيث عند الضغط علي اسم الصنف من القائمه يضيف صنف جديد اي ممكن يضيف الصنف عند كل ضغطه احتاج عند الضغط اذا كان غير موجود الصنف لنفس الفاتوره يقوم بالإضافة واذا كان موجود يزيد الكمية فقط وعند التعديل علي فاتوره سابقة إضافة من القوائمFunction mm(menuNumber As Integer) On Error Resume Next ' تجاهل الأخطاء ومتابعة التنفيذ DoCmd.SetWarnings False ' تعطيل رسائل الإنذار Dim xx As String xx = ActiveControl.Tag Set rs = Me.SUBFRMOrders.Form.RecordsetClone rs.FindFirst "itemcode1='" & xx & "'" If rs.NoMatch Then Me.SUBFRMOrders.SetFocus DoCmd.GoToRecord , , acNewRec Me.SUBFRMOrders!ItemCode1 = xx Me.SUBFRMOrders!OrderQuantity = 1 Me.SUBFRMOrders.Form.Requery Me.SUBFRMOrders.Form![TI].Requery Me.SUBFRMOrders.Form![Te].Requery Else DoCmd.RunSQL "UPDATE TblTransactions SET OrderQuantity = OrderQuantity + 1 WHERE OrderNumber = '" & Me.OrderNumber & "' AND itemcode1 = '" & xx & "'" DoCmd.SetWarnings True End If Me.SUBFRMOrders.Form.Requery Me.SUBFRMOrders.Form![TI].Requery Me.SUBFRMOrders.Form![Te].Requery Me.SUBFRMOrders!OrderPrice = Me.SUBFRM Orders!TI End Function الكود للداله mm ff2.rar

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

اسف ما قادر اوصلك المعلومة سامحني اخي القاعده التي احتاج النسخ اليها الحقل لا يقبل التكرار والقاعدة المنقول منها يقبل القاعده الثانيه بها كل البيانات احتاج فحص اذا كان الرقم موجود يقوم بتحديث كامل السجل وإضافة السجلات الغير الموجوده الجديده مثلا عند تسجيل بيانات نستخدم counter = DCount("[tel]", "[tb2]", "[tel] = " & Me![tel]) If counter > 0 Then MsgBox "الرقم مكرر", vbCritical Me.Undo DoCmd.CancelEvent Me.ReferenceNumber.SetFocus End If انا احتاج فحص اذا كان مكرر يتم تحديثه أو حذفه وإضافة الجديد مع إضافة باقي السجلات الغير مكررة

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

اخي الموضوع جرب حضرتك تضيف بيانات في الجدول قاعده البيانات db1 مثلا tel قيمته 011 لأكثر من سجل فهو يقبل التكرار عن استيراد البيانات احتاج اذا كان رقم 011 موجود في الجدول في قاعده البيانات db2 حيث أن حقل tel لا يتكرر احتاج تحديث بيانات السجل الموجود به نفس الرقم 011 أو حذفه وإضافة السجل الجديد الموجود به رقم 011 لقاعدة البيانات db2 الموضوع باختصار دي قاعده بيانات احتاج تحديث البيانات فيها من قاعده بيانات اخري القاعده الاولي تقبل التكرار حيث كل موظف ممكن ان تكون له اكثر من مهام القاعده المحتاج النسخ اليها رقم لا يقبل التكرار احتاج تحديثه عند استيراد البيانات .وشكرا

السلام عليكم ورحمة الله وبركاته الساده المحترمين الخبراء والأعضاء تحيه طيبه وجدت قاعده بيانات للنسخ من قاعده اخري للأستاذ عبدالله الحلواني وقد احتجت إضافة حقل اسمه Tel في قاعده البيانات db1 يقبل التكرار وفي قاعده البيانات db2 لا يقبل التكرار المطلوب عند النسخ اذا كان الرقم في حقل tel موجود في الجدول في قاعده البيانات db2 يتم استبدال البيانات الاخري أو حذف القديم وإضافة السجل الجديد وشكرا مقدما استيراد بيانات جدول.rar

اخي @kkhalifa1960 انا احتاج رأي الساده الخبراء انا محتاج رأيهم في افضل طريقه ضغط واصلاح تقريبا أسبوعيا بحيث لو في اي مشاكل ولكن النموذج الذي به ويب بروز بيكون بطي حيث البرنامج علي الشبكه وعليه ١٥٠ مستخدم ممكن يعملوا في نفس الوقت أحيانا يتأخر النموذج لمده ٣٠ ثانيه وقت الفتح واوقات ٤٠ ثانيه احب ان اعرف المشكله كيف تسريع البرنامج عند الفتح

السلام عليكم الساده المحترمين عندي سؤال انا عندي قاعده بيانات اقوم بتخزين الصور خارج القاعده واعرضها داخل قاعده البيانات علي ويب بروزر أشعر انه يقوم بجعل البرنامج بطي استخدمت اكتف كنترول اكس وكذلك كان بطي الموضوع انه لازم عرض المرفقات داخل النموذج سوالي افضل طريقه لعرض الملفات داخل النموذج والا تجعل قاعده البيانات بطيئه وشكرا لحضراتكم

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

شكرا استاذي @ابوخليلعلي الرد هذا هو المرفق السابق الذي قمته انت بحله وجدته تحديث قيمه الاجازه الكود يعمل تمام لكن إذا كان اي حقل من تاريخ البدايه أو النهايه غير مكتوب يعطي error احتاج إذا كان حقل تاريخ البدايه والنهايه فارغ يعطيني رساله لا يوجد تاريخ fmmm2 (1).rar

السلام عليكم هذه الكود بالوحده النمطيه للأستاذ ابوخليل @ابوخليل شغال تمام ولكن حاله الاجازه اذا كان لا يوجد تاريخ بدايه ونهايه تعطي خطا قمت بالتعديل ولكن لا يعمل ' Check if strdate or enddate is null If IsNull(Strdate) Or IsNull(Enddate) Then vlcase = "No Date" Else ' Check if the current date is within the range of the leave dates If (currentDate >= Strdate) And (currentDate <= Enddate) Then ' If the current date is within the range of the leave dates, update the lcase field to "Holiday in action" vlcase = "قيد الاجراء" ElseIf currentDate < Strdate Then ' If the current date is before the start date, update the lcase field to "Vacation has not started" vlcase = "لم تبدا" ElseIf currentDate > Enddate Then ' If the current date is before the start date, update the lcase field to "Vacation has finsh" vlcase = "منتهية" End If End If f10.rar

الحمد لله تم المحاوله والحل وشكرا للجميع

السلام عليكم ورحمة الله وبركاته لقد حاولت التعديل علي كود الأستاذ ابوخليل @ابوخليل لنقل البيانات من جدول users حقل empid وحقل ShiftType وتحديد التاريخ ولم افلح يوجد علاقه بين الجدولين احتاج نقل حقلين نفس الكود المطبق علي مشاركه الأستاذ ابوخليل السابقه وياريت لو كود اخر ينقل empid فقط بحيث يكون ٢زر أستطيع نقل المحدد زر لحقين وزر لحقل واحد الرجاء المساعده وشكرا ff3 (1).rar