jjafferr

همممم ، الظاهر اني اكلم صاحب خبرة ، ومنخش ومستحي

هلا والله اخوي خالد 🙂

حياك الله اخوي احمد 🙂 جعفر

وعليكم السلام استاذ فايز 🙂 استعملت استعلامات الحاق لكل جدول ، وهذا مثال للجدول sheet2 ، وعن واستخدمت معيار طول المعلومة Len حتى افرز المعلومات الغير مطلوبة (المسميات) : والكود: Private Sub Browse_Click() ' open the widows filw dialog to select the Excel file With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls ; *.xlsx" '.Filters.Add "Excel Files", "*.csv" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.txtPath = .SelectedItems(1) End If End With End Sub Private Sub cmd_Selected_File_Click() ' import the Excel sheet '1 'Empty the temporary Table tabl1 CurrentDb.Execute ("Delete * From tabl1") '2 'import Sheets to table tabl1, one at a time Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = False strPathFile = Me.txtPath ' "C:\Filename.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "tabl1" '"tablename" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = vbNullString '"passwordtext" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing '3 ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" '4 'append the data using the proper query DoCmd.SetWarnings False DoCmd.OpenQuery "qry_" & lngCount DoCmd.SetWarnings True '5 'empty tbl_Sheets CurrentDb.Execute ("Delete * From tabl1") Next_lngCount: Next lngCount ' Delete the collection Set colWorksheets = Nothing ' Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile MsgBox "Done" End Sub جعفر 1232.From_Excel_to_Access.accdb.zip

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

الحمدلله الذي منّ على منتدانا بكوكبة من الشباب المعطاء ، يغبطنا بل ويحسدنا عليها الكثيرون 🙂 اخي محمد ، رجاء اكمل معروفك ، بتقديرك عمل الاعضاء اللذين ساعدوك ، بعمل Like لمشاركاتهم المفيدة: ثم اختار افضل مشاركة التي اعطتك الاجابة الصحيحة (وطبعا ليست مشاركتي ، لأنها كانت لحل مشكلة اخرى 🙂 ) : . جعفر

السلام عليكم 🙂 وكما تفضل اخوي فايز ، لا يوجد شيء اسمه جدول منبثق ، ولكن تستطيع عمل نموذج جدولي (واللي يشبه الجدول 100%) منبثق 🙂 جعفر

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

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

- انا كلما اشوف رسالة خطأ في OLE و عنصر ActiveX ، فغالبا المشكلة في اعدادات الوندوز : A problem occurred while Microsoft Access was communicating with the OLE server or ActiveX control https://www.officena.net/ib/topic/59481-استفسار-هام-بخصوص-اللغة-والبرمجة/?do=findComment&comment=381019 https://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/?do=findComment&comment=423014 جعفر

السلام عليكم ورحمة الله وبركاته احسن الله لك العزاء اخي الفاضل مجدي ، الله ان شاء الله يصبركم على فراقها. إنا لله وإنا اليه راجعون. جعفر

السلام عليكم 🙂 ولكن الرابط لم يكن للبرنامج من موقع الشركة او رابط للتنزيل فقط ، وإنما كان: جعفر

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

الظاهر ان اخوي ازهر بالفعل لقى المطلوب بالبحث 🙂 جعفر

وعليكم السلام 🙂 اخوي ازهر ، انت تعرف ان خاصية البحث في المنتدى ممكن تغنيك عن الكثير من الاجابات 🙂 جعفر

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف مخالف - يُغلق

وعليكم السلام 🙂 البرنامج مقتوح ، وليس فيه حماية 🙂 جعفر

استاذ جمال ، تحية إجلال لك على عملك الجميل ، وعلى تذليل الاكسس لظروف فايروس كورونا 🙂 وفي الواقع انا مررت على هذا الموضوع مرارا ، وجمعت مجموعة من مواضيع التوزيع في المنتدى ، وبدل ان تظل على كمبيوتري بدون فائدة ، قلت ارفقها هنا لتعم الفائدة 🙂 https://www.officena.net/ib/topic/43119-ادارة-المقرات-والمراكز-الامتحانية/ https://www.officena.net/ib/topic/84391-التوزيع-الآلى-للجدول-المدرسى/ https://www.officena.net/ib/topic/12488-طلب-مساعدة-في-عملية-توزيع-معقدة-نوعاً-ما/ https://www.officena.net/ib/topic/77918-مكتبة-الموقع-كود-توزيع-الفصول-أوتوماتيكيا/ https://www.officena.net/ib/topic/70736-التوزيع-الألي-لا-يعمل-كما-يجب/ https://www.officena.net/ib/topic/88422-توزيع-الملاحظين/ https://www.officena.net/ib/topic/99299-مطلوب-توزيع-ركاب-على-الحافلات جعفر

