أبوبسمله

جزاك الله خيرا اخي ومعلمنا العزيز @jjafferr جعله الله في ميزان حسناتك إن شاء الله 💐

اذا اردت المساعده ساعد نفسك اولا اخى فالصوره غير واضحه بالمره ارفق مثالك حتى يتم التعديل عليه من قبل اخوانك واساتذتنا جزاهم الله خيرا بالتوفيق

وعليكم السلام راجع هذه المشاركه عالرابط التالى لاخى واستاذى العزيز خالد جزاه الله خيرا بالتوفيق

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

الحمدلله انك استفدت بالتوفيق

جميله المسطره العائمه دى اخى ومعلمى العزيز @jjafferr 🙂 مثال جميال ده عاوز فحص دقيق ان شاء الله ربنا يعينى واتفحصه جيدا وجميل الموقع ده ياريت تتحفنا بهذه المواقع المفيده دائما اخى جزاكم الله خيرا ووفقكم الله لما يحبه ويرضاه

وعليكم السلام مشاركه مع اخوانى واساتذتى جزاهم الله كل خير Function m(x, y As Variant) If IsNull(x) Or IsNull(y) Then MsgBox "enter the number" Else m = CDbl(x) + CDbl(y) End If End Function

الحمد لله الذى بنعمته تتم الصالحات الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خير بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا انا لم يظهر لى اى خطأ ومع ذلك جرب التعديل ده وكذلك لم يظهر اى خطأ وان شاء الله ننتظر تجارب اخواننا واساتذتنا جزاهم الله خيرا Public Function sii(e As Date, s As Date) As Integer Dim rs As Recordset Dim ss As Integer Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and CDbl([datemou])>=" & CDbl(e) & " and CDbl([datemou])<" & CDbl(s) & "") rs.MoveLast: rs.MoveFirst Do While Not rs.EOF ss = ss + rs!summ rs.MoveNext Loop MsgBox ss End Function

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

وعليكم السلام هل هذا ما تريد ؟ Aziz.rar

