ناقل

طيب انشأ نموذج وضع فيه زر وضع تحث حدث عند النقر للزر هذا الكود ..... Dim fpath As String fpath = Application.CurrentProject.Path & "\New Microsoft Excel Worksheet.xlsx" DoCmd.TransferSpreadsheet acImport, 8, "Table1", fpath, True

طيب ممكن ترفق لي ملف الدكتورة زهرة الاساسي للتصدير الى اخذت منه الكود ....

تقصد السنة فقط مثلا شخص عمره ٢٠ يظهر تاريج ميلاده مثلا 2000 صحيح

انا اكتب من الهاتف .. لكن حسب كلامك انت استخدمت الاستعلام للتصفية . صحيح وعرضت الكشف كيف تريد عند اغلاق النموذج ان يحتفظ الاستعلام بالبيانات .... لا تغلق النموذج وصدر مباشرة عنن طريق النموذج نفسه الخاص بالكشف ... اي ضع زر التصدير في نفس النموذج الذي عملت التصفية به ... لان الاستعلام ليس كالجدول لتخزين البيانات واذا توفر جهاز كمبيوتر اقوم بتحميل ملفك ... او احد الاخوة يقوم بذلك .. بارك الله فيك

ولكن في فرق في اسماء العناويين بين ملف الاكسس وملف الاكسل هناك فرق بين كود_الصنف و كود الصنف ارجو الرد ؟؟؟

وجزاك الله خير .... بالتوفيق

اضف هذه الاسطر في نهاية الكود السابق Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True)

دائما اخي الكريم ارفق مع سؤالك مثال مبسط لما تريد حتى يسهل وضع الحل المناسب ... بارك الله فيك

DoCmd.OpenReport "القيد", acPreview DoCmd.RunCommand acCmdZoom100 او استخدم هذا الكود ..... DoCmd.OpenReport "القيد", acPreview Reports(القيد).ZoomControl = 100

جرب ... Me.txtSender.Value

عدل بهذه الطريقة ربما تفيد ... sampleurl = "https://www.hisms.ws/api.php?send_sms&username=" & UserName & "&password=" & Password & "&numbers=" & numbers & "&sender=" & sender & "&msg=" & msg & ""

جرب هذا الكود ...... DoCmd.OpenReport "ReportName", acPreview DoCmd.RunCommand acCmdZoom100 240

ازل علامة افضل اجابة لانها تدل على انك حصلت على الاجابة فبتالي الزملاء والخبراء لن يزوروا موضوعك

ممكن توضيح اكثر أو مرفق لمثال مبسط لما تريد ؟؟؟؟

لقد قرأت مطلبك في السابق وهو ارسال الصور والملفات عن طريق الواتس انظر هذا الرابط لكيفية ارسال الصور والمرفقات عن طريق الواتس بواسطة الاكسل ..... ربما يفتح الله لك باستغلال هذه الطريقة

اخي فايز .... الاسماء في الجدول لديك نهايتها فيه فراغ فلذلك وقت البحث اكتبها ايضا بفراغ ....

.

تاكد من المرفق

ضع هذا الكود .... وجرب Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[10] = '" & Me.n & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark

استخدمنا هذا الكود للفلترة .... 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

اعتقد ممكن تسوى فلتر للنموذج ... بس ارفق مثال مبسط للتجربة

متابع بصمت

هذه طريقة اخرى ...... ‏‏f_absent - نسخة.accdb

ارفق مثال مبسط لما تريد فعله

الحقيقة لم افهم الية العمل ولكن جرب المرفق .... __f_absent .rar