Moosak

تم التعديل أخي أحمد حسب المعطيات الجديدة .. في المرة القادمة عليك أن تسرد جميع المعطيات من البداية لكي يتم كتابة الكود حسب المعطيات 🙂 فأنت لم تذكر بأن الترقيم يتجدد يوميا من قبل 😏 الحركة (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

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

تم التعديل تفضل أخي AMINYOUSIF الكود بعد التعديل : Me.Refresh DoCmd.SetWarnings False DoCmd.OpenQuery "UPDATA_PRICE_CLASS_YES" DoCmd.SetWarnings True Me.F_PRICE_CLASS.Requery UP_PRICE.rar

شكرا أبا جودي

ياريت تدعمنا بالصور من برنامجك السابق باش مهندس 😊

شكرا لك أخي أبا عبدالرحمن .. هذا إنعكاسة خلقك الطيب 🙂

نعم يا أبا عبدالرحمن ... في الفورم حقل غير منظم به الدالة السابقة .. وبعد تحديث حقلي التاريخ وعند الحالي للنموذج : Private Sub Form_Current() Me.الشهر = Me.MothDiffNum Me.Refresh End Sub Private Sub تاريخ_الاستحقاق_AfterUpdate() Me.الشهر = Me.MothDiffNum End Sub Private Sub تاريخ_اليوم_AfterUpdate() Me.الشهر = Me.MothDiffNum End Sub طرح بين تاريخيين.accdb

يمكنك استخدام هذه الدالة ولكن في استعلام وليس في الجدول : DateDiff("m";[تاريخ الاستحقاق];[تاريخ اليوم]) تعطيك فارق الأشهر بين التاريخين هكذا : طرح بين تاريخيين.accdb

اللهم آمين وإياك يا زعيم الأغلبية 😊🤲🏻

(وفوق كل ذي علم عليم) 😅✋🏻 ومنك نتعلم حبيبنا 😄 عملت الموديول هذا من زمان بهدف أنه لما يكون عندي مرفقات مثلا أو ملفات مصاحبة للبرنامج تروح على طول جنب قاعدة البيانات سواء مقسمة ولا لا .. بدون ما أغير كل مرة في الكود 🙂 لكن شكلي هحدثه بالكود بتاعك شكله رشيق ودلع 😁

وعليكم السلام ورحمة الله وبركاته .. 🙂 ضع هذا الكود في موديول : Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DFirst("database", "msysobjects", "[Database]<> '""'"), "") LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) If FullLinkedPath <> "" Then BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function ثم أكتب في مصدر بيانات مربع النص : =BECurrentPath()