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

kanory

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

  • Posts

    2346

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

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

  • Days Won

    139

 نوع المحتوي 

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

  1. kanory
    وعليكم السلام ورحمة الله وبركاته حياك الله اخي @dragony2000 في منتدى الاكسس اجابة سؤالك اولا هنا تجده ربما يجيب الاخوة على بقية تساؤلاتك او لنا عودة اخرى بعد المعايدات ... وكل عام وانت بخير
  2. kanory
    استخدامك للعم قوقل تعتبر عبقرية ... غيرك لا يستطيع
  3. kanory
    لا ازيد على كلامك اخي خالد ايضا لاحظك حبه الشديد بمساعدة الاخرين ... وهذه المحاولات هي التي تساعده في الارتقاء بمستواه من حيث اكتساب الخبرات . بارك الله فيك اخي فايز وكتب الله اجرك
  4. kanory
    بالعكس اخي خالد .... بارك الله فيك رمضان كريم أستاذ @jjafferr و أستاذ @kha9009lid
  5. kanory
    جرب كده ربما هو المطلوب = DateSerial(Year(Date), 1, 1)
  6. kanory
    بارك الله فيك eee هو اسم الكمبوبكس fff هو اسم النموذج الفرعي قم بتحميل الملف الموجود في بداية الموضوع ... سوف تشاهد المقصود ماذا تقصد بهل يمكن عرض كل الجداول
  7. kanory
    استخدم هذا الكود B.SetFocus Form!B!c.SetFocus
  8. kanory
    [B]![C].SetFocus
  9. kanory
    ضع هذا الكود في حدث عند النقر Dim a, s As String s = Me.eee.Column(0) a = "Table." & s Me.fff.SourceObject = a
  10. kanory
    لاحظ المرفق وعليك بتنسيق التقرير ...... moh.accdb
  11. kanory
    خيارات الاكسس ---------> اعدادات العميل ---------> التقويم الهجري
  12. kanory
    اكبر خطأ ربط ارقام تلقائية مع بعض ....... راجع الربط في حقول ID واضح أن الارقام غير متشابهة فلذلك لن يظهر بيانات لعدم توفرها
  13. kanory
    وعليكم السلام ورحمة الله أخي @محمد خالد السعيد كم عدد السجلات القصوى لهذا النموذج الفرعي ؟؟؟؟؟
  14. kanory
    تفضل انظر الطريقة .......... moh.accdb
  15. kanory
    ممكن عملها بطريقة أخرى .... وهي أن المربع الاختيار يكون موجود للجميع ... لكن عند اختيار وظيفة معينة يتم وضع علامة صح امام جميع من يمثل تلك الوظيفة ....
  16. kanory
    بارك الله فيك ... نحن في الخدمة
  17. kanory
    اعمل زر وضع هذا الكود في حدث عند النقر Dim Warning As String Warning = MsgBox("أنت الآن على وشك مسح البيانات فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then On Error GoTo Err_Handler Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = "" End If Next ctl Exit_Handler: Set ctl = Nothing Exit Sub Err_Handler: Resume Exit_Handler Else DoCmd.CancelEvent
  18. kanory
    هل البيانات في مربعات نص فقط أم كمبولست وغيرها ؟؟؟؟؟
  19. kanory
    صدر -----> احذف البيانات في الاكسس -------> استيراد import1.rar
  20. kanory
    يا اخي مشكلة زرار الاستيراد في مسميات حقول الاكسل بالعربي وعند الاستيراد لا يستورد بسبب اختلافها مع جدول الاكسس ... لذلك قلت لك استبدلها بهذا الكود الذي يصدر بنفس مسميات الحقول الموجودة في الاكسس .. حتى لا يتسبب في خطأ عند الاستيراد ...
  21. kanory
    الاروع ردك ... كل عام وانت بخير ... حياك الله
  22. kanory
    استبدل كود التصدير بهذا الكود .... DoCmd.OutputTo acOutputTable, "data", acFormatXLS, CurrentProject.Path & "\data.xls", True
  23. kanory
    طيب .... شوف الطريقة دي يمكن تناسبك New Microsoft Access قاعدة بيانات (3)(1).accdb
  24. kanory
    حسب ما فهمت منك .... تفضل تشابه.accdb
  25. kanory
    بالتوفيق ..... حياك الله ..... امين وياك
×
×
  • اضف...

Important Information

  I accept