سعيد صواب

حياك الله اخي الكريم بالترتيب من خصائص النموذج .... بيانات ... تأمين السجلات ... اختر سجل محرر بالتوفيق

حياك الله اخي الكريم اعتذر منك اولا ... تفضل Me.fr = Me.Transfer.Column(1) Me.to = Me.Transfer.Column(2) Me.val = Me.Transfer.Column(3) بالتوفيق

حياك الله اخي الكريم اعمل نموذج للجدول tbl_effects وفي حدث بعد التحديث للحقل transfer ضع التالي Me.fr = Me.Transfer Me.to = Me.Transfer Me.val = Me.Transfer بالتوفيق

السلام عليكم .. ابو بسنت وتسنيم هذا هو الشرح بالتوفيق

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

السلام عليكم ورحمة الله وبركاته استخدم هذا الكود لإرسال ايميل عن طريق الأكسس احيان ترسل الرسائل في حينها واحيان تأخذ وقت طويل اكثر من الساعة لا أعلم هل المشكلة في اعدادات الاوت لوك .. ام ان هناك مشكلة في الكود === وهل هناك طريقة للإرسال بدون استخدام اوت لوك ... وجدت مواضيع في قوقل ولكنها لم تنجح . اتمنى من له تجربه حول الموضوع مشاركتي الموضوع ... وشكرا مقدما وهذا هو الكود Option Compare Database Option Explicit Private Sub ÃãÑ15_Click() Dim MyDB As Database Dim MyRS As Recordset Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim TheAddress As String Set MyDB = CurrentDb Set MyRS = MyDB.OpenRecordset("tbl11") MyRS.MoveFirst Set objOutlook = CreateObject("Outlook.Application") Do Until MyRS.EOF Set objOutlookMsg = objOutlook.CreateItem(olMailItem) TheAddress = MyRS![aemail] With objOutlookMsg Set objOutlookRecip = .Recipients.Add(TheAddress) objOutlookRecip.Type = olTo .subject = Forms!sentall!txtSubject .Body = Forms!sentall!txtBody For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve If Not objOutlookRecip.Resolve Then objOutlookMsg.Display End If Next .Send End With MyRS.MoveNext Loop Set objOutlookMsg = Nothing Set objOutlook = Nothing End Sub

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

عليكم السلام والرحمة جرب هذا السطر وقم بتغيير الحقل date الى مسمى اخر لأنه من الكلمات المحجوزة في المثال انا غيرته الى ddate DoCmd.RunSQL "DELETE leave.* FROM leave WHERE d IN ( SELECT ddate FROM record)" بالتوفيق

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

حياك الله استاذ رمهان وجميع الأخوان ما يخطر في بالي الآن هو ماورد في نصائحك انت واساتذتنا الكرام من خلال الموضوع بالنسبة للتطبيق فأنا حاضر لم تطرح فكرتك استاذ كرار

حياك الله استاذ رمهان كلامك كله على العين والرأس ومنطقي و 100% ... وافكار ممتازة . وانا اتبع نصائح خبرائنا الكرام في هذا الصرح الشامخ ومنهم انت استاذ رمهان. ولم اسأل الا لثقتي فيكم ============== ردي على الأخ كرار لا يعني ابدا ان ردك وكلامك لم يعجبني لاسمح الله او اني لم اقتنع به . لو كان كذلك لقلت لك في حينه .. ونحن اخوان ويجمعنا اكثر من سؤال وجواب في الأكسس او غيره. ================= ولكن وجدت السؤال فأجبت .... وهو فتح مجال لأفكار جديدة بالتوفيق جميعا

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

حياك الله اخي الكريم هنا طريقة اتمنى تساعدك بإستخدام التجميع في التقرير .. تظهر لك البيانات بشكل اسبوعي ... كل اسبوع على حده مع مجموع الصباحي والمسائي لكل اسبوع وبشكل عام. طبعا اعدادات بداية ونهاية الاسبوع تعتمد على اعدادات التاريخ في جهازك من اعدادات التقويم ... بالتوفيق Weekly.rar

مقدرين وقتك ومعذور جزاك الله خير استاذ رمهان

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

حياك الله ابو مصطفى من خصائص النموذج - تنسيق - الاتجاه اذا كان الاتجاه من اليمين الى اليسار ظلل جميع محتويات النموذج ctrl+a واسحبها الى اقصى النموذج جهة اليمين بعد ذلك اسحب نهاية النموذج من اليمين الى اقصى اليسار .. اذا كان الاتجاه العكس ... اعمل العكس ==================== هنا شرح على مثالك قم بنقل مربعات النص في اقصى يسار النموذج form1 لديك الى الوسط ثم قم بسحب النموذج من اليمين الى اقصى اليسار بالتوفيق

