Shivan Rekany

اضف في جدول السرعة "اخر " والقي نظرتا الى الكود الكود هو نفس الكود السابق تقريبا CODE20177.rar

جرب بدل ان تستخدم Me.السرعة استعمل هذا Me![السرعة] ووافيني بالنتيجة

القي نظرتا الى هذا CODE.rar

لانك ليس في سجل جديد بل انت على سجل قديم تعمل تعديلات اتفضل عند تضغط على زر الحفظ راح يحفظ ما عملت ويفتح سجل جديد لكي تعمل سجل جديد اي اضفت هذا الكود Private Sub ÃãÑ80_Click() Docmd.Runcommand accmdsaverecord DoCmd.GoToRecord , , acNewRec End Sub اتفضل مع القاعدة شكرا لملاحظتك استاذنا @jjafferr slamaa.rar

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

ما فهمت قصدك ... هل قصدك سجل جديد ؟

اتفضل تم اضافة هذا الكود على مثال استاذنا @jjafferr هذا لاوبشن كروب Private Sub opt_Click() If Me.opt = 1 Then Me.نوع_التعامل = "مميز" ElseIf Me.opt = 2 Then Me.نوع_التعامل = "عادي" ElseIf Me.opt = 3 Then Me.نوع_التعامل = "جيد جدا" End If End Sub وهذا ل ليست بوكس Private Sub lst_Click() If Me.lst = 1 Then Me.نوع_التعامل = "مميز" ElseIf Me.lst = 2 Then Me.نوع_التعامل = "عادي" ElseIf Me.lst = 3 Then Me.نوع_التعامل = "جيد جدا" End If End Sub ما في فرق بينهما واتفضل القاعدة الك بعد اضافة الكود 657.Database1.accdb.zip

استأذن من استاذنا الحبيب @رمهان اتفضل اليك هذا DoCmd.OpenReport "ÊÞÑíÑ1", acViewPreview, True, "[رقم الحافظة]=" & Me.Text34 طباعة مرفقات.rar

انفضل اليك بعض روابط على شبكة وهذه الروابط لل اتفضل تقبل تحياتي

افتح جدول باسك اكسبر1 انظر الى اربع سجلات الاخيرة هم فارغة احذفه

استأذن من استاذنا @عبد الله قدور اخي الكريم @حمادة عثمان السبب يرجع للمصدر النموذج وهو استعلام واذا تفتح الاستعلام لذا انا حذفت مصدر الاستعلام واستبدلت تيكست بوكس للرقم الى كومبوبوكس بها حقلين وعمل تلك الاستعلام الاولى مصدر لكومبوبوكس و عطيت كود بعد تحديث لكومبوبوكس اي عند تكتب الرقم او تختار الرقم سيجي اسم الى مربع نصي للاسم وملاحظة اخرى لا يجوز ان تعطي لاسماء المربعات النصي ارقام فقط يجب ان تكتب اي تبدأ بحرف وبعدين رقم لذا انا غيرت اسماء المربعات النصية ايضا اتفضل اليك قاعدة بياناتك بعد تعديل case 3.rar

هل ما كان تريد هكذا استخدمت هذا hadr: [a] & [b] & [c] & [d] & [e] & [f] & [g] & [h] & [i] & [j] & [k] واذا تريد ان لا يجمع الحقول الفرغة يجب تستخدم iif لكن الكود سيكون طويل حسب عدد الحقول بس من الممكن ان تعمل فانكشن و تستخدمه في استعلام sumTxt.rar

وعليكم السلام ورحمة الله وبركاته اللهم امين والحمد لله رب العالمين واللهم بلغنا رمضان تمام حقول نصية بها اسماء لذا بدل ان تستخدم + استخدم & تقبل تحياتي

احسنت عملا شكرا لك

عدا هذه الطريقة الاسفل لاستاذنا ابوخليل اليك هذه الطريقة عند تضغط على زر الفتح في نموذج الاساسي وقبل الكود فتح النموذج الثاني اكتب DoCmd.Minimize وعند اغلاق النموذج الثاني اكتب Private Sub Form_Close() On Error Resume Next Forms![main-form].SetFocus DoCmd.Maximize End Sub واليك ملفك بعد تعديل db1.rar

نعم اعرف انا لا استخدمت قاعدة بياناتها لان بعد ما وضح لي المطلوب الى اختنا @ساره عبدالمنعم مثلا السنين تابع لموظف الاول مثلا هما 1914 و 1915 و 1916 و 1917 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 و 1919 ما تريد الان هل تريد ان يظهر لكل موظف سنتين الاخرين ام تريد ان تظهر السنتين الاخرين 1918 و 1919 وفي هذه الحالة سيكون للموظ الاول ما بها اي سجل

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

بكل سرور لان مصدر نموذجك هو استعلام q1 لذا انا غيرت في اسم الجدول الى اسم الاستعلام وتقدر تكتب اسم الجدول ايضا لكن الاسم الجدول اللي هو مصدر الاستعلام استخدمت هذا Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id]", "q1", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub واليك ملفك بعد تعديل test150.rar

اتفضل اليك هذا القاعدة بها ما تريد عملته الان لكن باربع خطوات اولا عملت استعلام لكي احصل على احدث سجل ثانيا عملت استعلام لكي احصل على كل الاسماء في الجدول عدا اسم اللي في استعلام الاول ثالثا على استعلام الثاني انا عمل استعلام اخر لكي احصل على احدث سجل بينهم بعدين عملت استعلام تجميع يونيون لكي احصل اجمع كلا السجلين مع البعض واحتمال ان يكون هناك طرق مبسط من هذا اتفضل مع القاعدة احدث 2 سجلين.rar

اذا تريد ان تحصل الى احدث سجل انت ستحتاج حقل اخر وهو حقل الان اي NOW وعند تعمل تحديث للسجل في اي حقل كان سيأخذ حقل الاضافي اللي قيمته الان وقت التحديث وهناك تقدر تحصل للسجل الاحدث مع تحياتي

اذا تريد ان لا يكرر الاسم فقط اليك هذا الكود قبل تحديث الاسم Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub

سيكون هكذا If Me.MYDATE > #11/5/2015# And Me.MYDATE < #5/5/2017# Then هناك ملاحظتين 1 / MYDATE هو مربع نصي اللي تكتب فيها التاريخ 2 / انتبه من نوعية ادخال التاريخ عندك , اي يعني احتمال يكون عندك مثلا يوم شهر سنة او شهر يوم سنة او سنة يوم شهر

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

IF ME.MYDATE > ME.FIRSTDATE AND ME.MYDATE < ME.LASTDATE THEN واذا تريد ان يكون يساوي او يقع بين تاريخين القيمة 9.25% يختار من اي قيمة التاريخين ثابتين !! هل هما قيمة مخصصة ام ماذا؟

انا لا اعرف هل هذه المشاركتي مخالفة للقوانين ام لا اتفضل خذت هذا من برامجي اللي اعمل عليه الان BackUp.rar