Fmmm
-
Posts
26 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه 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
-
22 دقائق مضت, MO87 said:
تفضل اخي حسب فهمي انت تحتاج كود لإضافة الجديد وتحديث السابق في الجدول في قاعدة بيانات db1 لنقلها الي db2
اخي جزالك الله خير نعم هو المطلوب
وشكر لكل من ساعدني وحاول يساعدني وشاركني
اشكركم جميعا
-
8 دقائق مضت, kkhalifa1960 said:
استاذنا الفاضل كيف الحقل لايقبل التكرار .ويعطيك كل السجلات .!!!!!! السجل المكرر بيسجله مره واحدة فقط . اما اذا كنت تبغي تحديث كل السجلات .
يبقى القاعدة المنقول اليها حقل التليفون بدل من لا يقبل التكرار الى (No).
اسف ما قادر اوصلك المعلومة سامحني اخي القاعده التي احتاج النسخ اليها الحقل لا يقبل التكرار والقاعدة المنقول منها يقبل
القاعده الثانيه بها كل البيانات احتاج فحص اذا كان الرقم موجود يقوم بتحديث كامل السجل وإضافة السجلات الغير الموجوده الجديده
مثلا عند تسجيل بيانات نستخدم
counter = DCount("[tel]", "[tb2]", "[tel] = " & Me![tel])
If counter > 0 Then
MsgBox "الرقم مكرر", vbCritical
Me.Undo
DoCmd.CancelEvent
Me.ReferenceNumber.SetFocus
End If
انا احتاج فحص اذا كان مكرر يتم تحديثه أو حذفه وإضافة الجديد مع إضافة باقي السجلات الغير مكررة
-
19 دقائق مضت, kkhalifa1960 said:
تفضل استاذ @Fmmm المرفق بعد التعديل حسب ما فهمت
اخي شكرا لك كثير علي تعبك المطلوب هو إضافة كل السجلات من القاعده الاولي واذا كان اي رقم موجود بالقاعدة الثانيه يتم تحديث باقي الحقول لنفس السجل أو حذفه وإضافة السجل من القاعده الاولي
-
18 دقائق مضت, kkhalifa1960 said:
وصلت المطلوب صح بتحصل اكثر اجابة !!!!!!!!!!!!!
اخي الموضوع جرب حضرتك تضيف بيانات في الجدول قاعده البيانات db1 مثلا tel قيمته 011 لأكثر من سجل فهو يقبل التكرار عن استيراد البيانات احتاج اذا كان رقم 011 موجود في الجدول في قاعده البيانات db2 حيث أن حقل tel لا يتكرر احتاج تحديث بيانات السجل الموجود به نفس الرقم 011 أو حذفه وإضافة السجل الجديد الموجود به رقم 011 لقاعدة البيانات db2
الموضوع باختصار دي قاعده بيانات احتاج تحديث البيانات فيها من قاعده بيانات اخري القاعده الاولي تقبل التكرار حيث كل موظف ممكن ان تكون له اكثر من مهام القاعده المحتاج النسخ اليها رقم لا يقبل التكرار احتاج تحديثه عند استيراد البيانات .وشكرا
-
السلام عليكم ورحمة الله وبركاته
الساده المحترمين الخبراء والأعضاء
تحيه طيبه
وجدت قاعده بيانات للنسخ من قاعده اخري للأستاذ عبدالله الحلواني وقد احتجت إضافة حقل اسمه Tel في قاعده البيانات db1 يقبل التكرار وفي قاعده البيانات db2 لا يقبل التكرار
المطلوب عند النسخ
اذا كان الرقم في حقل tel موجود في الجدول في قاعده البيانات db2 يتم استبدال البيانات الاخري أو حذف القديم وإضافة السجل الجديد
وشكرا مقدما
-
2 ساعات مضت, kkhalifa1960 said:
1- اعمل ضغط واصلاح للبرنامج ( وانت فاتح البرنامج روح ملف ثم ضغط واصلاح ) واذا ما ماسار ............
2- ارسل مرفق والكل بيساعدك.
اخي @kkhalifa1960 انا احتاج رأي الساده الخبراء انا محتاج رأيهم في افضل طريقه ضغط واصلاح تقريبا أسبوعيا بحيث لو في اي مشاكل ولكن النموذج الذي به ويب بروز بيكون بطي حيث البرنامج علي الشبكه وعليه ١٥٠ مستخدم ممكن يعملوا في نفس الوقت أحيانا يتأخر النموذج لمده ٣٠ ثانيه وقت الفتح واوقات ٤٠ ثانيه
احب ان اعرف المشكله كيف تسريع البرنامج عند الفتح
-
السلام عليكم
الساده المحترمين عندي سؤال انا عندي قاعده بيانات اقوم بتخزين الصور خارج القاعده واعرضها داخل قاعده البيانات علي ويب بروزر أشعر انه يقوم بجعل البرنامج بطي استخدمت اكتف كنترول اكس وكذلك كان بطي الموضوع انه لازم عرض المرفقات داخل النموذج
سوالي افضل طريقه لعرض الملفات داخل النموذج والا تجعل قاعده البيانات بطيئه
وشكرا لحضراتكم
-
19 ساعات مضت, ابوخليل said:
عليكم السلام
المرفق غير مكتمل ، يبدو انك عملته على السريع
شكرا لجميع الأساتذة اللذين قاموا بالرد جزاكم الله خير الجزاء
الاستاذ @ابوخليلوالأستاذ @ابوبسملهبصراحه حلكم تحفه وشكرا جزيل لكم ولو يوجد افضل اجابتين كنت سوف اختار الإثنين والان يمكن أن نختار اول من سارع بالحل وجعله الله في ميزان حسناتكم وزادكم من علمه وفضله وبارك لكم
وشكرا جزيلا لك الجروب الأعضاء والخبراء
- 1
-
5 ساعات مضت, ابوخليل said:
عليكم السلام
المرفق غير مكتمل ، يبدو انك عملته على السريع
شكرا استاذي @ابوخليلعلي الرد هذا هو المرفق السابق الذي قمته انت بحله وجدته تحديث قيمه الاجازه الكود يعمل تمام لكن إذا كان اي حقل من تاريخ البدايه أو النهايه غير مكتوب يعطي error احتاج إذا كان حقل تاريخ البدايه والنهايه فارغ يعطيني رساله لا يوجد تاريخ
-
السلام عليكم
هذه الكود بالوحده النمطيه للأستاذ ابوخليل @ابوخليل شغال تمام ولكن حاله الاجازه اذا كان لا يوجد تاريخ بدايه ونهايه تعطي خطا قمت بالتعديل ولكن لا يعمل
' 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
-
4 ساعات مضت, Fmmm said:
السلام عليكم ورحمة الله وبركاته
لقد حاولت التعديل علي كود الأستاذ ابوخليل @ابوخليل لنقل البيانات من جدول users حقل empid وحقل ShiftType وتحديد التاريخ ولم افلح يوجد علاقه بين الجدولين
احتاج نقل حقلين
نفس الكود المطبق علي مشاركه الأستاذ ابوخليل السابقه
وياريت لو كود اخر ينقل empid فقط بحيث يكون ٢زر أستطيع نقل المحدد زر لحقين وزر لحقل واحد
الرجاء المساعده وشكرا
الحمد لله تم المحاوله والحل وشكرا للجميع
-
السلام عليكم ورحمة الله وبركاته
لقد حاولت التعديل علي كود الأستاذ ابوخليل @ابوخليل لنقل البيانات من جدول users حقل empid وحقل ShiftType وتحديد التاريخ ولم افلح يوجد علاقه بين الجدولين
احتاج نقل حقلين
نفس الكود المطبق علي مشاركه الأستاذ ابوخليل السابقه
وياريت لو كود اخر ينقل empid فقط بحيث يكون ٢زر أستطيع نقل المحدد زر لحقين وزر لحقل واحد
الرجاء المساعده وشكرا
-
البقاء والدوام لله وحده اللهم اغفر له وارحمه واسكنه فسيح جناتك
عظم الله اجركم ورحم ميتكم واسكنه الفردوس الأعلى من الجنة
- 1
-
11 ساعات مضت, kkhalifa1960 said:
استكمالا لما قام به استاذنا موسى تفضل
شكرآ اخي الله يبارك فيك @kkhalifa1960
شكرآ اخي @Moosak بارك الله فيك
كان نفس يكون أفضل اجابه للاثنين بصراحه متشكر جدا لكم الله يسعدكم
- 1
-
-
السلام عليكم
الساده الأعضاء المحترمين
اولا احب ان اشكر الساده الخبراء علي المساعده
لدي نموذج تكمله لم سبق كان عندي سؤالين والساده الخبراء ما قصروا جزاهم الله عنا خير الجزاء
اريد ان أظهر بين تواريخ الاجازه أرقام الأسابيع بحيث اقدر اعمل مقارنه مثل الرسم البياني بين الموظفين
انا سوف اكمل عدد الأسابيع الي ٥٤ اريد الفتره بين تاريخ بداية إلاجازة وتاريخ نهايه الاجازه تظهر بلون مميز مثلا ممكن باستخدام التنسيق الشرطي لو الحقل في بيانات يظهر لون
ده تخيلي مثل الرسم البياني هل يمكن تطبيق الفكره
وشكرا لحضرتكم
-
في 2/1/2023 at 01:49, ابوخليل said:
تفضل
لاحظ التغيير في علاقات الجداول
لانه لايصلح العلاقة تكون في الاسم وانما الاصح ان تكون في المعرف ، لانه منطقيا يمكن حصول تشابه تماما في الاسماء وهذا يقع كثيرا
21 ساعات مضت, ابوخليل said:الكود يبحث عن الموظف بمعلومية المعرف فاذا كان الموظف يتمتع باجازته في الوقت الحاضر يمتنع اضافة المهمة له
اللي فهمته منك انك تريد تسجل مهمات بأثر رجعي (في تواريخ سابقة) او تواريخ لاحقة ( بعد انقضاء الاجازة)
بغض النظر ان كان مجاز حاليا ام لا
هل فهمي صحيح ؟
16 ساعات مضت, Barna said:مشاركة مع استاذي الغالي @ابوخليل
انظر المرفق يمكن تسجيل اي مهمة للموظف سواءا جديده أو باثر رجعي واذا كان التاريخ ضمن نطاق اي من اجازات الموظف تخرج رسالة لاعلامك بذلك لتغيير الموظف او تعديل التاريخ
جرب وأعلمنا بالنتائج ......................
@Barnaتمام اخي هذا هو المطلوب بارك الله فيك
وبارك الله فيك اخي ابوخليل ربي يحفظكم @ابوخليل
-
2 ساعات مضت, ابوخليل said:
اللي فهمته منك انك تريد تسجل مهمات بأثر رجعي (في تواريخ سابقة) او تواريخ لاحقة ( بعد انقضاء الاجازة)
بغض النظر ان كان مجاز حاليا ام لا
هل فهمي صحيح ؟
@ابوخليلنعم اخوي هذا المطلوب بارك الله فيك
-
@ابوخليلاستاذي لم برجع ادخل الموظف مهمه بتاريخ سابق غير تاريخ الاجازه يعطني لا يمكن التسجيل
المفروض اعدل في السابق حاليا لا أقدر اضافه مهمه بتاريخ سابق غير تاريخ الاجازه
-
-
@ابوخليلاستاذي بالنسبه للطلب الثاني حاولت فيه ولم اوصل الي حل
ممكن من فضلك مساعده فيه
-
3 ساعات مضت, ابوخليل said:
تمام استاذي ده الحل مظبوط بارك الله في حضرتك
لسه نموذج task
نقل قاعده البيانات لاجهاز اخر
في قسم الأكسيس Access
قام بنشر
السلام عليكم عندي مشكله انا اعمل علي ويندوز ١٠ وميكروسوف ٢٠١٩ عند تصميم اي قاعده بيانات تعمل علي الجهاز وعند نقلها الي اي جهاز اخر يحصل سوء كان ويندوز ١٠ أو ١١ أو ميكروسوفت اقل من ٢٠١٩ او ٣٦٥ يحدث مشاكل في اللغة العربية تكون شكلها رموز مع اني دخلت علي الاعدادات وحاولت حلها بدون جدوي المشكله في محرر الاكواد.
مع اني ظبت اعدات اللغة من الجهاز للمنطقة الزمنيه اللغة العربية.
احتاج حل بحيث عند نقل قاعده البيانات لا يحدث اي مشاكل للغة العربية.