Moosak

والعبقرية هي فضل من الله يا عبقري 👍🏼😉

كيف عرفت إنّي ناوي أجدد المكتبة 😅 لا يكون شغلت البخور والعفاريت عندك 👻 إنت كثر شغل أفكار وشخابيط بس عشان نملي المكتبة بسرعة 😋

نستغنى عن النموذج الفرعي ونحول النموذج الاصلي لنموذج عناصر متعددة ونلعب في الريكورد سورس .. مش كده ولا أيه ؟ 😁

منك العذر ياحبيب الملايين 😅✋🏻 انا عارف انك حتكمل ولا كأنك شفت حاجة 😂🤭 أنا اللي عاوز أتعلم منك دالوأتي 😄 وده هيطلع لنا حل استثنائي ما حصلش إن شاء الله 👍🏼😁

اسمحلي أبا جودي بهذا الدخول المفاجئ 😅 كحل سريع ، قم بتعديل المعيار الذي أسفل الحقل Grde في الاستعلام هكذا (تحذف النجمة التي على اليمين ) : Like "*" & [Forms]![frm_Search]![Ser_Grade] والنتيجة : Database271.accdb

جرب هذا : ((TransactionsT.TransToDept) Like '" & Forms!MainScreen!txtDepartment & "'"))

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

ماذا تقصد بالصورة ؟ هل ممكن تضع مرفق للتعديل مباشرة عليه ..

وعليكم السلام ورحمة الله وبركاته يا حسين .. استخدم دالة Replace مثلا .. replace(me.txtNumber,"#","")

أخي عبدالعزيز ضع الكود التالي على زر الحذف : Dim InBox As String On Error Resume Next InBox = InputBox("أدخل كلمة المرور لتأكيد الحذف", "خاص بالادارة") If InBox = 9999 Then DoCmd.RunCommand acCmdDeleteRecord Else MsgBox "كلمة مرور خاطئة" End If وعند الضغط على الزر ستظهر لك هذه الرسالة : إذا تم إدخال كلمة المرور بشكل صحيح = 9999 فسيتم الحذف وإلا فلن يتم الحذف 🙂

نيابة عن أخي أزهر .. يقصد لك أن تضع مربع نص جديد وتسميه textpassword لكي يتعرف عليه الكود 🙂 أما لو أردت الاستغناء عن مربع النص والاستعاضة عنه بصندوق إدخال فاكتب الكود هكذا : Private Sub Form_Delete(Cancel As Integer) Dim InBox As String InBox = InputBox("أدخل كلمة المرور لتأكيد الحذف", "خاص بالادارة") If InBox = 9999 Then DoCmd.RunCommand acCmdDeleteRecord Else MsgBox "كلمة مرور خاطئة" Cancel = True End If End Sub

أنا معاك تمام بشا مهندس محمد في هذي النقطة 👍🏻 ، لكن أحس المنتدى نايم هذي اليومين ، الناس مشغولة بالعبادة واستغلال الشهر الكريم، الله يتقبل من الجميع 🙂 .

هو أنا هلحق أعمل حاجة قبلك وأنت اللي يسموك @ابو جودي ("قاهر الأكسس")Cstr حتى إني كتبتهالك في دالة 😂 أنت شخص متفجر بالأفكار ما شاء الله عليك 😄 وأنا كمان حاليا شغال على حاجة كبيرة .. سترى النور قريبا إن شاء الله 😉💪🏼

دائما تنزل الميدان بقوة باش مهندس @ابو جودي رااااااااااااائع كروعتك .. حاجة كاملة الدسم وشاملة لكل الاحتياجات 😊 دائما تحاول تحط الحلول النهائية لمشاكل الناس .. الله يوفقك يا باشه 😃 >>>>>> يضاف لمكتبة الأكوااااااااااااد 😁👌🏼

بارك الله فيك أخي أبا الحسن ،، تتبعت مصدر البيانات التي في النموذج Form1 ووجدتها تأتي من الجدول Financial_Records.. ولو أمعنت النظر ستجد أن تاريخ أول قيد في 2/7/2021 .. بينما في شاشة البحث في النموذج Form1 البحث يبدأ من 1/7/2021 .. لذلك لن تجد أي رصيد سابق للعملاء بهذه الطريقة وستضل النتيجة تعطيك NULL .. فم هي الآلية التي تريد بها الحصول على الرصيد السابق للعميل ؟ وكيف سيتم التمييز بين العملاء ؟ باسم العميل أم برقم العميل ؟ ماهي الخانة التي سأربط بها بين العميل ورصيده ؟ تحتاج لكمّ جيد من البيانات التجريبية في الجداول لكي تستطيع تجربتها عند تصميم قاعدة البيانات .

أهلا بك أخي أبا الحسن ،، بعد صراع طويل مع الملف المرسل ولفك أشفاره ، ولمحاولة فهم المطلوب ( وأشك أنني فهمت ) 😅 توصلت لهذه المعادلة للرصيد السابق : =Nz(DLookUp("[Balance]";"[Financial_Records]";"[Registration_Date] <#" & [Forms]![Form1]![FromDate] & "# And [Customer_ID] =" & [Forms]![Form1]![Customers] & " ");0) وتم إصلاح حدود التقرير 🙂 وإن لم أوفق لما تريده بالضبط فعليك أن تفيض علينا بالشرح المفصل . تحياتي ،، T1 (2).rar

تم التعديل أخي أحمد حسب المعطيات الجديدة .. في المرة القادمة عليك أن تسرد جميع المعطيات من البداية لكي يتم كتابة الكود حسب المعطيات 🙂 فأنت لم تذكر بأن الترقيم يتجدد يوميا من قبل 😏 الحركة (1).accdb

جرب هذا الكود مثلا : 🙂 If Not IsDate(Me.TextBox) Then MsgBox "يجب إدخال تاريخ فقط في هذا الحقل " Undo End If

وهذه مشاركتي مع أستاذنا العزيز @ابوخليل مع العلم أنني لم أجد هذه الحقول في النموذج !! محمد غياض شبعا.rar

لو كانت المسميات التي كتبتها هنا صحيحة : فهذه هي الصياغة الصحيحة للدالة : =Nz(DSum("[Balance]";"[ملخص حسابات العملاء2]";"[RasedSabk] <#"& [Forms]![Form1]![FromDate] &"#");0) جربب عندك وأخبرنا بالنتيجة

أسعد الله مسائك أخي أبا الحسن ..@abouelhassan الملف المرفق به عناصر ناقصة استعلامات وغيرها ،،، Form1 لا يفتح وكذلك الاستعلام ملخص حسابات العملاء .. أرسل المرفق كاملا

اسمحلي أستاذي الغالي @ابو جودي المشاركة معكم بهذه الطريقة التي عملتها سابقا وعدلتها للتناسب مع طلب الأخ العزيز @أحمد وجيه 🙂 للعلم أن الكود يعيد الترقيم من 1 بداية كل سنة جديدة 🙂 ويمكن تغيير ذلك إن شئت المواصلة لكل الأعوام .. الكود : Public Function NewID(strFieldinTable As String, strTable As String) As String 'This function returnes Value like This : EN220409000001 Dim T, CY, Y, M, D, OldN, NewN, LID LID = DMax(strFieldinTable, strTable) ' Brings The last ID from the table T = "EN" CY = Mid(LID, 3, 2) Y = Format(Date, "yy") M = Format(Date, "mm") D = Format(Date, "dd") OldN = Right(LID, 6) NewN = OldN + 1 If CY = Y Then NewID = T & CY & M & D & Format(NewN, "000000") Else NewID = T & Y & M & D & "000001" End If End Function ويتم استدعائه في حدث قبل الادراج هكذا : Me!movement_N = NewID("movement_N", "movement") الحركة.accdb

وعليكم السلام ورحمة الله وبركاته أخي @amjedhellol هناك قسم خاص لمثل هذه الطلبات ، تجده هنا : 🙂 https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/

تم التعديل أخي kkhalifa1960 🙂 Dim rst As DAO.Recordset Dim i As Long Dim PP PP = Me.lstTables.Column(0) Set rst = CurrentDb.OpenRecordset("Select * From " & PP) rst.MoveLast: rst.MoveFirst For i = 1 To 10 Me("L" & i).Caption = rst(1) Me("T" & i) = rst(2) rst.MoveNext Next i rst.Close: Set rst = Nothing MahdiTest.accdb

أهلا أخي kkhalifa1960 إذا كنت تقصد بـ مفرداته أي الحقول الخاصة به .. فهذا هو طلبك 🙂 MahdiTest.accdb