يوسف أحمد

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

و فيك بارك استاذنا الغالي محمد .. و انت اكثر .. انشغلنا كثير دعواتك لنا .. و انا سادعو لكم بظهر الغيب ان يحفظكم المولى و يرعاكم و يوفقكم لما فيه الخير دائماً .. تعديل بسيط بالكود Dim db As DAO.Database Dim rsA As DAO.Recordset Dim rsB As DAO.Recordset Dim i As Integer Set db = CurrentDb Set rsA = db.OpenRecordset("A") Set rsB = db.OpenRecordset("B") If Not (rsA.EOF And rsA.BOF) Then rsA.MoveFirst Do Until rsA.EOF For i = 1 To rsA!numberOfIds rsB.AddNew rsB!teacherName = rsA!teacherName rsB!subject = rsA!subject rsB!cClass = rsA!cClass rsB.Update Next i rsA.MoveNext Loop MsgBox "تم تنفيذ العملية بنجاح" End If rsA.Close rsB.Close db.Close Set rsA = Nothing Set rsB = Nothing Set db = Nothing a.rar

السلام عليكم اخي العزيز ضياء اقدم لك احد الحلول .. اولاً تقوم بإنشاء الجدول B و تعيد اسماء الحقول بالانجليزي حتى يسهل التعامل معها بالكود ثم تضع الكود التالي على زر امر بنموذج Dim db As DAO.Database Dim rsA As DAO.Recordset Dim rsB As DAO.Recordset Dim a As Integer Dim i As Integer Set db = CurrentDb Set rsA = db.OpenRecordset("A") Set rsB = db.OpenRecordset("B") If Not (rsA.EOF And rsA.BOF) Then rsA.MoveFirst Do Until rsA.EOF For i = 1 To rsA!numberOfIds rsB.AddNew rsB!teacherName = rsA!teacherName rsB!subject = rsA!subject rsB!cClass = rsA!cClass rsB.Update Next i rsA.MoveNext Loop MsgBox "تم تنفيذ العملية بنجاح" End If rsA.Close rsB.Close Set rsA = Nothing Set rsB = Nothing Set db = Nothing تفضل المرفق بعد التعديل ارجو ان يكون هو المطلوب بالتوفيق a.rar

و عليكم السلام اخي العزيز مؤمن هذه طريقة لعمل ذلك و قد يكون هناك طرق اخرى 1- ضع مربع نصي على النموذج ( اجعل خاصيته مرئي على القيمة لا ) و في حدث عند الفتح للنموذج تحدد قيمة له كالتالي : Me.txtTimer = 5 على اعتبار ان اسم مربع النص txtTimer ... هذا سيحدد خمسة ثواني نفس الكود تضعه في حدث عند تحريك الماوس لمنطقة تفصيل النموذج و ذلك ليتم اعادة وضع القيمة بمربع النص 2- من خصائص النموذج و من التبويب حدث : تضع القيمة 1000 بالخاصية الفاصل الزمني لعدد الوقت و في حدث عند عداد الوقت تضع الكود التالي : Me.txtTimer = Me.txtTimer - 1 If Me.txtTimer = 0 Then DoCmd.Quit Else Exit Sub End If هذا الكود سيقوم بانقاص قيمة مربع النص بواحد حسب قيمة الفاصل الزمني و هي هنا تساوي ثانية واحدة حتى تصل قيمة مربع النص الى صفر فيتم اغلاق البرنامج بإمكانك تعديل القيمة من خمسة ثواني الى الرقم الذي تريده ( فلو اردت مثلا خمسة دقائق تضرب الخمسة في 60 ) بشرط ان تضع نفس القيمة في الاحداث التي وضعناها بها ( حدث عند فتح النموذج و حدث عند تحريك الماوس لمنطقة تفصيل النموذج ) تفضل مثال على ذلك بالتوفيق اغلاق البرنامج .rar

