ابوآمنة

المثال بالاكسل موجود وهي نفس الفكره أريد تحويلها إلى أكسس فقط لا غير

للرفع

‏يمكنك إضافة حقلين في جدول تفاصيل الفاتورة الأول :الكمية الواردة وتربط بنموذج فاتورة الشراء والثاني : الكمية الصادرة وتربط بنموذج فاتورة المبيعات بعدها يتم عمل استعلام تضع فيه جدولي الاصناف وتفاصيل الفاتورة وتجمع الكميات الصادرة والوارة وتضيف في الاستلام الرصيد = الكمية الواردة - الكمية الصادرة ومع فائق التحية والتقدير للجميع أيضا يتم إلغاء حقل الكمية المشتراه من جدول تفاصيل الفاتورة

دعنا نفكر خارج الصندوق قم بإنشاء نموذج وضع فيه رسالتك في حدث الوقت في نموذج الرسالة 10 ثواني يتم الإغلاق

الاستاذ / عبد اللطيف جزاك الله خيرا علي ما تقدمه حسب رغبة الأخوة الزملاء بعدم تكرار النسخة الاحتياطية وحفظ الجداول المرتبطة . إليكم هذا البرنامج : طبعاً هذا المرفق من الملتقى لكن زدت عليه بعض الامور التي تهمني في عملي وهي كالتالي : أولا : يمكن حفظ النسخة الاحتياطية المرتبطة والرئيسية بدون تكرار . ثانياً : بإمكانك حفظ النسخة الاحتياطية بالزمن ( ساعة _يومياً _ شهرياً _ سنوياً ) حسب ما تحب من الخيارات المتاحة . ثالثا : يمكن تشفير الواجهة المرتبطة وتغيير صيغة الملف حسب رغبتك . رابعاً : يمكن استعادة النسخة الاحتياطية المرتبة بأي وقت من الأوقات Backup.rar

جزاك الله خيراً تم تجربة الفكرة وهي تعمل بنجاح شكراً لك دائماً متألق

بالمرفق المثال والتفاصيل رابط شرح كيفية إنشاء نموذج على قوقل درايف ثم قم بتحويل النموذج إلى الرجوع إلى النماذج القديمة كما في الصورة . وضع رابط الاستمارة في نموذجك googleForms.mdb

أنت الأروع أخي m_fouad0003 وكلك ذوق

بالمثال يتضح المقال سأعمل نموذجاً وأضعه بين أيديكم بمشيئة الله تعالى ،،، انتظرونا ،،،،

هناك عدة طرق لإرسال ملاحظات العملاء لصاحب البرنامج. الطريقة الأولى : تستطيع ‏إضافة متصفح إنترنت في نموذج ‏ثم ربطه بنماذج Google Drive والتأكد من الاتصال بالانترنت الطريقة الثانية : عن طريق الإيميل كما ارسلت لك سابقا بدون أوت لوك “cdo” ضع الإيميل وكلمة المرور الخاصة واجعل إيميل المرسل إليه هو إيميلك الثابت لا يتغيير ولكن غير في اسم المرسل وجعله اسم جهة العميل

تابع هذا الموضوع لعله يفيدك

=Sum([المبلغ الكلي])-Sum([المبلغ المتبقي]) جرب هذه الدالة في مربع النص مثلاً "المبلغ الإجمالي"

قبل كودك ضع هذا السطر "On Error Resume Next" فيصبح الكود بالكامل هكذا On Error Resume Next DoCmd.SendObject acSendReport, "Report1", acFormatPDF, [ff], "" أو طريقة اصطياد رقم الخطأ كما في المشاركة السابقة لأستاذنا الجليل جعفر private sub cmd_click() on error goto err_cmd_click DoCmd.SendObject acSendReport, "Report1", acFormatPDF, [ff], "" exit_cmd_click: exit sub err_cmd_click: if err.number=3314 then msgbox "هنا تضع صيغة رسالتك" resume exit_cmd_click else msgbox err.number & vbcrlf & err.description endif end sub لا تنس أن تضع رقم الخطأ الذي ظهر لك بدلاً من الرقم 3314 if err.number=3314 then وتضع رسالة "تم إلغاء عملية الإرسال" msgbox "هنا تضع صيغة رسالتك"

