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

22 دقائق مضت, MO87 said:

تفضل اخي حسب فهمي انت تحتاج كود  لإضافة الجديد وتحديث السابق في الجدول في قاعدة بيانات db1 لنقلها الي db2

استيراد بيانات جدول.rar 53.68 kB · 0 downloads

اخي جزالك الله خير نعم هو المطلوب 

وشكر لكل من ساعدني وحاول يساعدني وشاركني

اشكركم جميعا

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 يتم استبدال البيانات الاخري أو حذف القديم وإضافة السجل الجديد 

وشكرا مقدما 

استيراد بيانات جدول.rar

2 ساعات مضت, kkhalifa1960 said:

1- اعمل ضغط واصلاح للبرنامج ( وانت فاتح البرنامج روح ملف ثم ضغط واصلاح ) واذا ما ماسار ............

2- ارسل مرفق والكل بيساعدك.

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

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

السلام عليكم 

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

سوالي افضل طريقه لعرض الملفات داخل النموذج والا تجعل قاعده البيانات بطيئه 

وشكرا لحضراتكم

19 ساعات مضت, ابوخليل said:

عليكم السلام

المرفق غير مكتمل ، يبدو انك عملته على السريع

 

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

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

وشكرا جزيلا لك الجروب الأعضاء والخبراء 

5 ساعات مضت, ابوخليل said:

عليكم السلام

المرفق غير مكتمل ، يبدو انك عملته على السريع

 

شكرا استاذي @ابوخليلعلي الرد هذا هو المرفق السابق الذي قمته انت بحله وجدته تحديث قيمه الاجازه الكود يعمل تمام لكن إذا كان اي حقل من تاريخ البدايه أو النهايه غير مكتوب يعطي 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

4 ساعات مضت, Fmmm said:

السلام عليكم ورحمة الله وبركاته 

لقد حاولت التعديل علي كود الأستاذ ابوخليل @ابوخليل لنقل البيانات من جدول users حقل empid  وحقل ShiftType  وتحديد التاريخ ولم افلح يوجد علاقه بين الجدولين 

احتاج نقل حقلين 

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

وياريت لو كود اخر ينقل empid فقط بحيث يكون ٢زر أستطيع نقل المحدد زر لحقين وزر لحقل واحد

الرجاء المساعده وشكرا

ff3 (1).rar 52.02 kB · 8 downloads

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

السلام عليكم ورحمة الله وبركاته 

لقد حاولت التعديل علي كود الأستاذ ابوخليل @ابوخليل لنقل البيانات من جدول users حقل empid  وحقل ShiftType  وتحديد التاريخ ولم افلح يوجد علاقه بين الجدولين 

احتاج نقل حقلين 

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

وياريت لو كود اخر ينقل empid فقط بحيث يكون ٢زر أستطيع نقل المحدد زر لحقين وزر لحقل واحد

الرجاء المساعده وشكرا

ff3 (1).rar

البقاء والدوام لله وحده اللهم اغفر له وارحمه واسكنه فسيح جناتك 

عظم الله اجركم ورحم ميتكم واسكنه الفردوس الأعلى من الجنة 

11 ساعات مضت, kkhalifa1960 said:

استكمالا لما قام به استاذنا موسى تفضل 

f6-1.rar 42.86 kB · 3 downloads

شكرآ اخي الله يبارك فيك @kkhalifa1960

شكرآ اخي @Moosak بارك الله فيك 

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

@kkhalifa1960

@Moosak

شكرآ علي اهتمامكم f6.raf6.rar

f6.rar

السلام عليكم 

الساده الأعضاء المحترمين 

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

لدي نموذج تكمله لم سبق كان عندي سؤالين والساده الخبراء ما قصروا جزاهم الله عنا خير الجزاء 

اريد ان أظهر بين تواريخ الاجازه أرقام الأسابيع بحيث اقدر اعمل مقارنه مثل الرسم البياني بين الموظفين 

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

ده تخيلي مثل الرسم البياني هل يمكن تطبيق الفكره

وشكرا لحضرتكم

في 2‏/1‏/2023 at 01:49, ابوخليل said:

تفضل

لاحظ التغيير في علاقات الجداول

لانه لايصلح العلاقة تكون في الاسم وانما الاصح ان تكون في المعرف ، لانه منطقيا يمكن حصول تشابه تماما في الاسماء وهذا يقع كثيرا

fmmm3.rar 31.74 kB · 1 download

21 ساعات مضت, ابوخليل said:

الكود يبحث عن الموظف بمعلومية المعرف فاذا كان الموظف يتمتع باجازته في الوقت الحاضر يمتنع اضافة المهمة له

اللي فهمته منك انك تريد تسجل مهمات بأثر رجعي (في تواريخ سابقة) او تواريخ لاحقة ( بعد انقضاء الاجازة)

  بغض النظر ان كان مجاز حاليا ام لا

هل فهمي صحيح ؟

16 ساعات مضت, Barna said:

مشاركة مع استاذي الغالي @ابوخليل

انظر المرفق يمكن تسجيل اي مهمة للموظف سواءا جديده أو باثر رجعي واذا كان التاريخ ضمن نطاق اي من اجازات الموظف تخرج رسالة لاعلامك بذلك لتغيير الموظف او تعديل التاريخ 

جرب وأعلمنا بالنتائج ......................

fmmm2.rar 31.66 kB · 4 downloads

@Barnaتمام اخي هذا هو المطلوب بارك الله فيك

وبارك الله فيك اخي ابوخليل ربي يحفظكم @ابوخليل

2 ساعات مضت, ابوخليل said:

اللي فهمته منك انك تريد تسجل مهمات بأثر رجعي (في تواريخ سابقة) او تواريخ لاحقة ( بعد انقضاء الاجازة)

  بغض النظر ان كان مجاز حاليا ام لا

هل فهمي صحيح ؟

@ابوخليلنعم اخوي هذا المطلوب بارك الله فيك 

@ابوخليلاستاذي لم برجع ادخل الموظف مهمه بتاريخ سابق غير تاريخ الاجازه يعطني لا يمكن التسجيل

المفروض اعدل في السابق حاليا لا أقدر اضافه مهمه بتاريخ سابق غير تاريخ الاجازه 

@ابوخليل@ابوخليلاستاذي  لاحظ في آخر تعديل الموظف لة في قصاده اجازه ما بيتسجل ولو ذهبت الي شهر سابق لا يسجل احتاج مع التاريخ بحيث لو التاريخ بين الاجازه لا يسجل غير كده يسجل

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

@ابوخليلاستاذي بالنسبه للطلب الثاني حاولت فيه ولم اوصل الي حل

ممكن من فضلك مساعده فيه

3 ساعات مضت, ابوخليل said:

عليكم السلام

هذا حل لمطلوبك الأول

fmmm2.rar 30.71 kB · 11 downloads

تمام استاذي ده الحل مظبوط بارك الله في حضرتك

لسه نموذج task