jjafferr

وعليكم السلام ورحمة الله وبركاته اختي ، انا لست من مشجعي حفظ المرفق في الجدول ، لذلك لا املك خبرة كافية في هذا الموضوع ، لذا ، بحثت ووجدت مثال ، وقمت بتعديل المثال ليناسب مع طلبك الكود التالي به وحدتان نمطيتان: الاولى: CopyAttachment (الوحدة النمطية الاصلية) ، لعمل نسخة من المرفق الى حقل في سجل جديد آخر ، وهكذا يستعمل: ومثلا نريد نسخ المرفق في الحقل fld_1 في الجدول tbl_1 ، من السجل الذي Emp=25 (هذا الحقل غير الزامي ، فيمكن تجاهله وتركه فارغا) ، الى الحقل fld_2 في tbl_2 ، call CopyAttachment("tbl_1", "fld_1", _ "tbl_2", "fld_2", _ "Emp=25") . الثانية: UpdateAttachment (الوحدة النمطية التي عدلت عليها) ، لتحديث حقل موجود اصلا ، ووهكذا يستعمل: ومثلا نريد نسخ المرفق في الحقل fld_1 في الجدول tbl_1 ، من السجل الذي Emp=25 ، وتحديث الحقل fld_2 في tbl_2 ، الى السجل الذي Emp=30 " call UpdateAttachment("tbl_1", "fld_1", _ "tbl_2", "fld_2", _ "Emp=25", "Emp=30") . والوحدتان النمطيتان هما: Option Compare Database 'from 'http://www.access-programmers.co.uk/forums/showpost.php?p=1465813&postcount=3 ' Public Sub CopyAttachment(ByVal strTableSource As String, _ ByVal strSourceAttachmentField As String, _ ByVal strTableTarget As String, _ ByVal strTargetAttachmentField As String, _ Optional ByVal strCondition As String = "") Dim rstFrom As DAO.Recordset2 Dim rstTo As DAO.Recordset2 Dim rstMVF As DAO.Recordset2 Dim rstMVT As DAO.Recordset2 Dim strSQL As String Dim db As DAO.Database strSQL = "SELECT * FROM " & strTableSource Set db = CurrentDb If strCondition <> "" Then strSQL = strSQL & " WHERE " & strCondition End If Set rstFrom = db.OpenRecordset(strSQL, dbOpenDynaset) Set rstTo = db.OpenRecordset(strTableTarget, dbOpenDynaset) Do While rstFrom.EOF = False rstTo.AddNew 'rstTo!Description = rstFrom![Description] Set rstMVF = rstFrom(strSourceAttachmentField).Value Set rstMVT = rstTo(strTargetAttachmentField).Value ' Copy all the attachment in the field (attachment datatype) Do While rstMVF.EOF = False rstMVT.AddNew rstMVT!FileData = rstMVF!FileData rstMVT!FileName = rstMVF!FileName '********************************* ' below fields are not updateable ' 'rstMVT!FileFlags = rstMVF!FileFlags 'rstMVT!FileTimeStamp = rstMVF!FileTimeStamp 'rstMVT!FileType = rstMVF!FileType 'rstMVT!FileURL = rstMVF!FileURL ' '********************************* rstMVT.Update rstMVF.MoveNext Loop rstMVF.Close rstMVT.Close Set rstMVF = Nothing Set rstMVT = Nothing rstTo.Update rstFrom.MoveNext Loop rstFrom.Close rstTo.Close Set rstFrom = Nothing Set rstTo = Nothing Set db = Nothing End Sub ' 'modified by jjafferr to include a condition for both source and destination tables '04-01-2017 ' Public Sub UpdateAttachment(ByVal strTableSource As String, _ ByVal strSourceAttachmentField As String, _ ByVal strTableTarget As String, _ ByVal strTargetAttachmentField As String, _ ByVal strCondition_s As String, _ ByVal strCondition_d As String) Dim rstFrom As DAO.Recordset2 Dim rstTo As DAO.Recordset2 Dim rstMVF As DAO.Recordset2 Dim rstMVT As DAO.Recordset2 Dim strSQL_Source As String Dim strSQL_destination As String Dim db As DAO.Database strSQL_Source = "SELECT * FROM " & strTableSource strSQL_destination = "SELECT * FROM " & strTableTarget Set db = CurrentDb 'If strCondition <> "" Then strSQL_Source = strSQL_Source & " WHERE " & strCondition_s strSQL_destination = strSQL_destination & " WHERE " & strCondition_d 'End If Set rstFrom = db.OpenRecordset(strSQL_Source, dbOpenDynaset) Set rstTo = db.OpenRecordset(strSQL_destination, dbOpenDynaset) Do While rstFrom.EOF = False rstTo.Edit 'rstTo!Description = rstFrom![Description] Set rstMVF = rstFrom(strSourceAttachmentField).Value Set rstMVT = rstTo(strTargetAttachmentField).Value ' Copy all the attachment in the field (attachment datatype) Do While rstMVF.EOF = False rstMVT.AddNew rstMVT!FileData = rstMVF!FileData rstMVT!FileName = rstMVF!FileName '********************************* ' below fields are not updateable ' 'rstMVT!FileFlags = rstMVF!FileFlags 'rstMVT!FileTimeStamp = rstMVF!FileTimeStamp 'rstMVT!FileType = rstMVF!FileType 'rstMVT!FileURL = rstMVF!FileURL ' '********************************* rstMVT.Update rstMVF.MoveNext Loop rstMVF.Close rstMVT.Close Set rstMVF = Nothing Set rstMVT = Nothing rstTo.Update rstFrom.MoveNext Loop rstFrom.Close rstTo.Close Set rstFrom = Nothing Set rstTo = Nothing Set db = Nothing End Sub . جعفر 522.نقل نسخة.accdb.zip

