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

kanory

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2321

  • تاريخ الانضمام

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

  • Days Won

    138

 نوع المحتوي 

كل منشورات العضو kanory

  1. kanory
    ضع هذا الكود تحت حدث الزر On Error GoTo Err_أمر0_Click Dim X X = CurrentProject.Path & "\" & CurrentProject.Name DoCmd.TransferDatabase acExport, "Microsoft Access", X, acTable, "تأجير شقة", "نسخة من تأجير شقة", False MsgBox "تم نسخ الجدول ", vbOKOnly, "تأكيد" Exit_أمر0_Click: Exit Sub Err_أمر0_Click: Resume Next
  2. kanory
    استبدل مصدر الصف في الكمبو بهذا SELECT * FROM (SELECT Table1.item, Table1.main_unit FROM Table1) AS kan UNION SELECT * FROM (SELECT Table1.item, Table1.med_unit FROM Table1) AS kan1;
  3. kanory
    سطرين ؟؟؟؟؟ قصدق سجلين مثل هذا ؟؟؟
  4. kanory
    انظر الصور وطبق ..... combobox1.accdb
  5. kanory
    الحمد لله رب العالمين
  6. kanory
    بالعكس استاذي حسام .. انت استطعت فهم مايريد باي طريقة ... تستحقها بارك الله فيك ..
  7. kanory
    لعل الموضوع هذا يفيدك -------->>>>>
  8. kanory
    هذه طريقة اخرى -------->>>>> والطرق كثيرة كما خطرة فكة ممكن عملها ... test-5.accdb
  9. kanory
    هل هذا هو المطلوب -------->>>> kan_3987.accdb
  10. kanory
    تفضل -------->>> test-5.accdb
  11. kanory
    امين واياك .... جزاك الله خيرا على الدعوات الطيبة منك يا طيب ..... هذا ما نحتاجه
  12. kanory
    تفضل --------->>>>>>> تجربة_(0).accdb
  13. kanory
    جرب ...... Select Case Me.المجموع1 Case Is < 31 Me.نص45 = 1 Case Is < 61 Me.نص45 = 2 Case Is < 91 Me.نص45 = 3 End Select
  14. kanory
    ممكن كفكرة : تعمل تقريرين فرعيين ( للاستعلام بحث - والاستعلام بحث_وارد ) ثم تضيفهم في التقرير واحد ... بحيث يمكنك تنسيق التقريرين كما تريد ملاحظة البيانات الموجودة في التقرير كثيرة .... لذلك يمكن جعل التقرير غير منضبط أي غير جدولي
  15. kanory
    مشاركة مع اخي @ابو البشر مشكلة الجمع.accdb
  16. kanory
    ممكن مثال مصغر ...
  17. kanory
    ما شاء الله تبارك الله اهلا @ابا جودى نورت المنتدى
  18. kanory
    حياك الله اخي @الشربيني 123 واياك
  19. kanory
    نعم بحسب التسلسل المنطقي لتنفيذ الاوامر ترتب تحت بعضها البعض
  20. kanory
    شكرا لك اخ فتح .....
  21. kanory
    نعم عادي مافيها شيئ DoCmd.Close acForm, "AT" DoCmd.Maximize
  22. kanory
    استخدم هذا ..... Dim q As Integer q = z If Me.v = q Then MsgBox "error1" Else MsgBox "error2" End If
  23. kanory
    واياك .... حياك الله
  24. kanory
    حياك تشرفنا ......🌺
  25. kanory
    منور استاذ احمد فينك لك وحشة .... عساك بصحة وعافية
×
×
  • اضف...

Important Information

  I accept