حياك الله استاذ محمد وزادك الله تواضعا وعلما وجهة نظري ان النقاش مازال في الحلقة الأولى ولم يتسع الى ابعد من ذلك . استاذ عبد الفتاح هذا المثال ولا اعتقد ان هذا المثال بغريب على استاذ مثلك !! بالتوفيق جميعا SQLdemo.rar

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

حياك الله اخي الكريم بالنسبة للأداة فلا حاجة لعمل قاعدة جديدة لها .. انا كنت اقصد مشروعك نفسه .. بالنسبة لل accdb فهي الآن تفتخ قمت بتعديل ان شاء الله يكون مناسب . عموما الآن جرب الأداة كما هي اضغط على agree واتبع الخطوات .. الله ييسر امرك FixBadAOIndexACCdb.rar

حياكم الله اخواني الكرام استاذ جعفر انا لا اقصد فتح الجدول بمعنى استخدامه فعليا للإضافة !!! اقصد ان يكون النموذج غير منضم بمعنى ليس مصدره الجدول unbound form استاذ عبد الفتاح الحكمة وهذا ما اعرفه وقابل للنقاش والتعديل كما اشرت سابقا 1- التحكم الكامل في ادخال السجلات الى القاعدة .. بدلا من الإدخال والتعديل على مصدر السجلات مباشرة . بمعنى عند التحقق من جميع البيانات يتم الحفظ ... ولكن بالنماذج المنضمة فأنت تضيف مباشرة الى الجدول . 2- عند استخدام القاعدة على الشبكة لأكثر من مستخدم .. يمنع حدوث التكرار .. او عدم حفظ السجل نتيجة التكرار ... كذلك عدم فتح مصدر السجلات كاملا مما يسبب بطء في عمل القاعدة. 3- نحن نريد ان نحفظ سجل جديد فقط ,, لماذا احضر جميع بيانات الجدول . المثال : DoCmd.RunSQL "insert into table1 (id,Nname,Age) values (txtId,txtNname,txtAge)" فكرة ممتازة جدا بارك الله فيك استاذ عبد الفتاح بالتوفيق للجميع

حياك الله لم افهم سؤالك هنا تعديل اذا كنت تقصد طريقة التقسيم والمشاركة فهي نفسها لجميع النسخ وهنا فيديو لشرح الطريقة . https://www.youtube.com/watch?v=3s9OI-6t8fM بالتوفيق

حياك الله اخي الكريم لم اجرب هذا الموضوع ولكني بحثت ووجدت لك بعض الحلول علها تفيدك 1- اعمل نسخة من القاعدة 2- اعمل ضغط واصلاح 3- قم بإنشاء قاعدة جديدة 4- انقل جميع محتويات القاعدة القديمة الى الجديدة عن طريق امر استيراد ========================= كذلك وجدت لك هذه الأداة لعمل اصلاح لمثل هذا الخطاء هذا رابط الموضوع http://datagnostics.com/dtips/fixaoindex.html الاداة في المرفقات جرب ووافنا بالنتيجة .. كذلك اتمنى ذكر طريقة استخدامك للقاعدة ... مشتركة ام على جهاز واحد مقسمة ام لا ... الخ حتى يتجنب اخوانك الوقوع في مثل الخطاء . بالتوفيق FixBadAOIndex.rar

حياك الله اخي الكريم ضع القاعدة الخلفية على احد الأجهزة الثلاثة طبعا هنا الواجهات ستكون على الثلاثة اجهزة ... بعد ذلك نربط الواجهات بالقاعدة الخلفية .. وقبل ذلك كله يجب ان يكون هناك شبكة محلية .... هنا فيديو يشرح طريقة عمل شبكة محلية https://www.youtube.com/watch?v=Kuk9nt021b0 بالتوفيق

حياك الله اخي الكريم ممكن توضح اكثر .. ايش الشرط اللي ممكن اعتمد عليه في الحذف .. بالتوفيق

حياكم الله اخواني اختنا الكريمه جربي انشاء نموذج بإستخدام معالج النماذج في اكسس 2013 ولا حظي التنسيقات التي ستظهر لك جربي ووافينا بالنتيجة .