ابوخليل

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

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

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

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

الحمد لله

تأكد من نقل هذا الفنكشن الى برنامجك

كل مرة امثلتك تتغير يوجد اخطاء برمجية كثيرة المهم اللي انت تريده حققته لك .. كلها تذهب ضمن بدي الرسالة افتح المثال وجرب ارسل وشوف بريدك تجرية11.rar

شكرا ابو احمد .. تكثر الحاجة لمثله

البلد : السودان .. ومعك حق انا غفلت عن الاسم ابن جبلة اذا انت يمني او سوري ، لان بلدة جبلة في اليمن وفي سوريا بالنسبة لمشكلتك اذا بتلغي شرط الفترة جرب تكتفي بحقلين فقط مفاتيح في الجدول

ومشاركة مع اخي موسى يتم تعريف متغير عام .. ويتم تغيير قيمة المتغير من النموذج عند فتح التقرير If hedAPage = 1 Then Me.PageHeaderSection.Visible = False Me.PageFooterSection.Visible = False End If اخي موسى لاحظ اننا كنا نعمل على الاجابة في الوقت نفسه Database4.accdb

تأكد يا زول ، انت ما جربتها الحقول الثلاث : اسم الطالب / السنة الدراسية / الفترة ، مفاتيح مرتبطة مع بعض يستحيل الحاق سجل مشابه للحقول الثلاث .

واذا اردت تقرأ التاريخ من اليمين يصبح هكذا format([dateFiled];"yyyy-mm")

format([dateFiled];"mm-yyyy")

للفائدة هذا مثال لتطبيق الحل sum.accdb

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

عليكم السلام يمكنك استخدام استعلام توحيد كمصدر لبيانات التقرير انظر مصدر بيانات التقرير في المرفق المعدل 33.accdb

كما وضحت لك subject ( الموضوع ) مكرر ثلاث مرات غالبا الرسالة تشتمل على التالي : من : بريد المرسل الى : بريد المرسل اليه الموضوع : نص الرسالة : الموضوع سيصبح هكذا : .subject = "شهادة / مدرسة المستقبل الخاصة لغات" .subject = Me.myname----- احذف هذا .subject = Me.sub ------ احذف هذا ويمكن جعل اسم المدرسة هي قيمة الحقل Me.myname هكذا : .subject = "شهادة" & " " & "/" & " " & Me.myname

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

المرفق تم تحزيمه ويحتاج تنصيب على الجهاز اذا برنامجك اكسس ، ارفق قاعدة البيانات فقط ، ويكفي ان يوجد بها كائنات حسب حاجتك فقط

قيمة الحقل myname معروف ويظهر داخل الكود = مدارس المستقبل الخاصة لغات يبدو لديك خلل بتكرار subject حيث يتم اخذ آخر قيمة وهي = me.sub

الضبط ينبع من الجداول اولا الجدول الاساسي لا يوجد فيه حقل للفترة لذا اضفت الحقل الحل هو جعل الحقول الثلاث مفاتيح بحيث اذا تساوت القيمة يمنع الالحاق ( رقم الملف / العام الدراسي / الفترة ) انظر المرفق وشغل الاستعلام ثم شغلة مرة اخرى ثم غير في واحد من السجلات ثم شغل الاستعلام وانظر النتيجة استعلام الحاق بشروط دون تكرار2.rar

فعلا انا اعمل الآن لارسال شهادات حلقات تحفيظ الى اولياء الامور عبر الواتس توقفت عند ارسال التقرير (الشهادة) ، وما زلت احاول اذا جد جديد لدي وتوصلت الى الحل وضعته لك هنا او لعل احد الاخوة لديه الحل فنستفيد منه جميعا

شكرا على المعلومة على كلامك يفهم انها لا توجد في اوفيس 13 او 10 او 7 او القديم النديم 2003 .. الاخير هذا انا متأكد انها غير موجودة