Shivan Rekany

حسب رأيي ان تستخدم حالة عند الضغط عليه بدل تمرير الماوس سيكون احسن والله ييعلم

السلام عليكم ورحمة الله وبركاته ما قصدك بالضبط ؟ الحل استاذنا جعفر وافي و كافي اليك التعديل على المرفق اعتذر منك استاذنا @jjafferr ما رأیت مشارکتک استعلام بالموظفين.rar

اعمل ديفيلوت فاليو لحقل التاريخ = DATE() بلى يحتسب .. لكن يحتسب فقط السجلات اللي تاريخهم هو تاريخ اليوم المرفق اللي في مشاركتي السابقة مضبوطة وبيشتغل تمام

اولا .. اهلا بك في منتداك منتدى اوفيسنا ثانيا .. الجواب نعم ثالثا .. اليك بعض روابط على ذلك

عند كتابة الكود في محرر فيجوال نستخدم "" وعند كتابة الكود في مصدر السجل نستخدم "" ... للعلم اتفضل استخدمت هذا الكود =DCount("*";"المراجعين";"[التاريخ]=#" & Format(Date();"yyyy/mm/dd") & "#") اليك المرفق بعد تعديل مثال لعدد السجلات المدخلة في اليوم.rar

استأذن من استاذنا @jjafferr اتفضلي اليكي هذا الاستعلام التحديث UPDATE DISTINCTROW Cutting INNER JOIN Salary ON Cutting.EmpNumber = Salary.EmpNumber SET Salary.Absent_Cutting = DCount("[ID]","Cutting","[EmpNumber]=" & [Salary]![EmpNumber] & " and [No_of_Absent] <> 0"); واليكي القاعدة بها الاستعلام باسم كويري2 bmn (1).rar

الفرق بين و الاول لا يقبل التكرار على المستوى السجل كامل بل يقبل التكرار على مستوى الحقل والثاني لا يقبل التكرار على المستوى الحقل اي مثلا عندنا جدول بها ثلاث حقول وهذه اسماءه ID , MYNAME , MOBILE اذا استخدمت الطريقة الاولى على حقلين MYNAME , MOBILE مثلا كتبت اسم شفان و رقم موبايل 12345 وكتبت في سجل اخر شفان و رقم موبايل 11111 هناك مافي مشكلة راح يقبل لكن اذا كتبت شفان و رقم موبايل 12345 هناك ما راح يقبل واذا استخدمت طريقة ثانية وفي سجل كتبت اسم شفان و رقم موبايل 12345 وفي سجل التاني لا يقبل ان ان تكتب في حقل اسم اسم شفان

اتفضل اليك هذا Dim sql As String 'sql = "UPDATE [C:\Users\MyShiv\Desktop\تحيث جدول في قاعدة خارجية\db1.mdb].Table1 INNER JOIN [C:\Users\MyShiv\Desktop\تحيث جدول في قاعدة خارجية\db2.mdb].Table2 ON Table1.ID = Table2.ID SET Table2.nAME = [Forms]![Form1]![nAME], Table2.no_phone = [Forms]![Form1]![no_phone] WHERE (((Table2.ID)=[Forms]![Form1]![ID]));" 'sql = "UPDATE Table1 INNER JOIN [C:\Users\MyShiv\Desktop\تحيث جدول في قاعدة خارجية\db2.mdb].Table2 ON Table1.ID = Table2.ID SET Table2.nAME = [Forms]![Form1]![nAME], Table2.no_phone = [Forms]![Form1]![no_phone] WHERE (((Table2.ID)=[Forms]![Form1]![ID]));" sql = "UPDATE Table1 INNER JOIN [db2].Table2 ON Table1.ID = Table2.ID SET Table2.nAME = [Forms]![Form1]![nAME], Table2.no_phone = [Forms]![Form1]![no_phone] WHERE (((Table2.ID)=[Forms]![Form1]![ID]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True MsgBox "تم تحديث" واليك قاعدة بيانات بعد تعديل اولا اختر قاعدة بيانات باسم db2 بعدين اضغطعلى زر للتحديث تحيث جدول في قاعدة خارجية - Copy.rar