عفوا ، لوسمحت توضح اكثر ، وبما اننا عندنا المرفق ، فاخبرني برقم الصفحة من التقرير ، ووو ، ورجاء بالتفصيل جعفر

تفضل انا غيّرت اسماء الحقول التالية كما هو باللون الاحمر: . والكود التالي يقوم بالعمل المطلوب Option Compare Database 'have the value of show_Footer availabe, always in the Report Private show_Footer As Integer 'if we have the GroupFooter visible, we turn PageFooter items invisible Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer) show_Footer = 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If show_Footer = 1 Then Me.lbl_School_Footer.Visible = False Me.lbl_2.Visible = False show_Footer = 0 Else Me.lbl_School_Footer.Visible = True Me.lbl_2.Visible = True End If End Sub . والنتيجة . جعفر 521.Sheet.accdb.zip

اذا تحذف تذييل المجموعة ، فتذييل الصفحة يظهر لك في كل صفحة ، هل هذا الحل مقبول؟ جعفر

اذا سمحت ترفق جزء من قاعدة بياناتك ، الجزء المطلوب مع بعض البيانات ، ومثال فيما تريد من برنامجك ، حتى نحاول ان نساعدك جعفر

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

هلا والله جعفر

تفضل Private Sub Nemper_AfterUpdate() Me.subform!sn = DLookup("[sn]", "qry_Count") End Sub جعفر

هممم الظاهر اسلاكي تشابكت في بعضها البعض ، وارفقت الملف الخطأ مع ان الشرح كان كافي تفضل الملف الصحيح جعفر 520addcountForm.zip

وعليكم السلام تفضل: . . اما اذا اردت ان تظهر قيمة واحدة ، فتستطيع عمل: . والنتيجة . جعفر 520.addcountForm.rar.zip

السلام عليكم اليك هذه الروابط واقرأ الرابط التالي لآخره ، ثم انتقل الى الرابط الذي به . جعفر

السلام عليكم اليك هذه الروابط واقرأ الرابط التالي لآخره ، ثم انتقل الى الرابط الذي به . جعفر

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

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

السلام عليكم أخي محمد سلامة المرفق الاخير تم تعديله ليكون جاهز للخطوة التالية ، خطوة السنة انظر في الكود المرفق . حاليا نستخدم السطر رقم 2 ، بينما نستطيع تغيير مسميات المرفق كما نشاء ، مثلا: كود السطر 1 ، يضيف الاسم الاصلي للمرفق ، الى اسم المرفق ، بينما اذا اردت ان تضيف السنة الى اسم المرفق ، فكل الذي عليك عمله هو اضافة كود السنة الى السطر رقم 1 او 2 year(date()) او Year(now()) هكذا في اول اسم المرفق New_File = year(now()) & ".At." & Me.id_m & "." & i & "_" & File_Name او في آخر اسم المرفق New_File = "At_" & Me.id_m & "_" & i + RC & year(now()) & "." & FileExt . جعفر

وعليكم السلام انا على الوندوز 10 ، والامتداد accdr شغال عندي جعفر

السلام عليكم أخوي وائل هل هذا الذي كنت تريده!! جعفر

شكرا جزيلا على الشرح الواضح

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

وين العمليات هذه!! رجاء اعطني مثال واضح بالارقام واسماء الحقول

وعليكم السلام اخوي بدر اعتقد اني توصلت الى شئ ، وما ادري اذا هذا قصدك !! في جدول الادوية tbl_Drugs ، عندك حقلي Bottle_ml و Bottle_mg ، فهل تريد مضروب هذين الحقلين تكون نتيجته للحقل Frq_Pres في النموذج الفرعي؟ جعفر

السلام عليكم اخوي بدر الظاهر اننا ما نتكلم عن نفس الشئ!! انت لما تعمل دبل كليك على الدواء ، فانه ينتقل الى النموذج الفرعي ، والحقل المحسوب Frq_Pres موجود الان (حسب مرفقي السابق) في النموذج الفرعي (وهو حقل في الجدول) ، وتلقائيا بياناته تدخل الجدول ، ولكنه لا توجد فيه بيانات عند الدبل كليك !! واللي كنت شايفه من عملك السابق ، ان نتيجة هذا الحقل هو ضرب الحقلين Bottle_ml و Bottle_mg ، ولكن عند عملك الدبل كليك ، هذه الحقول فارغة ، وعند ادخالك البيانات فيها ، فيتم ادخال هذه البيانات في الحقل Frq_Pres . السؤال هنا ، وصفك للدبل كليك ، وادخال البيانات المحسوبة في الحقل Frq_Pres غير واضحة !! جعفر

السلام عليكم أخي محمد كل سنه وانت بخير ان شاء الله انا جربت المرفق ، وحسب تجربتي كُله تمام ، حيث يحفظ الملفات بالتنسيق التالي ، مثلا: At_7_1.jpg At_7_2.doc ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة). جعفر 207.4.m.salama.accdb.zip