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

د.كاف يار

الخبراء
  • Posts

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

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

  • Days Won

    60

Community Answers

  1. د.كاف يار's post in حل مشكلة تكرار السجلات was marked as the answer   
    تفضل التعديل
    الخطأ كان في العلاقة بين الجداول 
    تم انشاء علاقة بين جدول الحسابات و جداول الحركات

     
    بعد الربط اصبح الكشف بهذا الشكل

    project no 2.zip
  2. د.كاف يار's post in تفعيل و ايقاف السماح بتكرار سجل في جدول ممنوع في التكرار was marked as the answer   
    لإنشاء مفتاح اساسي استخدم الكود التالي
    DoCmd.RunSQL "ALTER TABLE [mowadfen_check] ADD CONSTRAINT PK_Person PRIMARY KEY ([الرقمالوظيفي], [التاريخ]) لإلغاء المفتاح الأساسي استخدم الكود التالي
    DoCmd.RunSQL "ALTER TABLE [mowadfen_check] DROP CONSTRAINT PK_Person"  
  3. د.كاف يار's post in سعر شراء الصنف لا يظهر في فاتورة المشتريات was marked as the answer   
    حاول اخي الكريم في المرات القادمة ان ترفق مثال مصغر لكي يسهل التعامل معه
    تم تطبيق كود اخي @دروب مبرمج على صفحة مردود المبيعات
     
    Database2.rar
  4. د.كاف يار's post in تجميع عدد جزاءات موظف was marked as the answer   
    تفضل ملفك بعد التعديل

    AVIrep.rar
  5. د.كاف يار's post in برنامج القروض البنكية والسداد للموظفين هدية مجانية was marked as the answer   
    اعجبني الموضوع و حبيت اقدر مشاركة بسيطة 
    اذا كان تاريخ شهر القرض اكبر من الشهر الحالي و لم يتم السداد يكون باللون الأحمر
    اذا كان شهر السداد مساوي للشهر الحالي و لم يتم السداد يكون اللون الأصفر
    و في باقي الحالات يكون اللون الأبيض

     
    هدية مجانية - قروض بنكية.zip
  6. د.كاف يار's post in إرسال تقارير بصيغة PDF بالبريد الإلكتروني لعدة أشخاص دفعة واحدة was marked as the answer   
    المرفق ليس الا مثال 
    لكن تفضل هذا التعديل
    تم تشفير بيانات تسجيل الدخول الى البريد الإلكتروني
    كما يجب من اعدادات الايميل تمكين دخول البرامج الأقل أمانا
    myaccount.google

    بعد التمكين قم بإضافة الايميل و كلمة المرور لقاعدة البيانات
    صورة من الإيميل 

    صورة الشهادة

    12839.pdf
     
    Course certificates -Mohd+Moosa.zip
  7. د.كاف يار's post in مساعدة في تعديل مسار الصور واضافة نموذج لاستعراض المرفقات was marked as the answer   
    ابشر اتفضل التعديل
     
    sa1.3.zip
  8. د.كاف يار's post in مشكلة في دالة iif was marked as the answer   
    لأن نوع العمود رقمي و يأخذ قيمته من جدول العام الدراسي بناء على كود العام
    نصيحة لك استبدل نوع العمود و اجعله نصي لكي يسهل العمل عليه
    تفضل هذا التعديل كما تريده تماما بعد تغيير نوع عمود السنة الدراسية
     
    school.accdb
  9. د.كاف يار's post in نقل سجل كامل من جدول الى آخر عن طريق النموذج was marked as the answer   
    فقط غيير المعيار الى الاسم 
    و الغي المفتاح الاساسي عشان يقبل التكرار
    تفضل التعديل
    test-a.accdb
  10. د.كاف يار's post in مساعدة في صلاحيات المستخدمين was marked as the answer   
    تفضل بهذا الترتيب يكون التحكم اسهل
    Dim SetCoulmin() As String, SetWhere As String SetCoulmin = " TransID,TransType, TransTitle, " & _ " TransSubject,TransDescription,TransCreatedOn, " & _ " TransCreatedBy,TransStatus,TransUpdatedBy, " & _ " TransEnd,TransFromCity,TransFromDept,TransToDept,TransToEmp " Forms!DynamicForm!lstDynamic.RowSource = "SELECT " & SetCoulmin & " From TransactionsT " & _ " WHERE TransType is Not Null " & _ " and TransTitle is Not Null " & _ " and TransSubject is Not Null " & _ " and TransToDept Like '*' & Forms!MainScreen!txtDepartment & '*' " & _ " ORDER BY TransID DESC"  
  11. د.كاف يار's post in الرجاء المساعدة ( الترحيل الى Access و الجلب من Access ) was marked as the answer   
    تفضل هذا التعديل السهل و البسيط 
    القي نظرة على الماكرو 

    بعد التصدير ستجد ملف الاكسل بجوار برنامجك 
    عملية الترحيل و الجلب من و الى اكسال.zip
  12. د.كاف يار's post in وحدة نمطية للتأكد من الادخالات التي يدخلها المستخدم مطابقة لتنسيق الخانانت was marked as the answer   
    اقترح عليك ان تستخدم قناع الادخال لكل عنصر 
     
    مثال على ذكل
    لدينا مربع نص رقمي و ليكن مثلا يتكون من عدد 4 حقول و يمثل حقل ID

    و يكون قناع الادخال بهذا الشكل

    بالتالي فأن القيمة المدخلة ستكون رقمية و لن يقبل القيم النصية
     
    مثال آخر لقيمة نصية
    هنا لدينا مربع نصي لإدخال الاسم و التنسيق الافتراضي له هو حروف فقط

    يكون قناع الادخال بهذا الشكل

     
    بإختصار من خلال قناع الادخال بإمكانك التحكم بنوعة الادخال لكل حقل
    فمثلا لو كنت تريد ما يلي :-
    اجبار المستخدم على ادخال قيمة نصية محددة لا تزيد عن رقم فيكون قيمة قناع الادخال هو : 0
    اما لو اردنا المستخدم ادخال عدد محدد من الارقام مثلا تسعة ارقام فيكون قيمة قناع الادخال هو : 9
    اما مثلا لو اردنا اجبار المستخدم على ادخال رقمين و حرفين فيكون قيمة قناع الادخال بهذا الشكل : ##LL
    لتمكين المستخدم من ادخال حروف و ارقام بعدد محدد مثلا خمسة حروف او ارقام فيكون قناع الادخال بهذا الشكل : AAAAA
    ******* ملاحظة *************
    الحروف في قناع الادخال مثلا A كبير فيعني ادخال اجباري اما لو كان الحرف صغير a  فيعني ادخال اختياري 
    كما ستجد بعض نماذج اقنعة الادخل من خلال الخصائص

  13. د.كاف يار's post in طريقة تسديد ديون من الفاتورة التي بيعت بالآجل was marked as the answer   
    تفضل هذا التعديل
     
    Database1.zip
  14. د.كاف يار's post in الذهاب لنموذج منفصل وتمكين الحقول الموجوده فى النموذج الرئيسي فقط was marked as the answer   
    تفضل هذا التعديل
     
    GoToForm.accdb
  15. د.كاف يار's post in الذهاب لنموذج منفصل وتمكين الحقول الموجوده فى النموذج الرئيسي فقط was marked as the answer   
    تفضل هذا التعديل
     
    GoToForm.accdb
  16. د.كاف يار's post in تصدير ملفات اكسس الى اكسل حسب المرفق was marked as the answer   
    جرب هذا التعديل
     
    تقسيم.zip
  17. د.كاف يار's post in رسالة موافق غير موافق was marked as the answer   
    تفضل جرب هذا التعديل
    numberfield = Me.fash Dim A As String, MsgTitle As String, MsgBody As String MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان" MsgTitle = "رسالة تحـــزيرية" A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _ " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End If  
  18. د.كاف يار's post in كيفية اخذ قيمة من كومبوبوكس لمتغير من نوع TempVar was marked as the answer   
    جرب هذي الطريقة
    TempVar!EmpNameTemp=Me.cbo123.Column(2)  
  19. د.كاف يار's post in مساعدة في كشف عن خطأ في المعادلة was marked as the answer   
    تفضل هذا المثال وضعت لك مثالين لسحب الصورة من الماسح الضوئي و جلب صورة من الكمبيوتر
    Database12222.mdb
  20. د.كاف يار's post in كيفية الحساب من الوحدة النمطية was marked as the answer   
    من الطبيعي ان تواجه مشكلة
    من الطبيعي ان تتوقف الجداول عن اضافة المزيد من الحقول
     
    اخي عدد الحقول لكل جدول هو 255 عمود
    بعد الوصول للحد الاقصى فلن تكون قاعدة البيانات قابلة للتعديل

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

     
    ومن خلال ربط الجدول الجديد مع الحالي

     
    تكون قد حققت الهدف بعيد عن التحميل الغير منطقي على قاعدة البيانات 
    و تكون النتيجة بهذا الشكل

    تم الاستغناء عن 236 حقل و التعويض عنها بعدد 4 حقول مترابطة سليمة 

    حين يكون العمل بالصورة السليمة سوف تجد سهولة في التعامل مع
    طبق التعديلات تطبيقا منطقيا و اعد رفع الملف ان واجهت مشكلة اخرى
     
     
    التسويات 8-2022.zip
  21. د.كاف يار's post in انشاء استعلام والبحث فيه باكثر من معيار was marked as the answer   
    تفضل ملفك
     
    حضور وانصراف موظفين.zip
  22. د.كاف يار's post in مساعدة فى عملية حسابية مشروطة was marked as the answer   
    سؤالك مكرر و تمت الاجابة عليه سابقاً
    شكرا لك
  23. د.كاف يار's post in موازنة الصندوق بين النقدي والآجل (معدل) was marked as the answer   
    تفضل التعديل
     
    system.zip
  24. د.كاف يار's post in فتح ملف وورد من داخل اكسس was marked as the answer   
    خطأ في صيغة ملف الوورد
    استبدل الكود بالتالي في ازرار فتح الملف الثاني و سيعمل بدون مشكلات
    Dim X As Object On Error Resume Next Set X = CreateObject("Word.Application") X.Documents.Open CurrentProject.Path & "\althane.doc" X.Visible = True X.Activate X.ActiveDocument.Bookmarks("Idd1").Select X.Selection.InsertAfter Me.Idd.Value  
  25. د.كاف يار's post in غلق النموذج بعد انتهاء مقطع الصوت was marked as the answer   
    تفضل التعديل
     
    855.zip
×
×
  • اضف...

Important Information