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

ناقل

الخبراء
  • Posts

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

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

  • Days Won

    6

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

  1. انا اكتب من الهاتف .. لكن حسب كلامك انت استخدمت الاستعلام للتصفية . صحيح وعرضت الكشف كيف تريد عند اغلاق النموذج ان يحتفظ الاستعلام بالبيانات .... لا تغلق النموذج وصدر مباشرة عنن طريق النموذج نفسه الخاص بالكشف ... اي ضع زر التصدير في نفس النموذج الذي عملت التصفية به ... لان الاستعلام ليس كالجدول لتخزين البيانات واذا توفر جهاز كمبيوتر اقوم بتحميل ملفك ... او احد الاخوة يقوم بذلك .. بارك الله فيك
  2. ولكن في فرق في اسماء العناويين بين ملف الاكسس وملف الاكسل هناك فرق بين كود_الصنف و كود الصنف ارجو الرد ؟؟؟
  3. وجزاك الله خير .... بالتوفيق
  4. اضف هذه الاسطر في نهاية الكود السابق Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True)
  5. دائما اخي الكريم ارفق مع سؤالك مثال مبسط لما تريد حتى يسهل وضع الحل المناسب ... بارك الله فيك
  6. DoCmd.OpenReport "القيد", acPreview DoCmd.RunCommand acCmdZoom100 او استخدم هذا الكود ..... DoCmd.OpenReport "القيد", acPreview Reports(القيد).ZoomControl = 100
  7. عدل بهذه الطريقة ربما تفيد ... sampleurl = "https://www.hisms.ws/api.php?send_sms&username=" & UserName & "&password=" & Password & "&numbers=" & numbers & "&sender=" & sender & "&msg=" & msg & ""
  8. جرب هذا الكود ...... DoCmd.OpenReport "ReportName", acPreview DoCmd.RunCommand acCmdZoom100 240
  9. ازل علامة افضل اجابة لانها تدل على انك حصلت على الاجابة فبتالي الزملاء والخبراء لن يزوروا موضوعك
  10. ممكن توضيح اكثر أو مرفق لمثال مبسط لما تريد ؟؟؟؟
  11. لقد قرأت مطلبك في السابق وهو ارسال الصور والملفات عن طريق الواتس انظر هذا الرابط لكيفية ارسال الصور والمرفقات عن طريق الواتس بواسطة الاكسل ..... ربما يفتح الله لك باستغلال هذه الطريقة
  12. اخي فايز .... الاسماء في الجدول لديك نهايتها فيه فراغ فلذلك وقت البحث اكتبها ايضا بفراغ ....
  13. ضع هذا الكود .... وجرب Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[10] = '" & Me.n & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark
  14. استخدمنا هذا الكود للفلترة .... Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[7] = '" & Me![n] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark F_____StuData.rar
  15. اعتقد ممكن تسوى فلتر للنموذج ... بس ارفق مثال مبسط للتجربة
  16. هذه طريقة اخرى ...... ‏‏f_absent - نسخة.accdb
  17. الحقيقة لم افهم الية العمل ولكن جرب المرفق .... __f_absent .rar
  18. استخدم في الاستعلام True
  19. هل انت جربت الاستعلام1 ...... انظر النتيجة من جهازي .... اليس هذا هو مطلوبك ؟؟؟؟
×
×
  • اضف...

Important Information