ابوخليل

كذلك اذا تريد فحصها جملة فالافضل ان تعمل شريط تحميل يظهر خطوات التنفيذ اثناء العملية وينتهي بانتهاء العملية

عن طريق الاستعلام ممكن ولكن التنفيذ سيكون ثقيل جدا .. يعني حتنتظر اكثر من ما هو معمول الآن حد الاستعلام 20 الى 30 سجل وايضا يمكن من خلال النموذج وبدلا من عداد الوقت نستخدم دوارة على السجلات ولكن ان اردتها سريعة لا تتجاوز مثل ذلك فاختر ما يناسبك من اجل اطبق لك على مثالك

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

المثال شغال تمام 100%

انظر هنا

فعلا هذا ما يفعله مثالك المرفق المثال يعمل تمام اولا في النموذج اكتب اسم الملف الذي تريد جلبه من اجل تعيين id جديد . ويجب ان يكون التركيز على السجل نفسه ، والافضل يكون النموذج مفرد وليس مستمر

عليكم السلام ارفق ملفك لعل احد الاخوة يساعدك في استخراج الجداول

If Leb_1 = 81 or Leb_1 = 69 Then Me.Car_1.Enabled = True Me.Car_2.Enabled = False else Me.Car_1.Enabled = False Me.Car_2.Enabled = True End If

بسط الله لك رزقك وأنالك بر ولدك ,,,

استاذ @الحلبي ممكن نعرف ما الفرق بين مرفق الاستاذ @ازهر عبد العزيز ومرفق الاستاذ @Moosak

انت لم تعطني اجابة ، ما المشكلة هل عمل معك ام لا ؟ بعد ذلك ننظر في طلبك الجديد

هذا حل المتيسر من طلبك Private Sub pye_AfterUpdate() If Me.pye = -1 Then Me.pyeDate = Date Else Me.pyeDate = "" End If End Sub اما طلباتك الأخرى فالمنتدى بارك الله فيك للتعلم والبحث عن الحلول البرمجية كان المفترض ان يكون مثالك مكتمل ،، تعمل تقريرك داخل المثال كما تحب ان يظهر واذا صعب عليك تنفيذ شيء تعرضه هنا لمساعدتك هكذا تعلمنا print factur.accdb

ما المشكلة هنا المثال يعمل على اكمل وجه ، لا يتم اغلاق النموذج ما دمت تحرك الماوس .. اما اذا انتظرت 5 ثواني فسوف يغلق ،،، تستطيع زيادة الوقت بتغيير الرقم 5 في الكود الى 300 = خمس دقائق

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

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

حسب طلبك جرب انقل السطر داخل الدوارة For i = 0 To REC.RecordCount If MsgGo = 2 Then MsgGo = 1 MsgBox "::::::::::::::::::: ( Sending Failed ) :::::::::::::::::::" Exit Sub End If DoCmd.OpenForm "email3", acNormal '********* ' Debug.Print REC![email_c] SendEmaile (REC![Email_c]) '********* REC.MoveNext

نسأل الله الكريم لك الشفاء والعافية .. شفاء لا يغادر سقما

شكرا للمداخلة والمشاركة اخوي قاسم على الرحب والسعة انا غفلت عن مكان الحدث غير حدث الماوس الى تفصيل النموذج Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Integer Private Sub detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub اجعل تايمر النموذج في الخصائص / عند عداد الوقت = 1000 إغلاق تلقائي بعد مدة2.mdb

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

بالنسبة للصورتين الاخيرتين فهي بسبب الحماية في اوفيس ، يمكنك تخفيض امان الماكرو فتختفي هذه الرسائل اما الرسالة الاولى فيوجد طريقتين لتجاوز الخطأ الاولى : اذا انت متأكد ان الكود بسيط والخطأ منطقي مثلا عدم وجود بيانات في حقل وضعت له شرطا ونحو ذلك يمكن ان تضع هذا السطر في البداية اعلى الكود On Error Resume Next ووظيفة هذا السطر انه اذا وجد خطأ يقفز لما بعده ويكمل تنفيذ الاجراء الثانية : اذا الكود يشتمل على جمل برمجية كل واحدة منها احتمال يصدر الخطأ منها فيجب ان تضع العبارة التالية On Error GoTo ErrHandler '>>>>> الصق كودك هنا Exit_ErrHandler: Exit Sub ErrHandler: MsgBox Err.Description Resume Exit_ErrHandler والوظيفة هنا تدلك على سبب الخطأ احيانا عند عدم فهم مكان الخطأ لتشابه الأوامر اقوم بتعطيل هذه الوظيفة لأكتشف بنفسي مكان الخطأ لأن المحرر سوف يقف عليه

تفضل طريقة اخرى بكود مختلف Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Long ' ========== اختر الحدث المناسب لك =========== Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) i = 0 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub ' ============================================= Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub وهذا مثال تطبيق إغلاق تلقائي بعد مدة.mdb

اخي الكريم يرجى مراعاة قواعد المشاركة يجب افراد سؤالك الاخير بموضوع وعنوان جديد يخصه

لا يمكن لان التاريخ يشترك فيه اكثر من واحد يوجد حل وهو ان نمنع التكرار بشرط : الكود + التاريخ اسهل طريقة وهي مضمونة 100% هو ان تجعل الحقلين يشتركان في مفتاح الجدول اليك التعديل copy table2.accdb

سيصبح هكذا Dim a, werldr1, werldr2 As String a = Choose_File(FolderPath(Nz(Me.AttachmentPath, ""))) Dim fileName As String fileName = a Dim vPathSplitter As Variant vPathSplitter = Split(fileName, "\") werldr1 = (vPathSplitter(UBound(vPathSplitter) - 1)) werldr2 = (vPathSplitter(UBound(vPathSplitter) - 2)) If Nz(a, "") <> "" Then Me.AttachmentPath = werldr2 & "\" & werldr1 & "\" & Right(a, Len(a) - InStrRev(a, "\")) If Not IsNull([AttachmentPath]) Then MsgBox "تم إضاف اسم المرفق بنجاح", vbInformation, "إضافة مرفقات" Else MsgBox "عفواً لم يتم تحديد المرفقات", vbInformation, "لا يوجد مرفقات لهذه الموضوع" End If آمل ان تدرس الكود جيدا تحديد اسم المرفق2.rar