ابوخليل

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

استاذ @الحلبي ممكن نعرف ما الفرق بين مرفق الاستاذ @ازهر عبد العزيز ومرفق الاستاذ @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

لم افهم قصدك ولكن هذه الطريقة اسرع وافضل تفضل DoCmd.RunSQL "INSERT INTO Table1 ( coud, nam, periode ) SELECT Table2.coud, Table2.nam, Table2.periode FROM Table2" يجب ان تحتاط لعملية التكرار لأن كل ضغطة زر سوف يعيد الالحاق مرة اخرى يجب ان يكون ضمن الجدول حقل فريد لا يمكن تكراره ينبني عليه عمل شرط copy table (1).accdb

Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close End Sub

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

شوف الموضوع هذا تجد فيه حاجتك ، سواء تريد المجلد الاول او الثاني ...

Right(a, Len(a) - InStrRev(a, "\")) تحديد اسم المرفق.rar

نسيت شيئا هذا الكود يوضع في اعلى الكود السابق تحت المتغيرات بالضبط strSQL = "INSERT INTO tblNewTable (RecordID, Field1) " _ & " SELECT RecordID, Field1 FROM tblOldTable" db.Execute strSQL, dbFailOnError وايضا كود لحذف الجدول الجديد يوضع قبل هذا ... عذرا احبتي .. التوجيه لأخوتي المبتدئين ..

شكرا استاذ موسى على المرفق الجميل جزاك الله خيرا قمت باستلال الزبدة منه .. لكونها هنا ابقى واقرب للتناول On Error GoTo errHandler Dim rs1 As DAO.Recordset 'Table with attachments to be imported Dim rs2 As DAO.Recordset 'Table to import attachments into Dim rs3 As DAO.Recordset2 'Attachments to be imported Dim rs4 As DAO.Recordset2 'Recordset to accept the new attachments Dim strSQL As String 'Open table with attachments strSQL = "SELECT RecordID, Attachments FROM tblOldTable WHERE Attachments.FileName Is Not Null ORDER BY RecordID" Set rs1 = db.OpenRecordset(strSQL, dbOpenSnapshot) 'Loop through all the records to be imported Do While Not rs1.EOF 'Open table to be appended strSQL = "SELECT RecordID, Attachments FROM tblNewTable WHERE RecordID=" & rs1!recordid Set rs2 = db.OpenRecordset(strSQL, dbOpenDynaset) 'Recordsets for the attachment fields Set rs3 = rs1!Attachments.Value Set rs4 = rs2!Attachments.Value 'Table to be appended must be in edit mode rs2.Edit 'Add all new attachments (Note: Access automatically adds the file type) Do While Not rs3.EOF rs4.AddNew rs4!FileData = rs3!FileData rs4!FileName = rs3!FileName rs4.Update rs3.MoveNext Loop 'Update parent record rs2.Update 'Go to next record with attachment to import rs1.MoveNext Loop 'Refresh new table subform Me.frmNewAttachment.Requery errExit: 'Cleanup rs2.Close rs1.Close Set rs4 = Nothing Set rs3 = Nothing Set rs2 = Nothing Set rs1 = Nothing Exit Sub errHandler: MsgBox Err.Number & ": " & Err.Description Resume errExit

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