Eng.Qassim

لايمكن ذلك ...فحقل ال Attachment فيه ثلاث تفرعات abb.FileData abb.FileName abb.FileType ولهذا تحتاج لنسخ تلك الحقول او التفرعات الى حقل الجدول لديك اعتقد مثال استاذ موسى يساعدك هذا كان السؤال الذي يدور في دماغي ...فنحن لسنا بحاجة للدوران حول كل السجلات لكن المشكلة ان الاستعلام لايعمل مع ال Attachment اعتقد الموضوع بحاجة لبخور عماني ☺️

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

بناء على اقتراخ الاستاذ @محمد احمد لطفى..قمت بعمل مربع نص لادخال المسار Hide.mdb

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

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

الف مبروك لولدنا العزيز احمد ... مزيد من التألق والابداع

طيب اعمل استعلام الحاق AppendQ INSERT INTO tblOld ( sdate, idNum ) SELECT tblNew.sdate, tblNew.idNum FROM tblNew; ثم استعلام حذف deleteQ DELETE tblNew.sdate, tblNew.idNum FROM tblNew; وفي زر نسخ الجدول ضع : DoCmd.SetWarnings False DoCmd.OpenQuery "AppendQ" DoCmd.OpenQuery "deleteQ" DoCmd.SetWarnings True

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

السلام عليكم ... اين استخدمت DLookUp لعملية تحديث سعر الشراء في الجدول ؟ طالما ان لديك امكانية لتحديث سعر الشراء بواسط الاستعلام فهو اسرع من استخدام دالة DLookUp خاصة اذا كان عدد السجلات كبير اعتقد ان الافضل ان تعمل جدول مؤقت من خلال الاستعلام qryItemCosts

نعم استاذي ابو خليل ... بصراحة لقد عشقت مهارتهم ومقاومتهم تحية لاهل عمان ولكل بلادي العربية

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

مبروك لنا جميعا ...الحقيقة كنت اشجع فريق بلدي وفريق عمان في ان واحد ...فريق عمان ادى مباراة رائعة وكنت اشبهه بالفريق الفرنسي في نهائيات كاس العالم تحية للاخوة العمانيين ...فهم اساتذتي اولا واخيرا وخاصة استاذ جعفر

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

ممكن سؤال ...هو ليه كل الاستعلامات دي ؟ ربنا يعينك استاذ برناوي @Barna

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

وعليكم السلام اخ جمال عن اي شي تريد البحث وفي اي جدول ..وعند الضغط على زر البحث مالذي يفتح من النماذج؟

اضافة لما تفضل به اساتذتي طبعا النموذج الفرعي هو للمقارنة ..والا هو (حديدة عن الطنطل) SS.rar

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

وعليكم السلام اخ طاهر اين المثال المرفق؟

اعتذر منك اخ حمدي ..احيانا اتسارع في الاجابة واخطأ لاني لم اجربه على البرنامج لم اطلع على البرنامج بشكل جيد ..لكني لاحظت انك عامل كود عند الاغلاق يمسح مافعلته عند التحديث طيب اذا اردنا ان نفحص مستفبلا الاشخاص الذي تم الارسال لهم ..فكيف سنعرف ذلك ؟ على العموم جرب التعديل على مرفقك تجرية.rar

طيب انا مش شايف docmd.RunSQL قبلها...والا كيف حتشتغل الجملة ..انا عملتلك بين القوسين فقط

وعليكم السلام جرب هذه الجملة "UPDATE email SET email.Id = [Forms]![email]![toname], email.SelectRow = "T", email.SendStuts = "تم الارسال";"

وعليكم السلام اخي حمدى بالنسبة لسؤالك الاول والثاني ..اضف التالي في بداية كود الارسال If IsNull(Me.msg) Then MsgBox ("لايوجد نص للارسال") Exit Sub End If If IsNull([email1].Form![phone_number]) Then MsgBox ("لايوجد هاتف") Exit Sub End If اما بالنسبة لسؤالك الثالث..بصراحة ليس لي علم به لكني سألت الموقع الذكي واعطاني الكود التالي ولم اتحقق منه On Error GoTo ErrorHandler ' Your code to send the message using WhatsApp goes here ErrorHandler: If Err.Number = "-2147023170" Then ' This error number corresponds to the "Object doesn't support this property or method" error MsgBox "The mobile number is not connected to WhatsApp. Please try a different number." Else MsgBox "An error occurred while sending the message: " & Err.Description Exit Sub End If قم بوضعه بعد هذه الجملة ..جربه واعطنا النتيجة Set IE = CreateObject("InternetExplorer.Application")

وعليكم السلام هل النموذج لديك مستمر؟

كلنا نفشل ونتعلم .. الدالة NZ من الدوال المهمة والتي تسبب مشاكل عند تنفيذ المعادلات الحسابية وهناك حقول فارغة ...فهذه الدالة تقوم بتحويل الحقول التي ليس بها شي Null value الى قيم اخرى ...فمثلا لديك حقول ارقام تلفونات ..وتريد ان تكتب (لايوجد رقم) في الحقول (الفارغة) NZ(PhoneNumber, " لايوجد رقم ") او تريد ان تعود اليك القيم ب صفر في العمليات الحسابية حتى لايحصل خطأ فتكتب .. Nz(Dsum("field","table","Criteria"),0)