jjafferr

الله يطول في عمرك اخي ، ساعدنا علشان نساعدك :) 1. وين احصل "مستند بيع" ؟ في اي جدول ، وشو اسم الحقل؟ 2. وارقام مستندات الشراء كلها صفر في الجدول ، بينما في الصورة فيها ارقام!! جعفر

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

تفضل اخي :) كل اللي عليك عمله هو تعديل الاستعلام ، واللي على اساسه يجب تعديل التقرير ، ولكي يعمل التقرير ، يجب فتحه من النموذج. جعفر 180.Database2.accdb.zip

وهذه طريقة لتصدير البيانات الى ملف بصيغة csv ، واللي يفتحها الاكسل: Private Sub cmd_Excel_Click() 'DoCmd.OutputTo acOutputReport, "rpt_search", acFormatXLS, "C:\find.XLS", True Dim rst As DAO.Recordset Dim fld As Field File_Path = "C:\find.csv" Open File_Path …

:)

وهنا ستلاحظين كيفية البحث في الحقول المختلفة: 'Text: Filt = Filt & " AND [C4]= '" & Me.cc4 & "'" 'Numeric: Filt = Filt & " AND [C4]= " & Me.cc4 'Date: Filt = Filt & " AND [C4]=#" & Me.cc4 & "#" 'Part search OR Memo: Filt = Filt & " AND [C4] like " & Chr(34) & …

وعليكم السلام :) أبشر :) ، أهم شئ إنك تكون راضي علينا :) ، وتفضل: جعفر 178.TQAReeeeR.accdb.zip

تفضل اخي :) هذا الكود يعمل اللي تريده: Private Sub Remove_Line(N As String) 'N is the wor that is sent from the command button, 'we need to remove the line that starts with this word Dim x() As String 'split the Me.Info para at the Carriage Return Line Feed x …

اخي العزيز :) هذه الصورة بتقول لك كل شئ :) وهذا الكود اللي يقوم بالعمل: Private Sub cmd_Report_Click() On Error GoTo err_cmd_Report_Click Dim i, Cars, iCountC, iCountE, iM1, iM2, iD1 As Integer Dim M1(), M2(), D1(), C1() As String 'M1= Musef1 'M2= Musef2 'D1= …

جزاك الله خير :) ما كنت متأكد من أن جميع التواريخ صحيحة :( واﻻن ارتاح بالي :) جعفر

انا مﻻحظ أن تاريخ اليوم اﻻخير غير عن اﻻيام أﻻخرى ، فهل هذا صحيح ، أو أن اﻻكسل نقص يوم؟ شكرا

السنه 1434 وليس 1435 لوسمحت :)

حيا الله الغالي :) وعليكم السلام ورحمة الله وبركاته :) ما عليه ، تحملنا شوي ، وان شاء الله هالمرة نوصل لنتيجة :) الجدولين profession و Militery لما نجمعهم في استعلام ، نعرف اسماء الاشحاص ومهنهم :) بس كيف نعرف الاشخاص اللي بيقوموا بالعمل ، واي سائق بيسوق اي سيا…

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

في الكود ، غير الفواصل ، هكذا: من Print #1, rst!id & "," & rst!txtnum & "," & Date_as_Text & "," & rst!txtkin الى Print #1, rst!id & ";" & rst!txtnum & ";" & Date_as_Text & ";" & rst!txtkin وفيه سطرين فقط في الكود اللي يجب تغيير الفواصل فيها. ما شاء الله عليك …

اختي الفاضلة :) الكود التالي اصبح افضل من الاكواد اعلاه ، ويمكن استعماله في برنامجك اعلاه: Public Sub FilterMe() Filt = "" If Len(Me.cc5 & "") <> 0 Then Filt = Filt & " AND [C5]= '" & Me.cc5 & "'" End If If Len(Me.cc4 & "") <> 0 Then Filt = Filt & " AND [C4]= …

وعليكم السلام ورحمة الله وبركاته :) يا سيدي ، بعدما فشلت جميع محاولاتي ، اضطررت للكود :) هذا الكود يحول لك بيانات الاستعلام (عملت لك الاستعلام وهو عبارة عن حقول الجدول ، ولكن لانه استعلام ، فانك تستطيع عمل التغييرات عليه بسهوله) : Private Sub ÃãÑ0_Click() On E…

اذا ممكن ترفقي لي البرنامج مع النموذج اللي فيه البحث ، اضبطه لك :) الكود ممكن يتغير بشكل ثاني ، ليتلائم مع المعطيات. جعفر

:)

عفوا في خطأ بسيط في المرفق السابق ، فرجاء استخدام هذا المرفق :) جعفر 176.تعديل.mdb.zip