اكتب من الموبايل.... اعمل جملة شرطيه if احسب فيها السجلات التي تطابق الشرط باستخدام الداله dcount ضع الكود السابق اذا كان ناتج الجمله اكبر من صفر اما في else تضع رساله تبلغك بعدم وجود سجلات تطابق الشرط و تخرج من الاجراء exit sub سيناريو فقط لم استطع وضع كود من الموبايل بالتوفيق

بارك الله فيك اخي العزيز عبد الله و الاستاذ العزيز رمهان لم انتبه للعلامات ( وجبت زيارة طبيب العيون ههههههه ) شكراً لكما

و عليكم السلام و رحمة الله و بركاته اخي العزيز بو عبد الله جرب الكود التالي Dim rs As Recordset Dim Criteria As String Set rs = CurrentDb.OpenRecordset("tblHeuresPerdus", dbOpenSnapshot, dbReadOnly) Criteria = "[Machine]='" & [cboMachine] & "'" _ And "[LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _ And [Opérateur] = " & [cboOpérateur]" بالتوفيق

اعتذر لم اشاهد الحل المقدم من قبلك استاذنا العزيز رمهان .. ولكن زيادة الخير بركة ان شاء الله ابداً لا يوجد تعب اخي العزيز بو عبد الله .. شرف لي المشاركة معكم بارك الله فيك

لا شكر على واجب اخي العزيز بو عبد الله شكراً لك على التوضيح تفضل الكود بعد التعديل Dim rs As DAO.Recordset Set rs = Me.Recordset If Me.NewRecord Then rs.FindLast "[Opérateur] =" & [txtSave] Else rs.FindPrevious "[Opérateur] =" & [txtSave] If rs.NoMatch Then MsgBox "انت الآن في السجل الأول" Else Me.Bookmark = rs.Bookmark End If End If ارجو ان يكون هو المطلوب هذه المرة بالتوفيق

و عليكم السلام و رحمة الله و بركاته اخي العزيز بو عبد الله غير الكود للزر المطلوب الى الكود التالي If Me.NewRecord Then DoCmd.GoToRecord , , acFirst MsgBox "انت الآن في السجل الأول" Else With Me.RecordsetClone .FindPrevious "[Opérateur] =" & [txtSave] If .NoMatch Then MsgBox "انت الآن في السجل الأول" Else Me.Bookmark = .Bookmark End If End With End If ارجو ان يكون هو ما تقصده بالتوفيق

و عليكم السلام و رحمة الله و بركاته اخي العزيز جمال وضع مثال من طرفك يسهل على الجميع الحل .. جرب وضع التعبير التالي في معيار الاستعلام Is Not Null قد يكون هو المطلوب بالتوفيق

رائع استاذ رمهان .. بارك الله فيك و زادك من علمه و فضله

و عليكم السلام اخي العزيز محمد النجار اعجبني السؤال اشكرك ... و الشكر موصول لاستاذنا العزيز رمهان و الذي دلني عليه الحل تطلب مني الغاء المفتاح الاساسي لحقل mid الكود التالي يوضع في زر الاسفل Dim rs As dao.Recordset Dim frm As Form Dim downMid, downFood, downUnit, TopMid, TopFood, TopUnit As String Dim downQuantity, downPrice, TopQuantity, TopPrice As Double Dim Bkmark As String Set frm = Me![main].Form Set rs = frm.RecordsetClone If rs.RecordCount = 0 Then Exit Sub End If rs.Bookmark = frm.Bookmark TopMid = rs("mid") TopFood = rs("food") TopUnit = rs("unit") TopQuantity = rs("qty") TopPrice = rs("price") rs.MoveNext If rs.EOF Then Exit Sub Else Bkmark = rs.Bookmark downMid = rs("mid") downFood = rs("Food") downUnit = rs("Unit") downQuantity = rs("qty") downPrice = rs("price") rs.Edit rs("mid") = TopMid rs("food") = TopFood rs("Unit") = TopUnit rs("qty") = TopQuantity rs("price") = TopPrice rs.Update End If rs.Bookmark = frm.Bookmark rs.Edit rs("mid") = downMid rs("food") = downFood rs("Unit") = downUnit rs("qty") = downQuantity rs("price") = downPrice rs.Update frm.Requery frm.Bookmark = Bkmark مع تغيير السطرين 17 و 18 الى rs.MovePrevious If rs.BOF Then لزر الاعلى ملاحظه : Mid هو اسم لداله و من الافضل عدم استخدامه حيث انه يعتبر اسم محجوز تفضل المرفق بعد التعديل و بالتوفيق ترتيب سجلات.rar

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

