نجوم المشاركات

شاهد المرفق اخي wor1 (1).xlsm

تفضل. If Not rs.EOF And Not rs.BOF Then Do Me.Txt_namcity.AddItem (rs.Fields(0).Value & ";" & rs.Fields(1).Value) rs.MoveNext Loop Until rs.EOF End If combo2.rar

مشاركة مع اخي ناقل ضع زر الطباعة في التقرير ..واجعل خاصية Display When لزر الطباعة = Screen Only ثم ضع الكود التالي في حدث عن الضغط على زر الطباعة Private Sub CmdPrint_Click() DoCmd.RunCommand acCmdPrint End Sub و لا تنسى ان تجعل نمط العرض عند فتح التقرير acViewPreview

تفضل ... DoCmd.RunCommand acCmdPageSetup

مشاركة مع استاذي ابو خليل ضع الكود التالي بدلا من الجملة القديمة في Sub Display 'Me.Txt_namcity.Value = rs!E_city Dim strSQL As String strSQL = "SELECT [tbl_city].[id_ciity], [tbl_city].[Name_city] FROM tbl_city" Me.Txt_namcity.RowSource = strSQL Me!Txt_namcity.ColumnCount = 2 Me!Txt_namcity.ColumnWidths = "0 ; 2 cm"

Private Sub TextBox14_Enter() ' Call AdvancedCalendar ' End Sub غير رقم التكست بوكس الي الرقم الجديد

عليكم السلام هذا يغلق جميع النماذج المفتوحة عند الضغط على زر Esc Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then Do While Forms.Count > 0 DoCmd.Close acForm, Forms(0).Name Loop End If End Sub

السلام عليكم ورحمة الله استخدم المعادلة التالية =IF(COUNTIF($B2:$G2;"دون المستوي")=0;"منقول للصف السادس ";IF(B2="دون المستوي";$B$1&" - "&IF(C2="دون المستوي";$C$1&" - "&IF(D2="دون المستوي";$D$1&" - "&IF(E2="دون المستوي";$E$1&" - "&IF(F2="دون المستوي";$F$1&" - "&IF(G2="دون المستوي";$G$1;"")))))))

بارع

يوجد اكثر من طريقة لتحقيق الطلب ولكنك تستخدم Ado للاتصال لذا يجب ان يكون الحل في المسار نفسه تفضل التعديل combo3.rar

تجد هنا بغيتك .......

مفتاح المعاينة اجعله نعم أو حدث عند الفتح Me.KeyPreview = True

هذي الدالة تعطينا فكرة لعمل تشفير للجمل والكلمات

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

جزاك الله خير ويرحم والديك وزادتك الله من فضله وعلمه

ماااااااااااشاااااااااااااااااا الله علیک ک ک ک ک ک ک ک 😊😉😌 میمیز جدا جدا.... تسلم حیاتک و انا اشکرک اخی و استاذی Moosak و اشکر الجمیع

شاهد المرفق اخي بحث.xlsm

السلام عليكم ورحمة الله وبركاته 💐 تفضل اخي الكريم =IF(A2="";""; IF(A2>=1000;A2*1500;IF(AND(A2<1000;A2>0);A2*750;0))) ضرب المبلغ اذا كان اقل من 1000.xlsx

الحمدلله تم تصحيح هذا الخطأ 🙂 : وتم تعديل الكود : Public Function RandomizeTxt(TXT As String) As String Dim x As Double Dim y As String Dim m As Double Dim L As String Dim R As String y = Replace(TXT, " ", "") m = Len(y) / 2 If InStr(1, m, ".") > 0 Then y = Replace(y, Mid(y, m + 0.5, 1), Mid(y, m + 0.5, 1) & " ") End If R = StrReverse(y) For x = 1 To m + 0.5 L = L & Mid(R, x, 1) & " " & Mid(y, x, 1) & " " Next RandomizeTxt = Trim(Replace(Replace(L, " ", ""), " ", " ")) End Function تجربة تكسير الكلام (1).accdb

استاذنا العزيز @أبو عبدالله الحلوانى سأقرب اليك مايريده اخينا ... مثلا لدينا عميل جديد1 ولديه رصيد 3000 جنيه..حينما نختار الفترة من 1/12/2020 الى 31/6/2022 سيظهر الرصيد خلال هذه الفترة 2000 جنيه مثلا ..ويظهر ايضا في عمود ثاني اسمه الرصيد السابق لهذه الفترة ويساوي 1000 جنيه والنتيجة تنطبق على بقية العملاء...بحيث العميل الذي ليس لديه رصيد سابق تظهر النتيجة في الحقل =0 بصراحة انا قمت اشوف كوابيس بسبب هذا المثال لان حاولت كثيرا ولم يضبط معي 🤕

شاهد المرفق اخي test501.xlsm

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

شاهد المرفق TEST10-2022.xlsm

اخي شاهد المرفق جرب واخبرني النتيجة إيصال إستلام قيمة إيجار شهرى.xlsm

العفو أخي سيد .. ذلك فضل الله .. 🙂 وعليكم السلام ورحمة الله وبركاته أخي الحبيب @احمد الفلاحجي العفو حبيبنا بارك الله فيك 🙂 في الحقيقة هذا الجزء حل لي مشكلة إذا كان عدد الحروف فردي وتمت قسمته على 2 بيطلع لنا كسور وسيتم تكرار الحرف الأوسط مرتين ، لذلك زودت المسافة علشان دايما يكون العدد زوجي وتشتغل الدالة صح 😉👌🏻 ولذلك زودت هذا الجزء باش مهندس قاسم 😁✌️🏻 وللتأكد قم بتجميد هذي الجزئية .. وجرب تحط كلمة من خمسة حروف مثلا .. وشوف الفرق ب و بدون

أهلا أخي سيد تم بحمد الله نجاح التجربة 🙂 وهذه هي الأكواد المستخدمة والدالة المكسرة للكلام Public Function RandomizeTxt(TXT As String) As String Dim x As Double Dim y As String Dim m As Double Dim L As String Dim R As String y = Replace(TXT, " ", "") m = Len(y) / 2 If InStr(1, m, ".") > 0 Then y = Replace(y, Mid(y, m + 0.5, 1), Mid(y, m + 0.5, 1) & " ") End If R = StrReverse(y) For x = 1 To m + 0.5 L = L & Mid(R, x, 1) & " " & Mid(y, x, 1) & " " Next RandomizeTxt = Trim(Replace(Replace(L, " ", ""), " ", " ")) End Function المرفق :

تفضل اخي كنت ارسلت لك ملف ثاني سابقا هذا بسب تغير اسماء الحقول كود (1) (1).xlsb

السلام عليكم ورحمة الله وبركاته تفضل علينا اساتذتنا الكرام جزاهم الله خيرا بالرد الشافى والجواب الكافى ومشاركة منى اتقدم اليكم بهذا المرفق الذى يحدد لك كل بيانات مفاتيح الكيبورد بدون الذهاب والبحث خارج الاكسس ☺ Key Code Constants (☺).rar

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