اذهب الي المحتوي
أوفيسنا

ابوخليل

أوفيسنا
  • Posts

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

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

  • Days Won

    133

Community Answers

  1. ابوخليل's post in تعبئة تلقائية was marked as the answer   
    تفضل .. اتمنى يكون هو مطلوبك
    Upالملاك 2021.rar
  2. ابوخليل's post in تقييد التكرار (وعدم ادخال نفس البيانات فى حقل داخل النموذج) was marked as the answer   
    Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![رقم العملية] = Me![T4] Then MsgBox " السجل مكرر ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close  
    F05.rar
  3. ابوخليل's post in الغاء التصفية عند فتح النموذج was marked as the answer   
    ضع هذا المعيار في مصدر بيانات النموذج الفرعي
    [forms]![Fworkerpresence]![combo4]  
    الغاء التصفية.rar
  4. ابوخليل's post in مطلوب تصفية نموذج باكثر من كمبوبوكس was marked as the answer   
    اضف هذا المعيار في مصدر النموذج الفرعي
    Like "*" & [forms]![snawaqs_3]![asd1] & "*" وانظر الى التغير في كود حدث خانة الاختيار
    exam2.rar
  5. ابوخليل's post in هل من طريقة لتحويل الرقم إلى نص was marked as the answer   
    عليكم السلام
    الاصل وجود جدول تعريفي بالصفوف
    وهذا ما صنعته لك
    A2.mdb
  6. ابوخليل's post in احتاج صلاحيات مستخدم was marked as the answer   
    تم ضبط الصلاحية باستخدام العناصر الموجودة داخل النموذج 
    واستخدمت كلمة نصية مشفرة "modeer" للتمييز بين المدير وغيره بدلا من خانة الاختيار  والتي يسهل الوصول اليها من الجدول ,والتلاعب بها
    هذا يعني انك اذا اردت تسجيل مستخدم جديد واردت تعيينه كمدير يلزم كتابة كلمة  modeer في حقل Admin
    ايضا اظهرت لك اسم المستخدم في حقل خاص
    الطريقة لإظهارة في اي حقل سواء في النماذج او التقارير  هو ان تكتب  الدالة التالية في مصدر بيانات الحقل 
    =myUserName() انظر الى الكود ادناه  في حال عدم  كون المستخدم مدير  فسوف يتم اخفاء العناصر  واحدا واحدا
    فاذا ارد اظهار عنصر للمستخدم  فقط عطل السطر الخاص به والعكس صحيح حيث يمكن اضافة ازرار اخرى
    If myCheckUser <> "modeer" Then cmd_rpt_Items_Dates_3.Visible = False cmd_rpt_Items_Dates_3_No_Labels.Visible = False cmd_rpt_Items_Pages_3.Visible = False cmd_frm_Items_All.Visible = False srch_Date_From_3.Visible = False srch_Date_To_3.Visible = False srch_All_3.Visible = False srch_Page_From_3.Visible = False srch_Page_To_3.Visible = False zerUsers.Visible = False Box21.Visible = False End If  
    اي استفسار لا يخص الصلاحية يفضل عرضه في موضوع جديد
       
    DATA11.rar
  7. ابوخليل's post in استخراج الشهور من مجموع ايام was marked as the answer   
    انا كتبت لك الصيغة  واظهرت لك رسالة حتى ترى النتيجة
    وللتطبيق فمثلا في الاستعلام اذا اعتبرنا حقل القيمة اسمه total
    imonths:[total]\30 idays : [total] Mod 30  
    dayess.mdb
  8. ابوخليل's post in مطلوب توزيع المراقبين على اللجان was marked as the answer   
    تفضل على السريع
    يمكنك بناء تقاريرك على الجدول tbl1
    db4.mdb
  9. ابوخليل's post in ارجو المساعدة في دالة if لا تعمل معي was marked as the answer   
    صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش
    دعنا ننزل على رغبة الأخ مصطفى
    اولا  حقل التاريخ مرتبط  بحقل هو بالاصل مفتاح  يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة
    الطريقة الاولى :
    ادخال التاريخ في حقل غير منضم  فإن قبله اكسس  يتم نقله الى الفورم  وتسجيله في الجدول وإلا يتم الغاء العملية
    Dim x As Boolean On Error Resume Next x = DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[تاريخ الدفعة]=#" & Me.idate & "#") If x = True Then DoCmd.CancelEvent MsgBox "التاريخ مكرر" Exit Sub Else End If  
    مساعدة.rar
  10. ابوخليل's post in ارجو المساعدة في دالة if لا تعمل معي was marked as the answer   
    صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش
    دعنا ننزل على رغبة الأخ مصطفى
    اولا  حقل التاريخ مرتبط  بحقل هو بالاصل مفتاح  يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة
    الطريقة الاولى :
    ادخال التاريخ في حقل غير منضم  فإن قبله اكسس  يتم نقله الى الفورم  وتسجيله في الجدول وإلا يتم الغاء العملية
    Dim x As Boolean On Error Resume Next x = DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[تاريخ الدفعة]=#" & Me.idate & "#") If x = True Then DoCmd.CancelEvent MsgBox "التاريخ مكرر" Exit Sub Else End If  
    مساعدة.rar
  11. ابوخليل's post in ارجو المساعدة في دالة if لا تعمل معي was marked as the answer   
    صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش
    دعنا ننزل على رغبة الأخ مصطفى
    اولا  حقل التاريخ مرتبط  بحقل هو بالاصل مفتاح  يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة
    الطريقة الاولى :
    ادخال التاريخ في حقل غير منضم  فإن قبله اكسس  يتم نقله الى الفورم  وتسجيله في الجدول وإلا يتم الغاء العملية
    Dim x As Boolean On Error Resume Next x = DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[تاريخ الدفعة]=#" & Me.idate & "#") If x = True Then DoCmd.CancelEvent MsgBox "التاريخ مكرر" Exit Sub Else End If  
    مساعدة.rar
  12. ابوخليل's post in الرجاء المساعدة فى عدم تكرار السجلات بعد التحديث was marked as the answer   
    يبدو انك مستعجل
    تفضل التعديل حسب طلبك
    مطعم وجبات2.rar
  13. ابوخليل's post in كيف يمكن استخدام اشعارات الويندوز بدلا من رسائل الاكسس was marked as the answer   
    AutoLogout2.rar
  14. ابوخليل's post in مشكله فى الطباعه was marked as the answer   
    الحل في خصائص الطابعة
    تجد ضمن الخصائص :
    قطع حسب الصفحة
    قطع حسب المسند
    اختر  قطع حسب المستند
    ايضا من خصائص الطابعة يمكنك تحديد المسافة الفارغة في اعلى واسفل الفاتورة
  15. ابوخليل's post in كود اوامر طباعة متسلسلة was marked as the answer   
    تفضل وحدة نمطية مع الشرح  يمكن من خلالها طباعة الصفحات من تقريرين تنازليا  مهما بلغت الصفحات 
    وايضا يمكن تحديد نقطة البداية او صفحة البداية
    فلو فرضنا ان لديك تقريرين كل واحد منهما يحتوي على 100 صفحة وتريد ان تبدأ الطباعة من الصفحة رقم 20 تنازليا
    فكل ما عليك  هو ان تضع رقم صفحة البداية في الحقل المخصص في النموذج 
    افتح محرر الفيجوال والصق الوحدة النمطية التالية : 
    Function PrintDscOrder(Rep1 As String, Rep2 As String) Dim PgNum As Integer, _ PgNum2 As Integer, PagesCnt As Integer  'اعلان عن متغيرات رقمية تمثل مجمل الصفحات وارقام الصفحات المحددة PagesCnt = Me.RepageCnt.Value           'مجمل الصفحات = قيمة الحقل في النموذج For PgNum = PagesCnt To 1 Step -2       'دوارة تنازلية زوجية PgNum2 = PgNum - 1            'تحديد رقم الصفحة الثانية وهي هنا اقل من الحالية بواحد DoCmd.SelectObject acReport, Rep1, True   'تحديد التقرير الأول DoCmd.PrintOut , PgNum, PgNum2, 1        'طباعة الصفحات المحددة DoCmd.SelectObject acReport, Rep2, True  ' تحديدالتقرير الثاني DoCmd.PrintOut , PgNum, PgNum2, 1         'طباعة الصفحات المحددة Next PgNum                                'عودة لبداية الدوران End Function                               'تصميم وترتيب ابوخليل وفي حدث بعد النقر لزر الطباعة الصق السطر التالي :
    Call PrintDscOrder("استقطاعات", "استحقاقات") طباعةالصفحات تنازليا من تقريرين.rar
  16. ابوخليل's post in استبدال المجلد was marked as the answer   
    تفضل الحل الافضل وهو كون الحدث يخص كل حقل لوحده
    في حدث بعد التحديث لاي حقل يتم الفحص والاجراء هو : اما انشاء مجلد جديد او تغيير اسم المجلد ان كان موجودا
    Dim i1 Private Sub Text1_GotFocus() i1 = Text1 End Sub Private Sub Text1_AfterUpdate() Dim fs, cf strFolder1 = CurrentProject.Path & "\" & Me.Text1.Value strFolder11 = CurrentProject.Path & "\" & i1 If MsgBox("سيتم ( إنشاء / تغيير ) اسم المجلد حسب القيمة الجديدة", _ vbQuestion + vbOKCancel, _ "تنبيه") = vbOK Then Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder11) = False Then Set cf = fs.createFolder(strFolder1) Else Name strFolder11 As strFolder1 End If Else Undo Exit Sub End If End Sub   
    تغير اسم المجلد حسب قيمة الحقل.mdb
  17. ابوخليل's post in عمل إحصائية الإيرادات والمصروف اليومي was marked as the answer   
    تفضل
    التقرير يومي2.mdb
  18. ابوخليل's post in طلب مساعدة في بناء قاعدة بيانات إدارة شؤون موظفين was marked as the answer   
    لا مشكلة لدي في رفع الملفات ولكن ما ابي اكلف على أحد لاني في بداية المشروع واستفسر هل طريقة البناء اساساً صحيحة
      الجواب :  طريقة البناء غير صحيحة ايضا يوجد ملاحظات على متطلبات التحرير
     
    لم استطيع رفع قاعدة البيانات وهو الجداول فقط ولكن قمت بتصوير صفحة العلاقات.
    الجواب : من الضروري رفع الجداول  ، حتى يتمكن الأخوة من مساعدتك ، اذا يوجد فيها بيانات اجعلها بيانات واسماء وهمية
    بالنسبة لي لن اتمكن من فتح قاعدة البيانات الا اذا كانت بصيغة mdb
     
    في اعتباري ان كل ماكانت طريقة البناء صحيحة أصبح التشييد الباقي سهل وعقباته أقل
    اسباب كثيرة الجداول هو بناء القاعدة للتحمل التغيرات مستقبلا وكذلك لوضع احصائيات تظهر بشكل تلقائي مستقبلاً بناءً على المدخلات بشكل يومي
    الجواب : نعم صحيح
     
  19. ابوخليل's post in تعويض الرقم التلقائي المحذوف was marked as the answer   
    نعم تستطيع
    ولكن حاول في عملك القادم ان تجعل الترقيم التلقائي هو مفتاح الجدول 
    بمعنى انه يكون ملك لأكسس لا يظهر للمستخدم .
    وتدرج في الجدول ترقيما تلقائيا مصنوعا 
  20. ابوخليل's post in لوحة مفاتيح رقمية was marked as the answer   
    لا يمكنك التحكم بحقل لوحة المفاتيح اذا كان منضما الى الجدول
    والحل هو ان تستخدم زر الادخال لنقل النتيجة الى الحقل المحدد
    انظر التعديل وبعد كتابة الرقم  انقر انتر
     
    لوحة مفاتيح.rar
  21. ابوخليل's post in مساعدة في تعبئة الشجرة بالنماذج والاستعلامات والتقارير من الجدول was marked as the answer   
    عليكم السلام
    انت تريد عرض الأسماء على الشجرة ، وبالنقر على الاسم يفتح النموذج الخاص به ؟
    اذا كان هذا صحيحا تفضل هذا مثال بسيط يمكنك محاكاته في برنامجك .
    Tree view22.mdb
  22. ابوخليل's post in ادراج تاريخ تلقائي مع عدم فتح الكمبيوتر لمدة يومين او ثلاثة was marked as the answer   
    غريب
    طيب جرب تعمل تجزئة للسطر هذا :
    Dim i, ii As Byte بحيث يصبح
    Dim i As Byte Dim ii As Byte  
  23. ابوخليل's post in مشكلة في العلاقات was marked as the answer   
    تفضل 
    وكما ذكرت لك الحل في خصائص العلاقة 
    اتمنى ان يكون هو مطلوبك
     
    Sample.rar
  24. ابوخليل's post in طلب كود تنسيق نمو حقول التقرير was marked as the answer   
    تفضل حسب طلبك
    Dim fildMaxHeight As Integer Dim ctl As Control Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer) Me.hed1.Height = fildMaxHeight End Sub Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer) For Each ctl In Me.Section(5).Controls If ctl.Height > fildMaxHeight Then fildMaxHeight = ctl.Height End If Next For Each ctl In Me.Section(5).Controls Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbWhite, BF Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbBlack, B Next End Sub  
    ضبط ارتفاع جميع الخلايا_ تقرير .mdb
  25. ابوخليل's post in استخراج البيانات من الرقم القومي was marked as the answer   
    تفضل  
    تم تعديل المثال اعلاه حسب طلبك
    Access2.mdb
×
×
  • اضف...

Important Information