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

ابوخليل

أوفيسنا
  • Posts

    9,879
  • تاريخ الانضمام

  • Days Won

    132

Community Answers

  1. ابوخليل's post in نقل قيمة من مربع تحرير وسرد في نموذج فرعي الي نموذج رئيسي was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    Private Sub codeGovernorate_AfterUpdate() Forms!mpr!codeGovernorate = Me.codeGovernorate End Sub Private Sub coderanking_AfterUpdate() Forms!mpr!coderanking = Me.coderanking End Sub  
    نقل قيمة2.accdb
  2. ابوخليل's post in حساب رصيد الصنف الذى يتكون من خامات was marked as the answer   
    تمام .. فتح الله عليك
    شراء الخامات واخراجها شيء
    وبيع الاصناف شيء آخر
  3. ابوخليل's post in مساعدة شريط تقدم حسب رقم was marked as the answer   
    السلام عليكم
    تفضل اخوي عمر حسب طلبك
    استخدمت مربعي نص من اجل تحقيق الفكرة
    يمكنك التحكم بعرض الشريط يدويا مع مراعاة العرض داخل الكود
    Private Sub Form_Open(Cancel As Integer) Me.box2.Width = 6600 End Sub Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ Me.lx End If End Sub Private Sub أمر3_Click() Me.box2.Width = 6600 Me.TimerInterval = 50 End Sub  
    88 _2.accdb
  4. ابوخليل's post in ارغب في كاتبة نص موجود في جدول حسب ترتيب واختيار المستخدم was marked as the answer   
    تفضل
    Dim i As Integer, R As Integer Dim x As String, xx As String Dim rs As Recordset Set rs = Me.frm_T1.Form.RecordsetClone rs.MoveFirst R = rs.RecordCount For i = 1 To R If rs!newline = True Then x = rs!nots & " " & rs!TEXTT xx = " " & xx & " " & x End If rs.MoveNext Next Me.tsmya.Caption = xx  
    test2.accdb
  5. ابوخليل's post in فتح التقرير وعرض جميع السجلات Ado Recordset was marked as the answer   
    ما دمت قررت الاستعانة بالجداول المؤقتة ، فعندي لك طريقة افضل من عمليات انشاء و حذف الجداول
    وانما يتم حذف البيانات حسب الضرورة
    والطريقة انك تعمل جداول محلية دائمة تحمل حقول بنفس نوعية حقول المصدر  وتسميها بنفس الاسم او غيره لا فرق
    تفضل المثال يتم حذف بيانات الجدول المؤقت قبل جلب البيانات الجديدة
    انتبه لموقع قاعدة الجداول
     
    Adb_Dat.rar
  6. ابوخليل's post in عرض البيانات وتعبئة Combobox مع خصائص الاتصال بتقنية Ado was marked as the answer   
    تفضل 
    If Not (rst.BOF And rst.EOF) Then Do Until rst.EOF If rst.Fields(2).Value = 1 Then Me.Txt_namcity.AddItem (rst.Fields(0).Value & ";" & rst.Fields(1).Value) End If rst.MoveNext Loop End If  
    combo5.rar
  7. ابوخليل's post in الاخوة الأكارم احتاج مساعدة في فلترة التواريخ was marked as the answer   
    تمام عليك استاذ احمد .. طبعا ستعمل  حسب رغبة المستخدم  هل يريد زر واحد او اكثر
    انظر هنا عملت حسب رغبتي انا وهي ان تتم مجموعة خيارات  من خلال زر واحد
    بمعنى ان تركت الحقول خالية سوف يظهر الكل
    وان اخترت تاريخين يفلتر ما بين التاريخين
    وان اخترت اسم طالب يفلتر حسب اسم الطالب بناء على التواريخ وان ازلت التواريخ يظهر جميع غيابات الطالب المحدد
    اخي الكريم ابو اياد
    انا اختلف عن باقي احبتي وزملائي هنا .. فأنا ادرس اساسات البرمجة ولا اكتفي بحل المشكلة فقط
    لذا ستجد مثالك تم تعديله الى ما يجب ان يكون عليه
    فلو بقيت على وضعك الحالي باستخدام الحروف العربية فستتعب كثيرا ولن تتعلم وستكون عقدتك الاساسية هي الاكواد وفهمها وكتابتها ..  ولن تجد المتعة التي يجدها غيرك  .. 
     
    غياب_مهذب.rar
  8. ابوخليل's post in تبويبات النماذج was marked as the answer   
    تفضل .. اتمنى هو مطلوبك
    تم تصفية النموذج الفرعي الثاني بناء على الرقم الاساسي في الفرعي الأول
    1_2.rar
  9. ابوخليل's post in اختيار أعضاء يومى بتاريخ اليوم was marked as the answer   
    كان الاولى ان تعمل نماذج حسب فكرتك ليتم التطبيق عليها
    تفضل التعديل
    db1.mdb
  10. ابوخليل's post in الجداول اصبحت مخفيه ولا اعرف كيف اظهرها was marked as the answer   
    انظر هذه المحاولة اذا تنفع 
    Lab_2.accdb
  11. ابوخليل's post in مساعدة في تصميم برنامج توزيع حوافز مالية على الموظفين was marked as the answer   
    اكيد يوجد حل وافضل من الأول
    يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة
    ‫hafez2.rar
  12. ابوخليل's post in مساعدة في تصميم برنامج توزيع حوافز مالية على الموظفين was marked as the answer   
    اكيد يوجد حل وافضل من الأول
    يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة
    ‫hafez2.rar
  13. ابوخليل's post in مساعدة في تصميم برنامج توزيع حوافز مالية على الموظفين was marked as the answer   
    اكيد يوجد حل وافضل من الأول
    يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة
    ‫hafez2.rar
  14. ابوخليل's post in اظهار بالتقرير جميع الاعاقات ما عدا إضطراب طيف التوحد والعكس was marked as the answer   
    تفضل فلترة للتقرير بناء على مربع قائمة ، عملته على المرفق الأول
    اختر  بند او اكثر  ثم افتح التقرير ، للعلم استعلام التقرير جعلته بداخل التقرير
    والنموذج الفرعي كذلك ولكني لم اكمله
     
    Dim stDocName As String Dim strCriteria As String stDocName = "الصباحية والمسائية" strCriteria = "1" strCriteria = strCriteria & filtering(Me.cbo1, "EAAQAH", "'") DoCmd.OpenReport stDocName, acPreview, , strCriteria  
    219_.rar
  15. ابوخليل's post in استخراج اليوم الاول بالشهر و اليوم الاخير was marked as the answer   
    FirstDay = DateSerial(Year(Date), Month(Date), 1) LastDay = DateSerial(Year(Date), Month(Date) + 1, 0)  
  16. ابوخليل's post in المساعدة فى اضافة الصورة على فاتورة التصنيع was marked as the answer   
    يبدوا ان المشكلة عندك في برنامج الضغط
    تم الضغط مرة اخرى ورفعه
    New folder2.rar
  17. ابوخليل's post in كيفية جعل النموذج يكون ملء الشاشة was marked as the answer   
    في حدث فتح النموذج او التقرير اكتب هذا
    docmd.Maximize وما دمت مبتدىء :
    افتح النموذج على التصميم
    من الخصائص افتح لسان التبويب حدث
    في القيمة : عند الفتح .. انقر على النقاط الثلاث التي الى اليسار
    سوف ينقلك الى محرر الفيجول
    الصق العبارة داخل الحدث واحفظ واخرج
    افتح النموذج من جديد لترى النتيجة
     
  18. ابوخليل's post in التخلص من رسالة ( إدخال قيمة معلمة) was marked as the answer   
    السلام عليكم
    صحيح اخوي عمر  الخلل في المعيار  ولكن من شقين
    الاول : جعل في المعيار اسم النموذج الفرعي الخارجي فقط
    والصحيح ان يدرج اسم النموذج الرئيس واسم عنصر تحكم النموذج الفرعي وليس النموذج الفرعي نفسه ليصبح هكذا
    [Forms]![fTable1]![STABLE2]![MOhafazh] الثاني جعل المعيار تحت حقل الرقم والصحيح ان يدرج جدول المحافظة داخل الاستعلام  ثم يدرج اسم المحافظة في عمود جديد ويضع المعيار تحته
     يوجد لديك بعض اخطاء في التصميم  الأفضل تجنبها 
    تفضل مثالك بعد التعديل
    N_DATA2.accdb
  19. ابوخليل's post in برنامج مكتب محاماة was marked as the answer   
    اولا .. في اول مشاركة لك ذكرت انك لم تستفد من هذا الموقع .. وهذا من الجحود .. من منا لم يبحث في هذا المنتدى عن  موضوع يهمه .. عن نفسي بحثت كثيرا ومازلت ابحث عند احتياجي لمعلومة محددة .
    ثانيا : تمن على اخوانك بانك طرحت قاعدة بيانات لفئة خاصة قد لا يحتاجها الكثير وفيها الكثير من العيوب ، وتسميها هدية .
    نصيحة : ان اردت المساعدة الحقيقة والسريعة .. اطرح عيوب برنامجك واحدة واحدة واطلب اصلاحها ، لان موضوعك هذا مخالف لقواعد المشاركة ويستحق الاغلاق ولكننا نتغاضى ونتجاوز بل نتكاسل عن بعض المخالفات  وغلق الموضوع
    من شروط  قواعد المشاركات عدم طرح اكثر من سؤال واحد في الموضوع الواحد
     
  20. ابوخليل's post in برنامج مكتب محاماة was marked as the answer   
    اولا .. في اول مشاركة لك ذكرت انك لم تستفد من هذا الموقع .. وهذا من الجحود .. من منا لم يبحث في هذا المنتدى عن  موضوع يهمه .. عن نفسي بحثت كثيرا ومازلت ابحث عند احتياجي لمعلومة محددة .
    ثانيا : تمن على اخوانك بانك طرحت قاعدة بيانات لفئة خاصة قد لا يحتاجها الكثير وفيها الكثير من العيوب ، وتسميها هدية .
    نصيحة : ان اردت المساعدة الحقيقة والسريعة .. اطرح عيوب برنامجك واحدة واحدة واطلب اصلاحها ، لان موضوعك هذا مخالف لقواعد المشاركة ويستحق الاغلاق ولكننا نتغاضى ونتجاوز بل نتكاسل عن بعض المخالفات  وغلق الموضوع
    من شروط  قواعد المشاركات عدم طرح اكثر من سؤال واحد في الموضوع الواحد
     
  21. ابوخليل's post in مساعدة في تغير البيانات داخل الجدول تلقائيا was marked as the answer   
    اجعل حقلي الصف والشعبة غير منضمين
  22. ابوخليل's post in طلب اصلاح كود was marked as the answer   
    تفضل مثالك بعد التمحيص
    عدلت على الحقل المذكور  بحيث يظهر افتراضيا تاريخ اليوم
    ومع ذلك يمكنك التعديل عليه لتواريخ سابقة
    جرب
    حضور وانصراف موظفينV2011_v030.rar
  23. ابوخليل's post in تكوين او انشاء مجموعة جداول جديدة was marked as the answer   
    تفضل ما تبحث عنه وزيادة
    بحثت لك عنه في محفوظاتي ، من اعمالي السابقة ، ومؤكد انه هنا ضمن موضوع يخصه
    انشاء الجداول والعلاقات برمجيا.mdb
  24. ابوخليل's post in المساعدة في تعديل استعلام الطلبة العشرة الأوائل was marked as the answer   
    الحلول كثيرة هذا واحد منها
    استخدمت هذه الوحدة النمطية عبر الماكرو  ويمكنك توظيفها في حدث زر على الفورم
    Public Function fncTrteeb() 'by Abu klil On Error Resume Next Dim rst As DAO.Recordset Dim rsm As DAO.Recordset Dim trb, trbx As String Dim i, mjmo As Integer DoCmd.RunSQL "update Q_top10 set trteeb=null" Set rst = CurrentDb.OpenRecordset("tblTrteeb") Set rsm = CurrentDb.OpenRecordset("Q_top10") rst.MoveLast rst.MoveFirst rsm.MoveFirst trb = rst!trteb mjmo = 0 For i = 1 To rst.RecordCount - 1 If rsm!total <> mjmo Then rsm.Edit rsm!trteeb = trb mjmo = rsm!total rsm.Update trbx = rst!trteb rsm.MoveNext rst.MoveNext trb = rst!trteb Else rsm.Edit rsm!trteeb = trbx & " " & "مكرر" mjmo = rsm!total rsm.Update rsm.MoveNext End If Next End Function  
    ترتيب الأوائل ماكرو.rar
  25. ابوخليل's post in كيفية الحصول على اعلى خمس رواتب في الجدول was marked as the answer   
    عليكم السلام
    تفضل 
    استخدم  top في الاستعلام  مع الترتيب التنازلي
    HQ2.accdb
×
×
  • اضف...

Important Information