jjafferr

حياك الله جعفر

موجود في الكود غيّر المسار في السطر الاول ، واحذف السطر الثاني: 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" جعفر

تفضل هذا الكود: Private Sub رقم_الحافظه_DblClick(Cancel As Integer) 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" File_Name = Me.رقم_الحافظه & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "File not found." End If End Sub جعفر New Microsoft Office Access Application.zip

تفضل حقل الرتبة ، وبدون رؤساء الورش: . جعفر 374.8A13.accdb.zip

اذا بتتوقف عن الاسئلة ، سنطلب من المنتدى ان يُغلق ، فالله يخليك واصل اسئلتك ضع هذا الكود في الحدث الحالي للنموذج الرئيسي: Private Sub Form_Current() If Me.[مصروف Query subform].Form.RecordsetClone.RecordCount = Then MsgBox "No Records" End If End Sub للعلم ، الكود فيه صفر ، ولكنه لسبب ما ، لا يظهر: RecordCount =0 Then جعفر

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

وعليكم السلام نعم ممكن ، تطبع التقرير بالصيغة اللي تراها مناسبة ، pdf او Excel او Rtf ، وتحفظها على الكمبيوتر ، ويمكنك ارفاق هذا/هذه الملفات بالايميل بعدة طرق ، والرابط هذا فيه طريقتين ، Gmail و Hotmail: جعفر

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

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

كده الموضوع اصبح جامد أوي واشمل بكثير من المتوقع جعفر

تفضل هذا النموذج ، بزر استيراد بيانات اول صفحة ، وزر حفظ البيانات في الاكسل: والكود (لاحظ اسم ومسار ملف الاكسل ، في الحدثين): Option Compare Database Dim ExcelApp As Object 'Excel.Application Dim WkBk As Object 'Excel.Workbook Private Sub cmd_Import_From_Excel_Click() File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls" Set ExcelApp = CreateObject("Excel.Application") Set WkBk = ExcelApp.Workbooks.Open(FileName:=File_Path) 'With WkBk.Sheets("input data") With WkBk.Sheets(1) Me.Control_No = .Range("B2").Value Me.SN = .Range("B3").Value Me.DATE = .Range("B4").Value Me.TS_Name = .Range("B5").Value Me.Component_PN = .Range("B7").Value Me.Description = .Range("B8").Value Me.JIC_NO = .Range("B10").Value Me.JIC_Rev_NO = .Range("B11").Value Me.JIC_Rev_Date = .Range("B12").Value Me.CMM_JIC_Approval = .Range("B13").Value Me.CMM = .Range("B14").Value End With If Not (ExcelApp Is Nothing) Then ExcelApp.Quit Set WkBk = Nothing Set ExcelApp = Nothing End Sub Private Sub cmd_Save_to_Excel_Click() File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls" Set ExcelApp = CreateObject("Excel.Application") Set WkBk = ExcelApp.Workbooks.Open(File_Path) ExcelApp.Application.Visible = False 'True 'With WkBk.Sheets("input data") With WkBk.Sheets(1) 'WkBk.Sheets(1).Range("B2").Value = Me.Control_No .Range("B2").Value = Me.Control_No .Range("B3").Value = Me.SN .Range("B4").Value = Me.DATE .Range("B5").Value = Me.TS_Name .Range("B7").Value = Me.Component_PN .Range("B8").Value = Me.Description .Range("B10").Value = Me.JIC_NO .Range("B11").Value = Me.JIC_Rev_NO .Range("B12").Value = Me.JIC_Rev_Date .Range("B13").Value = Me.CMM_JIC_Approval .Range("B14").Value = Me.CMM End With WkBk.Save WkBk.Close Set WkBk = Nothing Set ExcelApp = Nothing MsgBox "Done" End Sub 372.Database1.mdb.zip جعفر

نعم يمكن ، ولكن بطريقة غير مضمنه ، يعني نقرأ البيانات بزر ، ونحفظ البيانات بزر بس السؤال هو ، لماذا تريد ان تغير البيانات من الاكسس ؟ جعفر

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

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

اعطني دقائق وارد عليك ان شاء الله

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

عفوا ، هذا يُعتبر تدخل في اصل فكرة البرنامج ، والعقل المدبر للبرنامج يقدر يجيب عن هذا السؤال جعفر

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

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