اليك هذا لعل يفيدك Dim objAcc As Access.Application Set objAcc = GetObject(txtPath) objAcc.DoCmd.DeleteObject acTable, "table2" objAcc.Application.Quit Set objAcc = Nothing DoCmd.CopyObject txtPath, "table2", acTable, "table1" الكود اولا سيحذف جدول باسم تابل 2 بعدين سيعمل نسخ جدول تابل 1 الى قاعدة خارجية ويتم تغير الاسم بتيل 2 جرب ووافيني بالنتيجة

اليك سمك 660.1.Test2006.mdb.zip

استاذن من استاذنا جعفر

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

اتفضل استخدمت كومبوبوكس مع مربع نصي واستخدمت هذا الكود Private Sub Combo16_AfterUpdate() If Me.Combo16 = "صواب" Or Me.Combo16 = "true" Or Me.Combo16 = "-1" Then Me.on_or_of = -1 ElseIf Me.Combo16 = "خطا" Or Me.Combo16 = "false" Or Me.Combo16 = "0" Then Me.on_or_of = 0 Else Me.on_or_of = "" End If Me.TestF.Form.Requery Me.Refresh End Sub 660.Test2006.rar

660.Test2000.rar

660.Test2000.rar

افتح جدول K4_History في وضع تصميم غير خصائص Indexed لحقل No من Yes (No Duplicates) الى Yes (Duplicates OK) واحفظ التغيرات الجدول وجرب

الحمدلله تم الوصول الى النتيجة انا عملت حقل جديد في الاستعلام بواسطة هذا s_nm1: DLookUp("[s_nm]";"ss";"[no]='" & [no] & "'") هو يبحث عن حقل s_nm في جدول ss بشرط ان يكون قيمة في حقل no في جدول يكون يساوي مع حقل no في استعلام ولان حقل no في جدول هو من نوع نصي لذلك اضفنا علامة (') و ("'") مع الشرط و اذا وصلت للجوابك ... اعمل علامة صح امام جواب الصحيح لكي من يمر هنا يعرف ما هو جواب لهذا السؤال تقبل تحياتي

اتفضل اليك هذا استعلام .. سيعتمد على الرقم الفرع وليس اسم الفرع واعمل تقرير على هذا استعلام SELECT ss.[no], DLookUp("[s_nm]","ss","[no]='" & [no] & "'") AS s_nm1, Count(ss.[no]) AS CountOfs_no FROM ss GROUP BY ss.[no]; all.rar

حسب فهمي لسؤالك فقط عليك الاعتماد على الحقل الاسم بدل الكود واذا تعطينا مثال وتوضح ما تريد بالمثال سنعطيك ما تريد بطريقة احسن من هذا ان شاء الله

هل التريد ان يكون هناك 1/ تفريق بينهما 2/ عدم تفريق بينهما

اليك هذا all.rar

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

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

شکرا لک اخی الظابط اللهم امين .... وانت بالف خير امين اجمعين .... وانت بالف خير اللهم امين اللهم امين اجمعين وفي اخر يوم من العيد اقول عيد سعيد ... وكل عام وانتم بالف خير نتمنى لكم السعادة

لا اخي [mydate] هو حقل في الجدول اللي بندخل فيه التاريخ وعملنا شرط اللي تاريخ في ذلك الحقل بيساوي مع تاريخ اليوم وللتاريخ اليوم استخدمنا Format(date, "DD/MM/YYYY") date = اليوم الحالي لكن اذا تريد ان تختار للييوم من الايام من الاحسن ان تعمل تيكست بوكس في نموذج وتكتب فيه تاريخ وتكتب اسم المربع بدل date وبعدين عند كتابة اي تاريخ فيه سيعدد لك السجلات في ذلك التاريخ هذا والله يعلم