Moosak

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

وعليكم السلام ورحمة الله وبركاته يا حسين .. استخدم دالة 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

تفضل أخي ahmus تم عمل دالة تحدث مصدر سجلات النموذج على حسب الاختيار من القائمة المنسدلة هكذا : Private Sub DaysCbo_AfterUpdate() Me.RecordSource = SelectedDaySQL DoCmd.Requery End Sub Private Function SelectedDaySQL() As String Select Case Me.DaysCbo.Column(1) Case Is = 0 SelectedDaySQL = "Select * from دوام_الموظفين Where السبت= -1 " Case Is = 1 SelectedDaySQL = "Select * from دوام_الموظفين Where الاحد= -1 " Case Is = 2 SelectedDaySQL = "Select * from دوام_الموظفين Where الاثنين= -1 " Case Is = 3 SelectedDaySQL = "Select * from دوام_الموظفين Where الثلاثاء= -1 " Case Is = 4 SelectedDaySQL = "Select * from دوام_الموظفين Where الاربعاء= -1 " Case Is = 5 SelectedDaySQL = "Select * from دوام_الموظفين Where الخميس= -1 " Case Is = 6 SelectedDaySQL = "Select * from دوام_الموظفين Where الجمعه= -1 " Case Is = 7 SelectedDaySQL = "Select * from دوام_الموظفين " End Select End Function ايام دوام الموظفين.rar

شكرا لك أخي عبدالقدوس .. أفكار رائعة 🙂

العفو يا أحباب .. ويارب يتقبل مني ومنكم صالحات الأعمال 🙂

أخي awael5 هذه القائمة تظهر عندما تكون لديك حقول مرتبطة بجدول أو استعلام .. تفضل هذه الطريقة .. عند النقر المزدوج على رأس العمود تظهر لك القائمة .. القوائم جاهزة.accdb

أخي العزيز صابر .. في ورقة خصائص النموذج > بيانات > تأمين السجلات > اختر ( سجل محرر ) . وذلك لتأمين السجل من التحرير من قبل المستخدمين الآخرين في نفس الوقت . ولعلك تدمج معه إن شئت حل الأستاذ @jjafferr والذي أشار له الأخ العزيز @احمد الفلاحجي .

السلام عليكم ورحمة الله وبركاته .. تحية طيبة إخواني .. 🌹 أحضرت لكم اليوم كود وظيفته استخراج الملفات المخزنة في جداول الأكسس كمرفقات داخلية إلى خارج قاعدة البيانات دفعة واحدة 🙂 وهو مفيد جدا لمن لديه قاعدة بيانات قد ملئها بالمرفقات ويحاول الآن تصغير القاعدة باستخراج المرفقات منها وحفظها خارج قاعدة البيانات بسهولة ويسر .. بدل حفظها ملف ملف وهي عملية مرهقة بالتأكيد .. خصوصا إذا كان عدد المرفقات بالمئات .. إليكم الكود : Public Function ExtractAllAttachments(ByVal TableName As String, ByVal AttchmentColumnName As String, ByVal ExtractToFolder As String) ' TableName : اسم الجدول ' AttchmentColumnName : اسم حقل المرفقات ' ExtractToFolder: المكان المراد استخراج الملفات إليه مثال : "C:\ExtractHere" Dim RsMainrecords As dao.Recordset2 Dim RsAttachments As dao.Recordset2 Set RsMainrecords = CurrentDb.OpenRecordset("select " & AttchmentColumnName & _ " from " & TableName & _ " where " & AttchmentColumnName & ".FileName is not Null") Do Until RsMainrecords.EOF Set RsAttachments = RsMainrecords.Fields(AttchmentColumnName).Value Do Until RsAttachments.EOF Dim OutputFileName As String OutputFileName = RsAttachments.Fields("FileName").Value OutputFileName = ExtractToFolder & "\" & OutputFileName RsAttachments.Fields("FileData").SaveToFile OutputFileName RsAttachments.MoveNext Loop RsAttachments.Close RsMainrecords.MoveNext Loop RsMainrecords.Close Set RsMainrecords = Nothing Set RsAttachments = Nothing End Function ويتم تشغيله بالطريقة التالية : ExtractAllAttachments("TableName","AttchmentColumnName","ExtractToFolder") ستحتاج لإعطائه 1- اسم الجدول ، 2 - اسم الحقل ، 3 - المكان الذي تريد استخراج المرفقات فيه . المصدر : https://www.youtube.com/watch?v=jHIgay9goWo

شكرا لك أخي عبدالقدوس 🙂