رائع اخى واستاذى @محمد أبوعبدالله جزاك الله خيرا وهذا الموضوع شبه المطلوب ولكن للاشهر لاخى واستاذى @ابو تراب جزاه الله خيرا والتعديل ليتناسب مع طلب الموضوع Private Sub btnGenerate_Click() Dim rs As DAO.Recordset Dim fromDate As Date Dim toDate As Date Set rs = CurrentDb.OpenRecordset("table1") While Not rs.EOF fromDate = rs("DAT") rs.MoveNext If Not rs.EOF Then toDate = rs("DAT") addMissingMonths fromDate, toDate End If Wend End Sub Public Sub addMissingMonths(ByVal fromDate As Date, ByVal toDate As Date) Dim missingDate As Date Dim missingMonths As Integer Dim i As Integer missingMonths = DateDiff("d", fromDate, toDate) - 1 ' missingMonths = DateDiff("m", fromDate, toDate) - 1 For i = 1 To missingMonths missingDate = DateAdd("d", i, fromDate) ' missingDate = DateAdd("m", i, fromDate) Me.lstMissingMonths.AddItem missingDate DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Table1 ( DAT ) values (" & Format(missingDate, "\#mm\/dd\/yyyy\#") & ");" DoCmd.SetWarnings True Next End Sub يالتوفيق اخوانى

وفيك بارك الله اخى واستاذى العزيز الشكرلله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اللهم آمين واياكم بالتوفيق

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا انظر للاستعلام qry ان كان ما تريد اكمل باقى حقولك بالاستعلام واجعله مصدر التقرير بالتوفيق can (2).accdb اهلا بك اخى واستاذى العزيز وعودا حميدا فلم ارك منذ زمن نورت المنتدي ان شاء الله تكون بخير انت والاهل والاحباب

ايه المشكله فى الموضوع الاخر الذى تمت الاجابه عليه ؟ برجاء التوضيح اكتر حتى تجد ما تريد ويرجى اضافه مثال لما تريد افضل

جميل منك ان تضع الحل الذى توصلت اليه لتشارك اخوانك جزاك الله خيرا واتفضل كمان تجربتى كما مرت على سابقا فى برنامجى وان شاء الله نجد حلول اخرى من قبل اخواننا واساتذتنا جزاهم الله عنا خيرا Public Function sii(e As Date, s As Date) As Integer Dim rs As Recordset Dim ss As Integer Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and datemou>=" & CDbl(e) & " and datemou<" & CDbl(s) & "") rs.MoveLast: rs.MoveFirst Do While Not rs.EOF ss = ss + rs!summ rs.MoveNext Loop MsgBox ss End Function ؟؟؟ يمكنك ارسال تقرير للاداره وتوضح به التعديل الذى تريده من الزر ذو الثلاث نقاط على يسار المشاركه بالتوفيق Nouveau Microsoft Access Base de données.rar

الاستعلام مظبوط لكن حضرتك اللى مش مركز لان ابراهيم ليس له قيم سداد قبل 31-12 فلذلك الرصيد خالى والقيم صحيحه ماذا تقصد مش فاهم وضح اكتر واعذرنى لقله فهمى بالتوفيق

اخى الفاض اذا ارفقت مثال وبه امثله لما تريد كان افضل لك ولمن يحاول مساعدتك عالعموم اتفضل هذه المحاوله لعلها تفى بالغرض بالتوفيق

ممكن تضع اقتباس اولينك لانى تهت فالمشاركات وسامحنى عالتقصير فالبحث اللهم آمين ربنا يرحمه ويغفر له ويرحم امواتنا واموات المؤمنين والمؤمنات والمسلمين والمسلمات فين ده ؟

اخى الفاضل كما وضح لك اخى واستاذى العزيز عصام ليس هذا القسم الخاص بالفيجوال وعليك وضع سؤالك هناك وعلى ما يبدو ان جملة الاتصال بقاعدة البيانات خطأ Standard security Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;Persist Security Info=False; اطلع على الرابط التالى https://www.connectionstrings.com/access-2007/ واطلع على الرابط التالى للاتصال https://itsourcecode.com/free-projects/vb-net/connect-access-database-in-vb-net/ وصفحة بحث جوجل https://www.google.com/search?hl=ar&sxsrf=ALeKk02xrOPAGvvjXBbaNN2OHxgcNcxEOg%3A1609953954921&ei=ovL1X47fN6LU1fAPpfKasAg&q=connect+database+access+vb.net&oq=connect+database+acc&gs_lcp=CgZwc3ktYWIQARgAMgUIABDLATIFCAAQywEyBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeOgQIABBHOgQIABBDOggIABCxAxCDAToICC4QsQMQgwE6BQgAELEDOgIIADoFCC4QsQM6BwgjEOoCECc6CQgjEOoCECcQEzoECCMQJzoOCAAQsQMQgwEQxwEQowI6BggjECcQEzoECAAQAzoFCC4QywE6CwgAEMcBEK8BEMsBOgQIABANOgYIABANEB5QppC4AVi_jroBYMagugFoA3AEeACAAZgCiAGxJJIBBjAuMTUuOJgBAKABAaoBB2d3cy13aXqwAQrIAQjAAQE&sclient=psy-ab وفيديو بالعربى وده درس من الدوره اطلع عليها https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=video&cd=&cad=rja&uact=8&ved=2ahUKEwiKnOfq9YfuAhWGURUIHUclD9kQtwIwAHoECAIQAg&url=https%3A%2F%2Fwww.youtube.com%2Fwatch%3Fv%3DdePYvtuEXRY&usg=AOvVaw1Sz0WFqR-6KFbaL5N7o0DO بالتوفيق

وعليكم السلام اتفضل جرب ووافنا بالنتيجه تم التغيير هذا السطر فالكود stLinkCriteria = "[Number]=" & Me![Combo1].Column(1) الكود Private Sub R_Click() On Error GoTo Err_R_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Item" stLinkCriteria = "[Number]=" & Me![Combo1].Column(1) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_R_Click: Exit Sub Err_R_Click: MsgBox err.Description Resume Exit_R_Click End Sub والمعيار فالاستعلام TransactionS استعلام لحقل name ونصيحه لك حاول ان تبتعد عن الاسماء المحجوز مثل name وغيرها من الاسماء المحجوزه وده رابط للكلمات المحجوزه لاخى واستاذى وشيخنا الجليل ابوخليل جزاه الله خيرا ومن ميكروسوفت https://support.microsoft.com/ar-sa/office/الكلمات-والرموز-المحجوزة-في-access-ae9d9ada-3255-4b12-91a9-f855bdd9c5a2 بالتوفيق Root220.rar

معذره اخى وضاح فلم ارى المرفقات بالصباح لكونى كنت بتصفح من الموبايل واخوانى واساتذتى قاموا بالواجب وزياده جزاهم الله خيرا وانا مع راى اخى واستاذى عصام مع جعل الحقلان حقل السعر الاساسى وحقل للنسبه لان ممكن يكون فى نسب متغيره لاسعار اخرى والباقى فى الاستعلام او النموذج ولم الاعتذار اخى بارك الله فيك فكلنا اخوه ونتعلم من بعضنا وانا مؤهلى دبلوم ومبعرفش انجليزى وبيحطمنى للوصول للمعلومه ولكن الحمدلله مع الاصرار وحب التعلم نتقدم بفضل الله ثم اخواننا واساتذتنا جزاهم الله خيرا وازيدك : فقد قال رسول الله صلى الله عليه وسلم: "طلب العلم فريضة على كل مسلم" رواه مالك وابن ماجه، وحسنه السيوطي. ونزف إليك هذه البشرى من رسول الله صلى الله عليه وسلم، فقد قال صلى الله عليه وسلم: "من سلك طريقاً يطلب فيه علماً سلك الله به طريقاً من طرق الجنة، وإن الملائكة لتضع أجنحتها لطالب العلم رضاً بما يصنع، وإن العالم ليستغفر له من في السموات ومن في الأرض، والحيتان في جوف الماء، وإن فضل العالم على العابد كفضل القمر ليلة البدر على سائر الكواكب، وإن العلماء ورثة الأنبياء، وإن الأنبياء لم يورثوا ديناراً ولا درهماً إنما ورثوا العلم، فمن أخذه أخذ بخط وافر" رواه أحمد وابن حبان عن أبي الدرداء رضي الله عنه، وصححه الألباني. والله اعلى واعلم احسنت اخى هاوى احسن الله اليك احسنت اخى احسن الله اليكم اخوانى واساتذتى وجزاكم الله خيرا واعذرونى فقد نفذ منى رصيد الاعجاب تقبلوا تحياتى ومرورى

جزاك الله خيرا اخى وشيخنا ومعلمنا العزيز ابوخليل 💐🌹 افكار جميله وتنفيذ مافى اجمل من كده تسلم ايدك وراسك بارك الله لنا فيكم اساتذتنا الافاضل وجزاكم الله عنا كل خير

وعليكم السلام اخي وضاح اكتب المعادله فالحقل اللي هتظهر فيه القيمه كالتالي لاني بكتب من الموبايل Text-(text*5%) حقل القيمه = text إن شاء الله يكون ماتريد

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