وعليكم السلام اخوي محمد 🙂 جميع العاملين في المستشفيات (وفي هذه الايام بالذات) هم اصحاب الفضل 🙂 عملت تغيير ، فبدل ان يكون عندك ارقام في النموذج ، قد تكون عندك حروف او كلمات وجُمل ، فالتغيير يشمل كل شيء الآن: . واصبح الكود: Option Compare Database Option Explicit Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) 'خطوة مؤقته لإخفاء جميع الكائنات ، وتحريكهم الى السطر العلوي 'Line 1 Me.lbl_11.Visible = False Me.lbl_12.Visible = False Me.lbl_13.Visible = False 'Line 2 Me.lbl_21.Visible = False 'اخفاء Me.lbl_21.Left = Me.lbl_11.Left 'مكانه من يسار التقرير Me.lbl_21.Top = Me.lbl_11.Top 'مكانه من علو التقرير Me.lbl_22.Visible = False Me.lbl_22.Left = Me.lbl_11.Left Me.lbl_22.Top = Me.lbl_11.Top Me.lbl_23.Visible = False Me.lbl_23.Left = Me.lbl_11.Left Me.lbl_23.Top = Me.lbl_11.Top 'Line 3 Me.lbl_31.Visible = False Me.lbl_31.Left = Me.lbl_11.Left Me.lbl_31.Top = Me.lbl_11.Top Me.lbl_32.Visible = False Me.lbl_32.Left = Me.lbl_11.Left Me.lbl_32.Top = Me.lbl_11.Top Me.lbl_33.Visible = False Me.lbl_33.Left = Me.lbl_11.Left Me.lbl_33.Top = Me.lbl_11.Top '----------------------------- Dim L As Integer 'بما ان الاختيار من النموذج عبارة حروف/كلمات 'فنعطي لكل منها رقم سطر If Forms!Form1!lst_Line = "A" Then L = 1 ElseIf Forms!Form1!lst_Line = "B" Then L = 2 ElseIf Forms!Form1!lst_Line = "C" Then L = 3 End If '----------------------------- 'اظهار السطر الصحيح ، وتحريكه الى مربعات السطر الاول Me("lbl_" & L & "1").Visible = True Me("lbl_" & L & "2").Visible = True Me("lbl_" & L & "3").Visible = True Me("lbl_" & L & "1").Left = Me.lbl_11.Left Me("lbl_" & L & "1").Top = Me.lbl_11.Top Me("lbl_" & L & "2").Left = Me.lbl_12.Left Me("lbl_" & L & "2").Top = Me.lbl_12.Top Me("lbl_" & L & "3").Left = Me.lbl_13.Left Me("lbl_" & L & "3").Top = Me.lbl_13.Top 'تغيير ارتفاع القسم في التقرير Me.ReportHeader.Height = Me.Label11.Height * 2 End Sub جعفر 1228.R_MultiHead.accdb.zip

العفو، تم تحديث المرفق ، وشكرا على التنبيه 🙂

اما انا ، وفي الدورات التي اعطيها ، فأنصح المشاركين بعدم الرجوع الى اليوتيوب ، لأن فيه وللأسف الشديد ، الكثير والكثير من المعلومات الغلط ، والمعلومات الغير كامله ووو ، ويكون من الصعب على المبتدئين التمييز بين هذه المعلومات ، فيقعون في المحظور !! وهذه المعلومة مثلها مثل اي معلومة اخرى ، يجب التحقق منها !! ولكن ، اي عمل/كود خطأ (وقد لا يكون خطأ ، وانما ليس الافضل) ، سواء في الكود او الماكرو او الاستعلام او النموذج او التقرير ، قد يعمل مشاكل في البرنامج مثل بطئ في العمل او عدم قيام الكود بعمله اصلا ، وهذا يصير حتى مع المحترفين 🙂 جعفر