حل آخر في حال اردنا ان نضع قيمة بالحقل و نحصل على الناتج .... لأن الطريقة السابقة تعتمد على المجموع التراكمي Public Function RunTotal(Phases As Integer) As Integer Dim i As Integer intSum = 0 For i = 0 To Phases intSum = intSum + i Next i RunTotal = intSum End Function ارجو ان يكون هو المطلوب استاذنا الغالي

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

و عليكم السلام و رحمة الله و بركاته اهلا باستاذنا العزيز ابو خليل .. اسأل الله ان يجعل ما تقدمه في موازين حسناتك ارجو ان يكون الحل هو ما تبحث عنه استاذنا الغالي Public Function RunSum(Phases As Integer) As Integer Static intSum As Integer If Phases = 1 Then intSum = 0 RunSum = intSum + Phases intSum = RunSum End Function بالتوفيق

و عليكم السلام و رحمة الله و بركاته اخي العزيز لعمل ذلك ضع التعبير التالي كمصدر لمربع النص الثالث =IIf([s1]>[d1];3000;[s1]) بالتوفيق

و عليكم السلام اخي العزيز سمير اضع لك احد الحلول و هو بالقيام بحذف الحرف الاول ثم ايجاد طول النص و مقارنته بطول النص الكامل .. لاحظ الاستعلام مصدر النموذج ملاحظة : تم تغيير بعض المسميات لحقل الاسم و النموذج ... بسبب استخدام اسم عربي للنموذج و اسم محجوز لحقل الاسم .. ايضاً تم حذف الحقل d من الجدول لانه يعتبر حقل محسوب لذا تم وضعه في الاستعلام باسم expr4 بالتوفيق othq.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز محمد يمكن عمل ذلك بالطريقة التاليه : 1: تعين قيمة لخاصية النموذج ( Tag ) او بالعربي ( علامه ) و لتكن القيمه 1 2: في حدث عن النقر لزر الترحيل تضيف الكود التالي : Me.Tag = 2 الكود سيعين قيمة للخاصيه Tag للنموذج و هي 2 3 : في حدث عند النقر لزر امر الخروج للنموذج تضع الكود التالي : If Me.Tag = 2 Then DoCmd.Close Else MsgBox "لم يتم ضغط زر الترحيل" Exit Sub End If الكود سيفحص قيمة الخاصية للنموذج فإن كانت 2 اي انه قد تم ضغط زر الترحيل فسيتم اغلاق النموذج و ان كانت القيمة غير ذلك فانه سيظهر رسالة للمستخدم بأنه لم يتم ضغط زر الترحيل و يتم الخروج من الاجراء .... يمكنك استبدال الكلمة close بالكلمة quit ان اردت الخروج من البرنامج. ملاحظة : الخاصية Tag للنموذج تجدها في صفحة الخصائص و بالتحديد في اخر التبويب ( غير ذلك ) بالتوفيق

و عليكم السلام و رحمة الله و بركاته تفضل اخي العزيز حسن احد الحلول بالملف المرفق معذرة اخي العزيز ابو عبد الله لم انتبه الى مشاركتك الا الآن لأنني كنت مشغول بالحل و تحرير المشاركة .. بارك الله فيك و جعلك سباقاً الى الخير دائماً . بالتوفيق تواريخ.rar

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

Database date+ -.rar

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

و فيك بارك اخي العزيز yms12 البيانات المكتوبة وهمية حسب قول اخي السائل الرقم بالخانة 13 اذا كان زوجي يكون المولود انثى و اذا كان فردي يكون ذكر لمزيد من المعلومات اطلع على الرابط ادناه تفضل من هنا مع جزيل الشكر و التقدير لك على مرورك و اهتمامك بالتوفيق للجميع