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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    139

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

  1. انظر الصور وطبق ..... ثم ضع هذا الكود في مصدر الكمبو ---------->>>>>> SELECT * FROM (SELECT Table1.main_unit FROM Table1) AS1 UNION SELECT * FROM (SELECT Table1.med_unit FROM Table1) 2; ولكن سؤال لماذا حذفت اسماء السلع ؟؟؟؟ كيف تعرف وتفرق بين السلع عن زيادتها عن اكثر من اربعة سلع وكلها بالكيلو مثلا ؟؟ والخيار لك في النهاية !!
  2. في مصدر عنصر التحكم لمربع النص ضع هذا ..... =DLookUp("[xxx]";"x1")
  3. ضع هذا الكود تحت حدث الزر 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
  4. استبدل مصدر الصف في الكمبو بهذا 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;
  5. سطرين ؟؟؟؟؟ قصدق سجلين مثل هذا ؟؟؟
  6. انظر الصور وطبق ..... combobox1.accdb
  7. بالعكس استاذي حسام .. انت استطعت فهم مايريد باي طريقة ... تستحقها بارك الله فيك ..
  8. لعل الموضوع هذا يفيدك -------->>>>>
  9. هذه طريقة اخرى -------->>>>> والطرق كثيرة كما خطرة فكة ممكن عملها ... test-5.accdb
  10. تفضل -------->>> test-5.accdb
  11. امين واياك .... جزاك الله خيرا على الدعوات الطيبة منك يا طيب ..... هذا ما نحتاجه
  12. تفضل --------->>>>>>> تجربة_(0).accdb
  13. جرب ...... 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. ممكن كفكرة : تعمل تقريرين فرعيين ( للاستعلام بحث - والاستعلام بحث_وارد ) ثم تضيفهم في التقرير واحد ... بحيث يمكنك تنسيق التقريرين كما تريد ملاحظة البيانات الموجودة في التقرير كثيرة .... لذلك يمكن جعل التقرير غير منضبط أي غير جدولي
  15. ممكن مثال مصغر ...
  16. ما شاء الله تبارك الله اهلا @ابا جودى نورت المنتدى
  17. حياك الله اخي @الشربيني 123 واياك
  18. نعم بحسب التسلسل المنطقي لتنفيذ الاوامر ترتب تحت بعضها البعض
  19. نعم عادي مافيها شيئ DoCmd.Close acForm, "AT" DoCmd.Maximize
  20. استخدم هذا ..... Dim q As Integer q = z If Me.v = q Then MsgBox "error1" Else MsgBox "error2" End If
×
×
  • اضف...

Important Information