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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    140

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

  1. اخي اجعل النماذج الاخرى لا تفتح الا بفتح نموذج التسجيل .
  2. أخي الكريم السلام عليكم ورحمة الله وبركاته هذه المقالات مفيدة في هذا الجانب
  3. وعليكم السلام ورحمة الله وبركاته أخي الحبيب أبا خليل كما تعلم أخي أن الاكسس لا يصدر التقرير الا للصيغ المعروفة اكسل وررد بي دي اف وغيرها أما الصور فلا يتم .... لذلك يمكن استخدام برنامج SnagIT وجعل الطابعة الخاصة بها افتراضية ثم طباعة التقرير غلى هذا الاساس أرجو ان اكون قد أوصلت الشرح بالطريقة الصحيحة ... بارك الله فيك
  4. أخي عصام استخدم هذا الكود DoCmd.OutputTo acOutputReport, "كشف متابعة الطلاب", "MicrosoftExcelBiff8(*.xlsx)", "", True, ".xlsx", , acExportQualityPrint
  5. لمعرفة تاريخ الميلاد استخدم Me![DateOfBirth] = Format(IIf(Left([IDNumber], 1) = 3, Mid([IDNumber], 2, 2) + 2000, Mid([IDNumber], 2, 2) + 1900) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2), "yyyy/mm/dd")
  6. اضف هذا السطر في بداية الكود On Error Resume Next
  7. اخي الكود سليم ...
  8. عفوا ماهي التغليمة البرمجية التي هي تحت هذا الزر
  9. وعليكم السلام ...... يبدو والله أعلم أن هناك السجل الحالي مفقود أو غير موجود أو ان مربع النص خالي
  10. وعليكم السلام ورحمة الله وبركاته استخدم txt1 = Mid(txt, 6, 1) ' txt1 اسم مربع النص الذي يظهر الرقم الخامس ' txt مربع النص الذي به الرقم
  11. وعليكم السلام ورحمة الله وبركاته .... فكرة . بدلا من الاخفاء قم بتشفير بياناتك الهامة في تلك الجداول .
  12. للاسف اخي ليس لدي اوفيس ١٠ لاجرب
  13. وعليكم السلام ورحمة الله اخي انظر هنا
  14. تفضل أخي الكريم هل هذا مطلوبك Ka_tast1.rar
  15. وعليكم السلام اسمح لى أخي جعفر ..... لأن السؤال باسمك .... أرجو المعذرة تفضل هل هذا مطلوبك Ka_tast.rar
  16. وعليكم السلام ورحمة الله وبركاته أرجو أن يكون هذا هومطلوبك Kanory-Path.rar
  17. مشاركتي خجوله لأني اشارك بعد مشاركة حبيبنا جعفر ... استاذنا الكبير Ka-‏‏example.rar
  18. موجودة الخانة اخي امكن المشكلة في جهازك .. هل هو جوال ام كمبيوتر
  19. الاستعلام للربط بين الحقول . بارك الله فيك
  20. تفضل ضغ هذا الكود في الفورم Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() 'غير الرقم واحد الى الرقم أو الدقائق المطلوبة If Now() >= DateAdd("n", 1, MyTime) Then DoCmd.Close End Sub
  21. ما شاء الله عليك ... انت دكتور فعلا وليس قولا .... عجبتني 3 حبات فقط ... وصفة مضاد حيوي 😁
  22. هذا المثال قد يعمل معك حسب الأوفيس Ka_Options.rar
×
×
  • اضف...

Important Information