اعتقد نفسها

‏شاهد هذا الموضوع أو استخدم هذا الكود On Error Resume Next

استخدم في مربع نص المبلغ الإجمالي Sum([المبلغ الكلي])

السلام عليكم أريد كود أو طريقة لتوليد تواريخ بين فترتين ليومي الخميس والجمعة لمدة سنة . بالمرفق مثال من منتدى اكسل يقوم بتوليد تواريخ بين فترتين بدون استثناء أيام معينة المطلوب هل يمكن تحويل هذا المثال إلى اكسس مع تكرار فقط يومين في الأسبوع مثل يوم الخميس والجمعة ويفضل أن يكون التاريخ هجري . WeekdayCount.rar

شكراً لك أخي ابو ياسين المشولي لقد أضفت طريقة لإضافة واستبدال جميع نماذج قاعدة البيانات الخارجية وأضع هذا المرفق ليستفيد منه أعضاء هذا المنتدى العامر الفكرة هي : تحديث قاعدة بياناتك لدى العميل واستبدال بعض النماذج وتحديثها وإضافة الجديد . نتمى أن يعجب الجميع UPForm.rar

بفضل من الله ثم جوابكم تم حل المشكلة باقي الطلب : ‏إذا كان لدي مجموعة نماذج في القاعدة أريد أن أضيفها جميعا و يستثني النموذج الحالي ما الحل ؟

استفسار الكود يعمل بنجاح لكن عندما يتم إقفال الوحدات النمطية "VBA" بكلمة مرور تخرج رسالة خطأ رقم 3011 وعند فتح الوحدة تختفي ويعمل كل شيء بنجاح. المطلوب : ‏السؤال كيف نتغلب على هذه الرسالة ويعمل الكود بنجاح أثناء وضع كلمة المرور ، ‏حتى لا يستطيع العملاء بالاطلاع على الأكواد والكلمات السرية وشكرا لكم

وهذا https://www.youtube.com/playlist?list=PLof3yw6ZFPFgJ64ioThh8IR_X9Rc6i0Zk

إبداعات متتالية فشكرا بحجم السماء لشخصك الكريم المتألق

شكراً لك أخي ابو ياسين المشولي على الرد الجميل والكود يعمل بنجاح . لكن يتم فتح القاعدة ولم تغلق والمطلوب الثاني : إذا كان لدي مجموع نماذج هل أكرر الكود مرة أخرى أو يتم إضافة شيء ما وشكراً

بالمرفق تجارب حاولت لكن لم تنجح Dim App As Access.Application, strPath As String Set App = New Access.Application strPath = Application.CurrentProject.Path & "\AlWathiq.accdb" 'DoCmd.TransferDatabase acExport, "Microsoft Access", strPath, acForm, "Form2", "Form2", False Dim strAccessExe As String, strDB As String 'Define as Static so the instance of Access 'doesn't close when the procedure ends. Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String 'The path and filename of the DB to open. strDbName = GetDBDir & strPath Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123") acc.OpenCurrentDatabase strDbName acc.RunCommand acCmdAppMaximize 'DoCmd.TransferDatabase acExport, "Microsoft Access", strPath, acForm, "Form2", "Form2", False db.Close Set db = Nothing 'With App ' .DoCmd.RunCommand acCmdAppMinimize ' .OpenCurrentDatabase strPath, , "123" ' .DoCmd.Maximize ' .Visible = True 'End With 'Set App = Nothing أطمع في مساعدة أستاذي الكبير جعفر 12.accdb