اضف هذه الاسطر في نهاية الكود السابق
Call SendKeys("{right}", True)
Call SendKeys("{right}", True)
Call SendKeys("{right}", True)
Call SendKeys("{right}", True)
لقد قرأت مطلبك في السابق وهو ارسال الصور والملفات عن طريق الواتس
انظر هذا الرابط لكيفية ارسال الصور والمرفقات عن طريق الواتس بواسطة الاكسل ..... ربما يفتح الله لك باستغلال هذه الطريقة
استخدمنا هذا الكود للفلترة ....
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