jjafferr

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

وبقية النصائح !! لازم اكتب قائمتي هنا ، واكتب مشاكل الاعضاء اللي صادفها 🙂 الحمدلله ، مشكلة واحدة وطاحت عنك ، شد حيلك في مراعات بقية الامور اللي بكتبها على قائمتي ان شاء الله 🙂 جعفر

وعليكم السلام 🙂 التوقيع في تقرير الاكسس ، معناه انك يكون عندك صورة من هذا التوقيع ، اولا ، صيغة صورة التوقيع : 1. اذا كانت الطباعة ستكون على اوراق بيضاء ، فيمكن ان تكون الصورة بأي صيغة ، سواء jpg ، bmp ، png 2. اما اذا كانت الطباعة ستكون على اوراق ملونة ، فيجب ان يكون التوقيع على خلفية شفافة ، ويمكن استخدام الصور بصيغة png ، وهذه العملية تحتاج عدة خطوات لعملها في الاكسس ، وهنا مثال: ثانيا ، مكان حفظ صورة التوقيع ، هناك طريقتين لحفظ الصور : أ. إما في مجلد في الكمبيوتر ، والخصوصية والسرية تعتمد اذا كانت البيانات في سيرفر ، ولا احد يوصل لمجلد الصور إلا الشخص المسؤول عن البرنامج ، ب. وإما في قاعدة بيانات ، ويمكن ان تكون في قاعدة بيانات خاصة للصور ، ومختلفة عن قاعدة البيانات التي بها المعلومات الاخرى ، مما يتيح خصوصية وسرية اكثر . ولكن اذا كان عدد الصور كبير جدا ، فسيجعل حجم البرنامج كبير. نعم بإمكانك حفظ الصور بصيغة وطريقة (1 اعلاه) ، ولكن لا اعتقد انه يمكنك حفظ الصور للطريقة (2 اعلاه). جعفر

1. احذف العلاقات ، كانت غلط ، 2. اعمل الاستعلام التالي: وبعض نتائجه . الآن استعمل هذا الاستعلام كمصدر بيانات للتقرير الجديد rpt_Sheet2 ، والنتيجة : . اكمل العمل لباقي الجداول 🙂 جعفر

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

يعني بدل 0723 شو تريد يظهر ؟

اعذرني اخي طاهر ، فكل حرف ونقطة وفاصلة وكلمة وأمر ، موجودين في الكود ، لهم اهميتهم ، وحذف اي منهم يعمل خلل في الكود ولا يجعله يعمل بالطريقة الصحيحة !!

وعليكم السلام 🙂 اعطنا مثال لوسمجت من مرفقك 🙂 جعفر

المعذرة ، نسخت والصقت بدون ملاحظت اسم الجدول الصح: DoCmd.RunSQL "Delete * From Sheet" & lngCount او CurrentDb.Execute ("Delete * From " & "Sheet" & lngCount)

جرب هذا السطر بدلا عن السابق: docmd.openquery "Delete * From qry_" & lngCount جعفر

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

ويمكن يفيدك هذا الرابط جعفر

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

السلام عليكم 🙂 لأوراق الاكسل 2-6 هذا هو قصدي في ملاحظتي في مشاركتي السابقة ، يعني برنامجي يعطيك اللي تريده ، وبعمل التعديل يشتغل برنامج اخوي Kanory مثل برنامجي : جرب برنامجي وشوف 🙂 اما الورقة الاولى ، فيمكنك في الاستعلام رقم 1 ، تحذف العمود اللي فيه f2 . اما حذف بيانات الجدول قبل اضافة البيانات الجديدة ، فأضف السطر الثاني فقط الى الكود (هذه الاسطر من كود برنامجي ، انا اضفت لها السطر الثاني) : DoCmd.SetWarnings False CurrentDb.Execute ("Delete * From " & "qry_" & lngCount) DoCmd.OpenQuery "qry_" & lngCount DoCmd.SetWarnings True جعفر

السلام عليكم 🙂 ملاحظتك خلتني اشوف شو السالفة 🙂 انا عادة ما احب اعمل اي تغيير على جداول المبرمج ، وخاصة في المنتدى ، لأنه معظم البرامج التي يرفقوها تكون جزء من كل ، فأي تغيير قد يؤثر على اشياء اخرى 🙂 ولكن ما يمنع اننا نعرض الافضل ، ويكون عند السائل الاختيار ، وهذا ما قمت به انت ، وعمل جميل 🙂 وللمقارنه ، ففي الاستعلامات اللي عملتها انا ، كنت افرز كل الكلمات واترك الارقام ، بواسطة المعيار ، عن طريق: 1.ان الحقل مو فارغ (طوله لا يساوي صفر) ، 2.طول المعلومة (يعني عدد حروفها) وعرفت هذا بمعاينة وتحليل البيانات، بينما قمت انت بعمل 1. في الجدول ، واذا اراد اخونا فايز ان يستخدم المعيار الآخر ، فهو كما في الصورة ادناه : . بالعكس ، وبعد قراءة سؤالك من جديد ، اتضح ان البيانات اللي تستخرجها من برنامجي انا فيها تصفية ، والبيانات اللي تستخرجها من برنامج اخونا Kanory هي مطابقة لطلبك ، فمافي حيرة 🙂 لا بالله اني موحد .. 🙋‍♀️ ها استاذ فايز ، صاروا اثنين ، وعندي وحدة ، ومن حقي الرابعة ، متى؟ 🙂 رجاء ثم رجاء ، لا تخلون زوجاتكم جنبكم لما تشاركون في المنتدى ، علشان تأخذون راحتكم ، يا موحدين (واقصد بتوحيدكم لله سبحانه وتعالى 🙂 ) جعفر

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

غالي والطلب رخيص ، وعلى راسي 🙂 جعفر

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

وعليكم السلام 🙂 الظاهر ان عندك التقرير اعرض من عرض الورقة : جعفر

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

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

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

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

وعليكم السلام استاذ فايز 🙂 استعملت استعلامات الحاق لكل جدول ، وهذا مثال للجدول 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

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