jjafferr

هلا احوي ابونادر ما قصدك بـ " تختفي علامة القوائم المنسدلة " ، يعني القائمة اللي تطلع لما تضغط بالزر اليمين؟ جعفر

وعليكم السلام السبب ظاهرا ، ان الاسطر الاطول ، اضافت vbcrlf او vblf (يعني انتقل للسطر التالي) في نهاية كل سطر العلاج ، احد اهم طرق العلاج ، هو معرفة السبب ، والذي هو في برنامجك ، ومثل ما قال اخي ابوعبدالله ، محتاجين نشوف برنامجك بينما ، اذا تركنا كل شئ كما هو ، واحنا نعرف اسم ومسار الملف ، فممكن نضع الكود التالي ، بعد عملية تصدير txt (طبعا لازم تغير اسماء الملفات ومسارهم) : Private Sub cmd_Clean_Click() File_From = Application.CurrentProject.Path & "\377.txt" File_To = Application.CurrentProject.Path & "\377_2.txt" Dim TextLine Open File_From For Input As #1 'open file for input Open File_To For Output As #2 'open file for output Do While Not EOF(1) 'Loop until end of file. Line Input #1, TextLine 'Read a line into variable. If Len(TextLine) > 5 Then 'if the line is NOT empty, write it to File_To Print #2, TextLine End If Loop Close #1 'Close file. Close #2 End Sub ومثل ما قال ابوعبدالله: (ويادار ما دخلك شر) جعفر

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

موجود في الكود غيّر المسار في السطر الاول ، واحذف السطر الثاني: '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