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

صالح حمادي

أوفيسنا
  • Posts

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

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

  • Days Won

    29

كل منشورات العضو صالح حمادي

  1. السلام عليكم و رحمة الله و بركاته بعد إذنك أستاذي و أخي و صديقي العزيز رمهان حياك الله الأخ خالد هذا ملفك بعد التعديل Database5.rar
  2. استعمل الدالة DateAdd لاضافة تاريخ الى تاريخ آخر
  3. بالنوفيق للجميع إن شاء الله
  4. الله يتقبل منك أخي العزيز. لقد تمكنت من الوصول إلى الحل الذي أسعى إليه بارك الله فيك يا صديقي العزيز. كنت أظن أنه سوف يقوم بإنشاء ملف على سطح المكتب ولكن ذلك يتطلب إضافة الدالةالتالية: DoCmd.TransferSpreadsheet acExport فهذه الدالة تقوم بتصدير بيانات من الأكسس إلى الأكسل.
  5. لا حول و لا قوة إلا بالله. يا أخي العزيز لا خجل في طلب العلم كلنا نتعلم من هذا المنتدى جازى الله كل القائمين عليه الجنة إن شاء الله. فأنا أيضا مثلك مازلت مبتدى أتعلم الأكسس. الله يوفقك إن شاء الله. أنت ما عليك إلا أن تجتهد و تدعو لجميع أعضاء النادي بظهر الغيب لعلى الله يستجيب لدعائك. أما بالنسبة لملفك فقد أجريت النعديل المطلوب تفضل. سلسلة تواريخ.rar
  6. ما هو الخطأ في هذا الكود أخي : Private Sub ÃãÑ0_Click() Dim DTPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") curPath = DTPath & "\Hammadi- " & ".xls" Application.FollowHyperlink curPath End Sub صالح.rar
  7. شكرا جزيلا صديقي رمهان أنا حاولت أطبق الكود لإنشاء ملف أكسل على سطح المكتب أو في المستندات فلم أفلح
  8. بارك الله و أحسن الله إليك و جزيت خير الجزاء أستاذ رمهان. - هل يمكن تبديل مكان حفظ هذا الكائن في مكان آخر مثلا مجلد في القرص d
  9. شكرا جزيلا أستاذ رمهان الحل اللي أعطيته ممتاز خلاص معاد فيه مشكلة. أما بالنسبة للمتغير g كنت وضع سطر به هذا المتغير و لما حذفت هذا السطر نسيت التعريف . عندي 5 أيام أعاني من ضرسي أخي رمهان هل لديك كود يوقف الألم Book1.rar أخي ساندانت لقد تم حل مشكلتك و الفضل يرجع لله عز و جل ثم الأستاذ رمهان. جرب الملف و وافنا بالتفاصيل
  10. السلام عليكم و رحمة الله و بركاته أيها الأخوة الأكارم أحتاج إلى شرح مفصل لهذا الكود إن أمكن ذلك و كيفية إستعماله. و شكرا. dim DTPath as string DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
  11. فكرة ممتازة بارك الله فيك
  12. تأكد من الكائن المصدر للنموذج الفرعي. ربط الحقول الرئيسية. ربط الحقول التابعة.
  13. آميين يا رب العالمين اللهم أسقي جميع المؤمنين شربة هنيئة لا نظمأ بعدها أبدا يا رب العالمين. أنا لم أفهم ما تقصده جيدا لكن ربما يكون هذا الحل. أطلع جيدا على الملف و أخبرني أو أعد شرح المطلوب. بالتوفيق... سلسلة تواريخ.rar
  14. تفضل أخي هذا هو الملف بعد إصلاحه. Me.num = CurrentRecord On Error Resume Next Dim ss As Date If Me.num > 1 Then ss = DLookup("[ÇáÊÇÑíÎ]", "tbl", "num=" & [num] - 1) + 1 Me.dat = ss Me.dat.Enabled = False Else Me.dat.Enabled = True End If ضع هذا الكود في حدث الحالي للنموذج سلسلة تواريخ.rar
  15. السلام عليكم بعد إذنك أخي سعيد محمد تفضل هذا مثال على ما طلبت راجع الملف ووافني بالنتيجة سلسلة تواريخ.rar
  16. نعم أخي لقد لاحظت ذلك سوف أبحث عن المشكلة إن وجدت لها حل سوف أخبرك بذلك
  17. شكرا جزيلا أستاذنا الكريم جعفر على هذه المعلومات القيمة
  18. السلام عليكم. مطلوب شرح هذا الكود Application.FollowHyperlink DTPath
  19. شكرا أستاذنا جعفر. نعم فشرحي يخص الدالة nz .
  20. هذه العبارة أخي تحول قيمة مربع النص أو الحقل الخالي إلى 0 في مثالك تحول قيمة مربع النص code إلى 0 إذا كان خاليا
  21. ما شاء الله زادك الله علما و علما و علما أستاذنا جعفر بارك الله لك و لعلمك و نفعك الله به في الدارين الدنيا و الآخرة غن شاء الله
  22. نعم أخي و هذا ما أشار إليه الأستاذ جعفر. أنا أسأل هل بالإمكان إضافة اسم كائن في هذا المكان أم لا
  23. تفضل هذا ملفك بعد التعديل Book1.rar
×
×
  • اضف...

Important Information