وعليكم السلام 🙂 العفو اخي محمد ، ولكن قوانين المنتدى تسمح لك بسؤال في كل موضوع (مو مشروع في كل موضوع 🙂 ) 1. هذه ازرار السابق/اللاحق/السجل الجديد ، والاكسس يعملهم تلقائيا لك ، والمنتدى مليئ بأمثله له ، 2. ممكن ان تختار هذا السؤال حتى يساعدك الاعضاء ، 3. هذا زر والاكسس يعملهم تلقائيا لك ، 4. بالتعديل قصدك التعديل على الكميات ، وهذا له دخل في ادخال الكميات واخراجها في النموذج ، فلا علاقة له بتصميم التقرير . اذن ، السؤال الاصعب هو رقم 2 ، والامر راجع لك 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 رجاء مراجعة قوانين المنتدى ، حتى لا تتعرض مشاركتك للحذف : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا السؤال تكرر اكثر من مرة ، ومع انه نستخدم هذا الكود عادة في برامجنا ، إلا انه قليلا جدا !! فهل هذا واجب منزلي او مساق في الكلية/الجامعة ؟ ابحث في المنتدى وستجد المواضيع ان شاء الله 🙂 جعفر

للاسف ما اقدر اشوف الصورة ، ولكن جرب هاي مع مرفقك الاصل : . . جعفر Database.zip

وعليكم السلام 🙂 حيا الله اخوي محمد ، صار لنا زمن ما شفناك 🙂 نعمل الترقيم في النموذج : يمكن ترك الكائنات في مكانها في تصميم التقرير ، ولكن: نغير اسماء الحقول ، حتى يسهل علينا ، مثل lbl_11 و lbl_12 و lbl_13 للسطر الاول ، وطبعا نفس الترتيب للأسطر الاخرى ، نخفي الحقول الغير مطلوبة (في الكود) ، والحقول المطلوبة ، نعطيها موقع (ابعاد) حقول السطر الاول ، Top و Left (في الكود) ، ونعمل الكود في حدث "عند تنسيق" القسم Report Header : . Option Compare Database Option Explicit Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) 'خطوة مؤقته لإخفاء جميع الكائنات ، وتحريكهم الى السطر العلوي 'Line 1 Me.lbl_11.Visible = False Me.lbl_12.Visible = False Me.lbl_13.Visible = False 'Line 2 Me.lbl_21.Visible = False 'اخفاء Me.lbl_21.Left = Me.lbl_11.Left 'مكانه من يسار التقرير Me.lbl_21.Top = Me.lbl_11.Top 'مكانه من علو التقرير Me.lbl_22.Visible = False Me.lbl_22.Left = Me.lbl_11.Left Me.lbl_22.Top = Me.lbl_11.Top Me.lbl_23.Visible = False Me.lbl_23.Left = Me.lbl_11.Left Me.lbl_23.Top = Me.lbl_11.Top 'Line 3 Me.lbl_31.Visible = False Me.lbl_31.Left = Me.lbl_11.Left Me.lbl_31.Top = Me.lbl_11.Top Me.lbl_32.Visible = False Me.lbl_32.Left = Me.lbl_11.Left Me.lbl_32.Top = Me.lbl_11.Top Me.lbl_33.Visible = False Me.lbl_33.Left = Me.lbl_11.Left Me.lbl_33.Top = Me.lbl_11.Top '----------------------------- Dim L L = Forms!Form1!lst_Line 'نأخذ رقم السطر من النموذج ونختصره في المتغير L '----------------------------- 'اظهار السطر الصحيح ، وتحريكه الى مربعات السطر الاول Me("lbl_" & L & "1").Visible = True Me("lbl_" & L & "2").Visible = True Me("lbl_" & L & "3").Visible = True Me("lbl_" & L & "1").Left = Me.lbl_11.Left Me("lbl_" & L & "1").Top = Me.lbl_11.Top Me("lbl_" & L & "2").Left = Me.lbl_12.Left Me("lbl_" & L & "2").Top = Me.lbl_12.Top Me("lbl_" & L & "3").Left = Me.lbl_13.Left Me("lbl_" & L & "3").Top = Me.lbl_13.Top 'تغيير ارتفاع القسم في التقرير Me.ReportHeader.Height = Me.Label11.Height * 2 End Sub . والنتيجة : . جعفر 1228.R_MultiHead.accdb.zip