Shivan Kurdi - شڤان کوردی

الصورة بيقول نعم هو التمام تم البحث في مواقع الاجنبية ونعم ان الكود بيعمل ذلك من ادار 97 الى 2003 واحتمال ان يتم التشغيل على 2007 ايضاً لكن لا يشتغل على اصدار 2010 شكرا للجميع

نعم اليك هذا فرضنا عندك جدول باسم MAIN وحقل للتاريخ باسم MAIN وتدخل التاريخ هكذا DD/MM/YYYY سنستخدم هذا الكود DCount("*", "MAIN", "[MYDATE]=#" & Format(date, "DD/MM/YYYY") & "#")

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

اليك هذا الرابط بها ماتريد اعمل استعلام الفرق بين الجدولين

في موضوعك هذا انت ارفقت نموذج وبها حقل باسم date لذا لا يجوز ذلك لانه اسم محجوز لذلك يرى انه كحقل والله يعلم

ما فهمت ما تريد بالضبط هل تريد اخفاء نموذج ام شريط ادوات ام اي ممكن توضح اكثر شكرا استاذ جعفر لكونك معنا

استاذي الحبيب عند كتابة هذا في محرر الفيجوال Me.test1 = date() اوتوماتيكيا يتغير الى هذا Me.test1 = date * في محرر فيجوال

بوجودك صار عيدنا عيدين اللهم امين اجمعين ويسعدنا ... اللهم امين اللهم امين .. اجمعين شكرا .. وانت بخير وانت بالف خير

اليك هذا للاخفاء Private Sub Form_Load() DoCmd.ShowToolbar "Ribbon", acToolbarNo End Sub وهذا للاظهار Private Sub Form_Load() DoCmd.ShowToolbar "Ribbon", acToolbarYes End Sub

اتفضل اليك هذا الكود Private Sub Form_AfterUpdate() Dim sql As String sql = "INSERT INTO K4_History ( [No], [Grd-Tot], [Sum-Bal], [Net-Rest], New_K4, Old_K4, New_K6, User_Entry, [Note], K4_Type, Date_Entry ) SELECT Ded_K4_In.[No], Ded_K4_In.[Grd-Tot], Ded_K4_In.[Sum-Bal], Ded_K4_In.[Net-Rest], Ded_K4_In.New_K4, Ded_K4_In.Old_K4, Ded_K4_In.New_K6, Ded_K4_In.User_Entry, Ded_K4_In.Note, Ded_K4_In.K4_Type, Ded_K4_In.Date_Entry FROM Ded_K4_In WHERE (((Ded_K4_In.[No])=[Forms]![Ded-K4-New]![No]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True End Sub واليك المرفق DB1 (4).rar

ممكن ترفق نسخة مصغرة من قاعدة بياناتك

حسب فهمي لسؤالك اليك هذه الملاحظة عند كتابة DATE في محرر الفيجوال مثلا Me.start = date اذن انت بتقول مربع نصي اي حقل باسم ستارت يساوي تاريخ اليوم

اليك هذا test1000.rar

اليك هذا Private Sub تدقيق4_Click() If Time() >= #12:00:01 AM# And Time() <= #4:00:00 AM# Then Me.test1 = Date - 1 Else Me.test1 = Date End Sub test1001.rar

كل عام وانتم بالف خير عيدكم سعيد

اتفضل اليك هذا Private Sub Form_Current() If Len(Forms!frm_mowadef!subfrm!Daira & "") = 0 Then Forms!frm_mowadef!subfrm!Daira.Visible = False Else Forms!frm_mowadef!subfrm!Daira.Visible = True End Sub والمرفق بعد تعديل db2 (2).rar

اتفضل اليك هذا الكود Private Sub Form_Current() If Len(Me.Daira & "") = 0 Then Me.Daira.Visible = False Else Me.Daira.Visible = True End Sub لكن هناك سؤال مثلا رحت علسجل جديد وهو خالي من البيانات اي سيكون مخفية كيف تعطيه البيانات فيه ؟ واليك القاعدة بعد اضافة كود الاعلاه db2 (2).rar

في المرفق بها طريقتين طريقة لنماذج تيست و تيست 2 واخرى لنموذج فورم 1 و فورم 2

اعمل استعلام الحاقی لكن في المرفق المعلومات الرواتب لاشخاص الثلاثة ليس موجودة لذا يجب ان تأخذ البيانات الثلاثة من جدول المعلومات الرواتب بعدين تعمل استعلام الحاقي عيد سعيد

اليك هذا test1000.rar

اسف نسيت ان ادرج في الكود جدول اي دي لكن يتغير في جدول الاخر اتفضل اليك هذا سيتغير في كل الجداول Private Sub serial_AfterUpdate() On Error Resume Next Dim TeadilMyName As String TeadilMyName = "UPDATE ID INNER JOIN SUB ON ID.id1 = SUB.id SET ID.serial = [Forms]![DataMasterForm]![serial], SUB.serial = [Forms]![DataMasterForm]![serial] WHERE (((ID.id1)=[Forms]![DataMasterForm]![id]));" DoCmd.SetWarnings False DoCmd.RunSQL (TeadilMyName) DoCmd.SetWarnings True DoCmd.RunCommand acCmdSaveRecord End Sub اليك مرفق test444.rar

انا ما عملت اي شيء لزر ستارت انا عملت كود عند تحديث الاسم

اليك هذا الفيديو على التعديل ولم يظهر اي رسالة في القاعدة المرفقة Video_2017-06-24_053847.rar

انت عملته على قاعدة اخرى ... وذلك الجدول لا يسمح التكرار لذا اعمل تعديل على الجدول او غير اسم الى اسم اخر مثلا ليس يكون موجودة في جدول والا ارفق القاعدة اللي تعمل عليه انت

اعمل استعلام الحاقي حسب ماتريد بشروط او بدون شروط اي تريد ان تلحق كافة سجلات بدفعة واحدة ام السجل واحد اي سجل جديد بعد تحفظه ان يتم الحاق