رمهان

اخينا عبدالعزيز اولا اعذرا على الفترة السابقة يمكن انشغلت او نسيت الموضوع وكما ذكر لك ابو خليل انت بحاجة اعادة للتصميم ولكن هذا حل كما وعدتك وب dsum تم اضافة عمود الاجمالي في جملة الاستعلام لمصدر النموذج الفرعي وباسم expr1 ثم اضافته للنموذج الفرعي ولم يعد هناك حاجة لوجود عمود الاجمالي في الجدول بالتوفيق Aziz (2).rar

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

مشكور اخ صالح انا اقصد التعبير التالي للسنوات =DatePart("yyyy";(DateDiff("d";[b];Date()))+1)-1900 من اين جاءت 1900 ولماذا بالناقص ؟ ولماذا اضفنا واحد ؟ وكذلك التعبير التالي للاشهر DatePart("m";(DateDiff("d";[b];Date()))+1)-1 لماذا +1 ثم -1 ؟! ياليت تشرح فكرة الحل وليس شرح الدالة تحياتي

اخي صالح وبعد اطيب تحية هذه المعادلة او التعبير هو نفس ما شاركت به في اول رد وهو الحل المناسب لان السؤال كان مشترطا عدد السنوات فقط وكانت باللون الازرق فشاركت بذلك التعبير لسهولته وقمت انت بالتطبيق مشكورا وحصلت الفائده طلبي هو : التكرم بشرح التعبير او المعادلة في مشاركتك الثالثة والتي تم بها حساب العمر بالتفصيل كسنوات واشهر وايام وحبذا شرح كل تعبير على حده اي تعبير عدد السنوات والاشهر والايام تحياتي

كنت اقصد روابط من منتدانا او منتدى عربي بعدين عاتب عليك حيث ظل طلبي في تعديل العنوان فتره طويله لم يعدل شكرا على المرور

احبتي انا راح اخذ راحتي في النقاش لاني مع معلمي ابا عارف وشخص ثقته في نفسه عاليه لن يحسب نقاشي في حسبه غير الفائدة والتنبيه بطريقتك الاخيره ابا عارف لو حصل ان الفارق بين وقتين بالدقائق فانك ستحصل على الفارق بين الساعات كعدد وهذا ليس صحيحا فمثلا 1:59 و 2:5 سيحصل الفارق بالساعات 1 وهذا ليس صحيحا حيث الفارق كوقت صفر ساعة و ست دقائق تحياتي

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

ايه رايكم نفتح تصنيف جديد بالمنتدى ونسميه "اكسسل" مع اجمل التحايا استاذ ياسر

بالطريقة هذي استاذ عارف لن يتم جمع الوقت لاكثر من 24 ساعة ! وكذلك اجمالي الدقائق عند تخطي 1440 هذا والله اعلم اخي ساندانت حاول تطبيق المشاركة بالرابط السابق ومع الاخ سلمان بالتوفيق

اهلا بك الاستاذ عبدالعزيز في منتدى الاكسس وتشرفت بالرد ضع التعبير التالي في حقل جديد باستعلام جديد Expr1: DateDiff("yyyy";[birth];Date()) وتم استخدام الدالة datediff لحساب فرق السنوات بين تاريخين حيث اصبح التاريخ الثاني هو دالة تحسب تاريخ اليوم بالتوفيق

بعد اذن استاذي ابا عارف ومشاركة لعل بها فائدة تحياتي

انقل التركيز لاي عنصر اخر ثم ضع خاصية التمكين = لا مثلا me.text1.setfocus me.button1.enabled=false

جميلة الفكرة وجديدة واعجبتني ويكتمل جمالها بتنفيذها تفضل هذا مثال جديد واستوردت الجدول الرئيسي مع انشاء نموذج جديد حبيت انفذ الفكرة بشكل بسيط وواضح خطوات او فكرة الحل : - انشاء مربعات نص بنفس مقاس مربعات السرد - انشاء تعبير بداخل كل مربع لجلب القيم المطلوبة من مربعات السرد - وضع خاصية التاق للمربعات المراد اظهارها واخفاؤها وباسم "aa" اذهب الى خصائص المربع ثم غير ذلك ثم خاصية العلامة - وضع كود يلف على اي عنصر تتوفر فيه الخاصية علامة= aa فيقوم باخفائها في حالة الاضافة او التعديل واظهارها في البحث سؤال : هل هذا شبيه بالذي رايته في احد البرامج كما ذكرت ؟ بالتوفيق New Microsoft Access Database (6).rar

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

وعليكم السلام انا شايف الموضوع شي والمشاركات شيء اخر ! حسب فهمي انت تريد اختفاء القائمة المنسدلة في وضع البحث وتظهر في وضع التعديل والاضافة ؟ هات مرفق جديد خفيف قابل لتطبيق المطلوب عليه ! بالتوفيق

نفترض اسماء الحقول f1,f2,f3 =nz(f1,0)+nz(f2,0)+nz(f3,0) ومعناته استخدام دالة التعويض بقيمة عندما يكون الحقل فارغ بالتوفيق

استاذ كرار ايش رايك Private Sub aaa_AfterUpdate() tw.Visible = aaa = "متوفي" ts.Visible = aaa = "شهيد" End Sub

اعتقد استاذ سعيد انك تقصد <=date()-30 لانه المراد الذي مضى عليها شهر فاكثر تحياتي

جرب ان تضع التعبير التالي كعمود جديد بالاستعلام query1 Expr1: DCount("*","items","categoryid=" & [CategoryID] & " and itemid<=" & [ItemID]) بالتوفيق

السلام عليكم ضع هذا الكود خلف زر البحث وكما هو ظاهر وان شاء الله احصل وقت واختزل الكود اكثر Private Sub cmbsearch_Click() xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = "" For i = 1 To 20 If Not IsNull(Me("inv" & i)) Then xsql = xsql & " where shawa.esa_num=" & Me("inv" & i) & " union all SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = Me("inv" & i) End If Next i If n = "" Then xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" Else xsql = Left(xsql, InStr(1, xsql, n) + Len(n) - 1) End If Me.esano_1.Form.RecordSource = xsql Me.Refresh End Sub بالتوفيق

انصح بهذه الطريقة دائما وخصوصا عند نقل القاعدة لاجهزة اخرى بالتوفيق

السلام عليكم يمكن ترك الرقم كما هو متسلسل 1 - 2 - 3 - 5 ويتم ربطه مع سنة التسجيل كعملية حسابية وحسب حاجة مكان الظهور مثلا حقل الرقم id وحقل التاريخ dt يكون المعادلة او التعبير =id & "/" & year(dt) بالتوفيق

العفو اخ علي بالتوفيق