وعليكم السلام ورحمة الله وبركاته عمل جميل ، بفكرة جديدة مستحدثة ، بارك الله فيك عندي ملاحظة واحدة: في بعض الدول الانترنت متقطّع ، فرأي ان تعمل جدول محلي وتجعله مصدر لبيانات النموذج ، بحيث معلومة التقييم يتم الاحتفاظ بها في قاعدة البيانات المحليه ، وعند الضغط على زر ارسال التقييم: أ- اذا تمت عملية ارسال البيانات ، فيتم حذف البيانات من الجدول المحلي ب- ولكن اذا لم يكن هناك انترنت: تخبر المستخدم بذلك ، بدل الرسالة الموجودة حاليا ، والتي لن يفهمها او يفهم ماالذي يجب القيام به ، وتخبره بأنه اذا لا يوجد انترنت الآن ، فانه يمكنه لاحقا ان يفتح النموذج وسيرى تقييمه في النموذج ، وما عليه إلا ان يضغط زر ارسال التقييم مرة ثانية جعفر

السلام عليكم تجربتي في التاريخ الهجري قليلة ، لهذا السبب عادة لا اتدخل في اسئلته افكر في طريقتين: الاولى: - اعمل حقل غير مضمن في احد النماذج الرئيسية ، وادخل فيه التاريخ الهجري كل يوم (يدويا او برمجيا ثم تصححه اذا شاء الامر) ، واجعل الاستعلام يقارن تاريخ الجدول ، بهذا التاريخ - ولكن قبل فتح الاستعلام ، يجب ان تخبر البرنامج انك تريد استخدام التاريخ الهجري للمقارنة والحساب ، وهنا الطريقة: http://www.officena.net/ib/topic/64763-التاريخ-الافتراضي-الهجري/?do=findComment&comment=421491 يعني: زر فتح الاستعلام سيكون: كود استعمال التاريخ الهجري (كما في الرابط اعلاه) كود فتح الاستعلام/التقرير كود إعادة التاريخ الى ميلادي (كما في الرابط اعلاه) الثانية: 1. هي ان نغير التاريخ الهجري الى ميلادي او العكس (عن طريق الكود في الاستعلام) : http://www.officena.net/ib/topic/56008-دالة-تحويل-التاريخ-الهجري-إلى-ميلادي/?do=findComment&comment=354428 او http://www.officena.net/ib/topic/36309-تحويل-التاريخ-الهجري-الى-ميلادي-وبالعكس/?do=findComment&comment=192182 ولو عندك تاريخ ام القرى ، فنستطيع استعمال: http://www.officena.net/ib/topic/59213-تحويل-التاريخ-الميلادي-الى-ام-القرى-هدية-وبطريقة-حصرية/?do=findComment&comment=378783 2. ونحن نعرف انه قد يكون هناك فرق عند تحويل تاريخ الجهاز الميلادي الى هجري ، والفرق يكون اقصاه 3 ايام ، لذا في الاستعلام وللمقارنة بين التواريخ ، لا تقارن يوم الجدول بيوم الجهاز المحول ، وانما قارن يوم التاريخ مع يوم الجهاز المحول +-3 ايام (يعني 3 ايام قبل تاريخ الجدول و3 ايام بعده) ، وطبعا تكون تعرف ان النتائج تقريبية وليست اكيدة قلت لك تجربتي مع التاريخ الهجري قليلة جعفر

اليك التعديلات: 1. عمل جدول خاص بالموظفين: . 2. تغيير جدول Maintb الى التالي: . الآن ، كل سجل يخص موظف واحد فقط ، وكلما اردت اضافة معلومات ، فيجب إضافة سجل/سجلات جديده للموظف حسب الحاجة من المهمات طبعا الآن يجب ان تغير في نموذج الادخال ، وعليه لازم نغير طريقة عمل النماذج اللي اشتغلنا عليها سابقا ، وكذلك التقرير. جعفر 368.Database1.mdb.zip

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

هل من الطبيعي ان جميع الاشخاص لديهم نفس هذه المعلومات التي في المربع الاحمر؟ والمعلومات المتغيرة فقط تلك التي في المربع الازرق؟ جعفر