اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عمر ضاحى

الخبراء
  • Posts

    1,156
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    8

كل منشورات العضو عمر ضاحى

  1. انا عندي نفس الشئ لكن مع هذا الحقل لا يفعل (لا ادري ما السبب)
  2. هلا يا هلا باستاذى @ناقل المشكلة التى ارها هى لما لم يستطع التعرف على نوع الحقل مباشرتا مثلما تعرف على الحقل الذى بالاعلى
  3. بالنسبه لسؤالك لا يمكن ان نضيف نص فى حقل رقمي لكن يقبل رقم فى حقل نصي اما الوحدات يجب ان تكون نص لكى تقبل ارقام ونصوص معا اما اذا كنت تريد ان تجعل الوحده رقم لكى تستخدمها فى العمليات الحسابيه وغيرها فيمكن ان تجعل للوحدات جدول مستقل وتربطه بالجدول الاساسى وفى الجدول المستقل للوحدات اجعل فيه حقل نصي وحقل رقمي لنفس الوحده (طبعا بخلاف الحقل الرقمي الذى سوف تقوم بربطه بالجدول الاساسى) وفى الحقل النصي اكتب اسم الوحده بالاحرف والارقام معا مثل ( 100 لتر ) وفى الحقل الرقمي اكتب 100 وعند عرض الفاتورة مثلا يظهر الحقل النصي لكن عتد استخدام العمليات الحسابيه يتم استخدام الحقل الرقمي فى الخلفيه هذا ما فكرت فيه وقد تجد افكار افضل من افكارى هنا (هذا اكيد) ^_^
  4. الحقل رقمي لكن لا يعمل كما هو فى الصورة يوجد حقلين رقمي لكن احدهم تعرف عليه والاخر لا لما ؟
  5. هل هذا ما تريد ؟ رصيد تراكمي.rar
  6. اعتقد ان مثل هذه المواضيع مخالف للقوانين هنا (والله اعلم) لكن مهتم ^_^
  7. ارفع نسخه من التقرير علشان اعرف اعمله لك ممكن تستخدم داله Replace لست متأكد من فاعليتها لكن قد تفيد بطريقة ما
  8. جرب كده شوف الفكره دي هنا علشان انا منتظهر تظهر لك الاخطأ ونبدأ نحل فيها مع بعض برنامج.accdb
  9. لكي تعم الفائده يجب وضع المشكله بكل تفاصيلها هنا وايضا الحل (طريقة الحل حتى اتعلم انا وغيري من هذه المشاكل ونخرج بافكار جديده تنفع الاخرين)
  10. اضيف فين ؟ هنا ؟ Public Function GetColType(Tb_Name As String, Col_Name As String) As String Dim db As DAO.Database Dim objRecordset As DAO.Recordset Dim i As Integer Set objRecordset = CurrentDb.OpenRecordset(Tb_Name) For i = 0 To objRecordset.Fields.Count - 1 Debug.Print objRecordset.Fields.Item(i).Type & " -" & objRecordset.Fields(i).Name If Col_Name = objRecordset.Fields(i).Name Then Select Case objRecordset.Fields.Item(i).Type Case Is = 4: GetColType = 1 Case Is = 10: GetColType = 2 Case Is = 5: GetColType = 1 Case Is = 20: GetColType = 1 Case Is = 8: GetColType = 3 Case Is = 1: GetColType = 4 Case Is = 4: GetColType = 1 Case Is = 3: GetColType = 1 End Select End If Next i End Function واعرف الارقام من وين ؟ ------------- تعديل-------------- لقد انتبهت الى هذا 4 -Emp_No_Att 10 -Name 8 -Att_Date 10 -Timetable 10 -On duty 10 -Off duty 10 -Clock In 10 -Clock Out 10 -Late 10 -Early 1 -Absent 7 -OT Time 10 -Exception 10 -Department 10 -ATT_Time 10 -Notes 4 -SnMonth 8 -PayrollRegSN هل هذه الارقام التى تقصدها ؟ وكيف استخدمها
  11. بس مبدئيا انا لما راجعت الاستعلامات وجدتها استعلامات بدون اى معايير واعتقد ان مشكلتك فى المعيار انت لما بتعمل استعلام يجب ان تضع المعيار لكل حاله مثلا ان يظهر البيانات الخاصه بال ID رقم 1 فقط او 7 فقط وهكذا فممكن حضرتك تشرح لنا الاليه التى يجب ان يكون البرنامج شغال بها حتى نفهم نحن ونعرف اين نضع المعيار
  12. ممكن تحدد اسم الفورم ايه بالظبط ولو ارفقت صورة توضح ما تريده
  13. اخي الكريم لا اعتقد ان الاكسيس يمكنه الرسم (لانه مش فوتوشوب ^_^) لكن ممكن تأخذ رسمة السياره وتقوم بتقطيع اجذائها الى قطع بالفوتوشوب ومن ثوم تقوم بعمل تلوين لكل جذء حسب رغبتك بالعدد الذى تريده والالوان التى تريدها وتقوم بعمل ما سبق ذكره سابقا وتنتهى القصه ^_^
  14. ممكن نبسط الفكره كالاتى اولا هيكون هناك صوره اساسيه فى الخلفيه وهيكون هناك جميع الاجذاء الممكنه والوارده ونعطي لكل جذء اسم ونجعلهم غير مرئى بعد ما نرتبهم فى اماكنهم الثابته وبعدها حسب الاختيار يشتغل الكود ويظهر هذا الجذء بس كده يا مؤمن ^_^
  15. بعتذر لحضرتك عن عندم قدرتي على ان اقدم المساعده لضعف علمي وخبرتى واطلب المساعده من اساتذتى الاجلاء (حفظهم الله واطال الله بقائهم ونفع الله بهم وزادهم علما وبركه) @ابو جودي @Moosak @د.كاف يار@Eng.Qassim@ابوخليل
  16. الله يعطيك العافيه ويوسع عليك بارك الله فيك وجعله فى ميزان حسناتك لكن ليه هنا فى نوع البيانات مش بيعطينى اى تصنيف وهل هذا يؤثر على النتائج ؟ ام فقط مجرد عرض للنوع ؟
  17. المشكله الاولى عرفت احلها ان المكتبه عندي كانت بحاجة الى تحديث واضافة الان فى مشكله اخرى اريد لها تفسير مع العلم ان قمت بتحديث الكل لكي يعمل مثل النوع فى النقطه رقم 4 (يعنى فعلت المديول على الكل ^_^ لكن لما باختر اى شئ اخر يعمل لكن مع بعض الحقول لا تعمل
  18. ايه رايك تجرب الاداة هنا قد تجد لك حل لمشكلتك باستخدامها
  19. الله الله على الابداع بارك الله فيك وجعله الله فى ميزان حسنات والله مثل هذه الاداه هتفيد الكثير والكثير من المبتدئين امثالى لك جزيل الشكر على كل مساهماتك
  20. هو انا ليه حاسس انى مش فاهم حاجه ! ^_^ (يعنى حضرتك عاوز تعمل ايه تحديدا عاوزه يكتب التاريخ ولا يعمل ايه بالظبط ^_^ ممكن توضيح اكثر
  21. ههههههههههههههههههههه الله يعطيك الف عافيه شوفت الامر سهل ازاى مش اسطر ومدري ايش ابداع
  22. اعتقد ان المرفق الذى قمت بعمله هو طلبك ويمكن لك ان تعدل فى الكود حسب طلبك او الاليه التى تريد بها تشغيل الكود وما قمت بعمله هو تعديل الكود الخاص بك Private Sub Form_Timer() Dim TT As Integer TT = TimeValue("11:59:59 PM") Me.t1 = Time() Me.t2 = TT - Me.t1 End Sub
  23. هل هذا ما تريد ؟ time.accdb
×
×
  • اضف...

Important Information