ابو ياسين المشولي

في الكود اوقف هذا الكود On Error Resume Next وبيطلع لك ان كود الترحيل فيه خطاء

جرب هذا ABcont.rar

هو عند الاشتراك يعطوك 5 رسايل او 3 للتجربه

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

تقريبا الف ريال سعودي يساوي 264 لانه الصرف اتوقع 3.79

استاذي sandanet شوف الصورة في تقرير الوصول نعم وتقرير الوصول لا اللي هي نعم يخصم رسالتين ولا رساله فقط مافي منه اي فائده اما الخيار الثاني كمان مامنه فائده وهو يعطيك كم رساله بالدقيقه كما هو بالصورة

نعم شوف هذه الصورة

استاذ sandanet المشكله بسيطه فقط يبدل هذا & "&EnableDR=" & False & "&SentMessageID=" & False من True الى False اي انه لا يستلم تقرير الارسال بالتقرير يخصمو رساله

للاسف اخي محمد أبوعبدالله لم يشتغل على وندوز10

تستاهل استاذ صالح الف مبروك

للرفع

لا توجد اي رسايل فقط على شريط المهام يطلع ايقونه اكسس لكن في وندوز 7 يطلع الايقونه اللي اخترتها لا توجد اي رسايل فقط على شريط المهام يطلع ايقونه اكسس لكن في وندوز 7 يطلع الايقونه اللي اخترتها

اخي محمد أبوعبدالله للاسف لم ينفع في وندوز 7 شغال لكن 10 مايرضي يبقى ايقزنه اكسس كما هي

عندنا تف عليه معنها تبصق في وجه هههههههههه

الان استخدم وندوز 7 في الليل بشوفها وبعطيك خبر اخي محمد أبوعبدالله

السلام عليكم اخواني الاعزاء هذا كود تغير ايقونه الاكسس في وندوز 7 ولكن لايشتغل في وندوز 10 هل في احد عنده فكرة Dim intX As Integer Const DB_Text As Long = 10 ' هنا اسم البرنامج اذا رغبت في تغييره intX = AddAppProperty("AppTitle", DB_Text, "Tailor program") intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.path & "\DATA\Scans\" & "Icon_001.ico") intX = AddAppProperty("AppTitle", 10, "Tailor program") intX = AddAppProperty("AppIcon", 10, IconPath) CurrentDb.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar

الله ينور ايامك اخي kha9009lid

مشاركة مع اخي عبد اللطيف سلوم انا بصراحه افضل Between Between Date() And Date()+[Forms]![forms_rebort]![tt_15]

جرب هكذا Microsoft Office Access 2007 قاعدة بيانات جديد __.rar

استاذ جعفر jjafferr انت معلمنا ومنكم نستفيد فالف الف شكر

جرب =NZ(DSum("[chemical_element]","Qlaboratory","[typeelement]='active'"),"0")

العفو اخي Ahmed_J

اتغضل DoCmd.OpenReport "report1", acPreview, , "[تاريخ الترقية الجديد]Between [Forms]![form1]![StartDate] And [Forms]![form1]![EndDate]"

شوف هذا اوفسنا كومبو بوكس.accdb

ارفق مثال افضل يمكنك استدعاء العميل من جدول العملاء