ahmed_2040

انا اطلعت علي كل المشاركات مجهود رائع وبارك الله لكما لكن محتاج تعديل بسيط هو بدل اظهار اسماء الحقول في الكمبو بوكس الثاني بالانجليش اريدها تظهر بالعربي حسب التسمية التوضيحية وشكرا لكما في مجهودكم

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

strCriteria = " >= #" & Format$(Me.DFrom, "yyyy\/mm\/dd") & "# And <= #" & Format$(Me.DTo, "yyyy\/mm\/dd") & "#" strSQL = "SELECT * " & _ "FROM data_tech " & _ "WHERE IN data_tech.b4 =( '" & strCriteria & "'" Me.advSearchList.RowSource = strSQL Me.advSearchList.Requery Me.CountList.Caption = "ÇáÚÏÏ :" & " (" & Me.advSearchList.ListCount - 1 & ") " Me.DFrom.SetFocus الجملة دي الجملة دي الجملة دي مالها يابو عمو الجملة دي مش عاوزة تتنفذ فين الخطا مع العلم اني عاوز اظهر البيانات في الليست بوكس الي باسم advsearchlist data_tech اسم الجدول b4 اسم حقل التاريخ المراد البحث فيه

حل مشكلة البحث بين تاريخين في اكثر من حقل واظهار النتائج في الليست بوكس عند تشغيل فورم البحث المتقدم من علامة المنظار الموجودة في فورم search وشكرا مقدما بيانات التوجبه.rar

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

تمام شكرا للجميع نجحت في برمحة المطلوب

الرجاء التعديل علي هذا المرفق الاخير لقاعدة البيانات بحيث يخرج اعمده مختارة وصفوف مختارة وشكرااا بيانات التوجبه نهائي معدل.rar

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

يا سلام عليك استاذ وربنا بارك الله فيك وجعله في ميزان حسناتك ياكبير الخبراء

كل الشكر لك وللمساعدة التي قدمتها الي فاضل اخر حاجة وهو اكمال المشروع بالتصدير من الاستعلام الي الاكسيل لكن كل ما اقوم بموضوع التصدير تظهر تلك الرسالة مرفق ملف للتوضيح بيانات التوجبه نهائي معدل.rar

السلام عليكم حضرتك استاذ ورئيس قسم والله حضرتك حلتلي مشكلة حيرتني اسبوعين الكود ده هو المطلوب بالظبط بارك الله فيك

اريد ترحيل البينات المحددة في الليست بوكس الي استعلام جديد او الي ملف اكسيل والكلام ده مرفق في الملف بيانات التوجبه.rar

لا اريد في ملف اكسيل واحد انا كل مشكلتي منحصرة في كود التحديد من الليست بوكس وده مرفق معد به كود اخر من موقع اجنبي لكن لا يعمل اي لايستخرج بينات بيانات التوجبه.rar

الرجاء منك تصحيح الكود التالي ليختار من الليست بوكس اكتر من صف لانه بيتم ترحيل اخر صف فقط انا بختارة مع اني باكون محدد صفوف تانية غيره Dim DataExp As String For Each varItm In SearchList.ItemsSelected '", DataExp = DataExp & "[" & Me.SearchList.ItemData([varItm]) & "] " ' " & DataExp = "SELECT * FROM Data_Tech WHERE [a1] = ' " & Me.SearchList.Column(0, [varItm]) Next varItm Set QFEx = CurrentDb.CreateQueryDef("Qtoexport", DataExp) DoCmd.OutputTo acOutputQuery, "Qtoexport", acViewPreview "DoCmd.DeleteObject acQuery, "Qtoexport searchlist ده الليست فيو او الليست بوكس data_Tech ده اسم الجدول عندي في قاعدة البيانات

م نالواضح ان حضرتك فهمت مقصدي غلط انا مش عاوز اصدر حقول انا عاوز اصدر الصف كامل بحقوله الي ملف اكسيل بشرط يكون لدي امكانية اختيار الحقول والصفوف ايضا مثال انا لدي جدول به 35 حقل او عمود / وبه 155 صف محتاج اختار 10 حقول مثلا + 5 صفوف بدون ترتيب للاثنين اعتقد حضرتك الان فهمتني !!

شكرا وبارك الله فيك وفي اعضاء الجروب وكتر خيركم بالنسبة للفكرة المفترحة فهي مش عملية اخر طلب لي وهو شرح الكود السابق وخاصة ssql - varItm

انا عملت التعديلات دي من زر امر " تصدير للاكسيل" الملونة بلون احمر ولكنها لاتنشئ ملف على سطح المكتب والغريبة ظهور سالة "لقد تم تصدير البيانات بنجاح" On Error Resume Next Dim curPath As String Dim DTPath As String Dim xlApp1 As Object 'Excel.Application Dim xlWB1 As Object 'Excel.Workbook Dim xlWs1 As Object DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") curPath = DTPath & "\salah- " & Format(Date, "dd-mm-yyyy") & ".xlsx" If SearchList.ItemsSelected.Count = 0 Then Beep MsgBox "اختر الحقول مراد تصديرهم" Exit Sub End If Dim Ssql As String Dim varItm As Object For Each varItm In SearchList.ItemsSelected Ssql = Ssql & "[" & SearchList.ItemData(varItm) & "] ," Next varItm Ssql = Mid(Ssql, 1, Len(Ssql) - 1) Ssql = "select " & Ssql Ssql = Ssql & " from " Dim QFEx As Object Set QFEx = CurrentDb.CreateQueryDef("Qtoexport", Ssql) DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qtoexport", curPath, , "Qtoexport" 'DoCmd.OutputTo acOutputQuery, "Qtoexport", acViewPreview DoCmd.DeleteObject acQuery, "Qtoexport" '========format ExcelFile FormatExcelOut (curPath) '======================= Set xlApp1 = CreateObject("Excel.Application") xlApp1.Visible = False 'True Set xlWB1 = xlApp1.Workbooks.Open(curPath) Set xlWs1 = xlWB1.Worksheets("Qtoexport") xlWs1.DisplayRightToLeft = True xlWB1.Save xlApp1.Quit Set xlWs1 = Nothing Set xlWB1 = Nothing Set xlApp1 = Nothing Beep MsgBox "لقد تم تصدير البيانات بنجاح"

searchlist = box لديك في البرنامج لكن ليه الاخطاء دي بتظهر لدي Dtpath varItm xlWs1 QFEx رسالة الخطا variable not defined لماذا ؟؟

طيب ليه يكون في نموزج تاني لما بضغط علي زر تصدير للاكسيل اللي حضرتك عامله انا عاوز بشكل مباشر احدد من searchlist بتاعتي الحقول المراد تصديرها ثم فتح ملف الاكسيل بعد التصدير موضوع تنسيق الملف الاكسيل ده مش مهم اوي المهم هو استخراج الحقول والاعمدة (اريد ايضا تحديد اعمده معينة) زي الحقول وترتيبهم من اليمين لليسار زي ما حضرتك عامل المشكلة ان كل ما انسخ الكود من نموزج حضرتك للنموزج search بتاعي يعطيني خطأ في الدالات الاتية Dtpath varItm xlWs1 QFEx رسالة الخطا variable not defined لماذا ؟؟

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

اتفضل حضرتك بيانات التوجبه.rar

عموما ده الخطأ اللي بظهرلي لما اضغط علي زر امر "تصدير لاكسيل "