AlwaZeeR

ممكن ترفع الملف بصيغة 2007!!! :: تحياتي

شرح الكود: ابحث عن price في جدول outcome عندما تكون قيمة codTy = قيمة الحقل، ضمن معيار codDe = قيمة الحقل الموجود في حقل X اعمل زر أمر وضع في حدث عند النقر الكود التالي: Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Total") rst.AddNew rst("coDde").Value = Me.X rst("totall").Value = Me.totall rst("date").Value = Me.Date rst.Update :: تحياتي

فهم السؤال ثلثي الإجابة الاجابة الاولى كانت على حسب ما طلبت تفضل أخي الكريم ،،، هذا ما طلبت جرب ووافني بالنتيجة :: تحياتي Alwazeer-mand.rar

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

SELECT Fieldname FROM Tablename WHERE (((Tablename.Fieldname)=DMax("Fieldname","Tablename"))) OR (((Tablename.Fieldname)=DMax("Fieldname","Tablename"))); وهكذا ... :: تحياتي

وعليكم السلام ورحمة الله وبركاته طريقة حل هذه الاشكالية: * افتح النموذج في وضع التصميم ثم اسحب للاسفل على حسب حاجتك *بزر الفأرة اليمين على شريط اسم النموذج واختر حفظ :: تحياتي

يوجد اداة اسمها: (VTools2007) يتم تنصيبها ضمن الاكسس وتعمل من داخله هذه الاداة تقوم بعمل امور كثيرة ومن ضمنها تغيير اسم الجدول وكل ما يتعلق به داخل قاعدة البيانات طريقة تنصيبها: * افتح الاكسس كمسؤول. *اختر من ملف فتح Vtools2007 وقم بتنصيبها ... طبعا الاداة باللغة الانجليزية. * بعد التنصيب افتح قاعدة البيانات التي تريد تغيير مسمياتها واكوادها ... اختر من شريط: أدوات قاعدة البيانات - وظائف إضافية - ثم اختر: v- total deep search سوف يفتح لك الصورة السابقة في search for ضع اسم الجدول او اي كلمة تريد تغييرها ثم ضع في المربع Replace with الكلمة التي تريد استبدالها بالقديمة ثم ضع اشارة الصح بجانب Replace with ثم اضغط search سوف تقوم الاداة بتحذيرك بانه سوف يتم استبدال ووو اضغط Ok سوف تلاحظ انه تم استبدال اسم الجدول وكل ما يتعلق به من اكواد ووو :: تحياتي VTools2007.rar

وعليكم السلام ورحمة الله وبركاته If a = DLookup("CodDe", "outcome", "codID=" & Me.codID) And b = DLookup("[CodTy]", "outcome", "codID=" & Me.codID) Then c = DLookup("[prt]", "outcome", "codID=" & Me.codID) Else c = "القيم لا تطابق المعايير" End If :: تحياتي alwazeer-1.rar

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

اخي الكريم: اعتقد بقليل من الصبر والبحث في المكان الصحيح يمكنك الحصول على ضالتك ابحث في قسم الفيجوال بيسك :: تحياتي

اخي الكريم: لا تنقل احساس أن الذين يقدمون المساعدة للآخرين في هذا الصرح على أنهم يعملون لديك!!! فالكلمة الطيبة والأسلوب الحسن كفيل أن يسهل الصعب ويسخر الجميع في خدمتك - زر الاعجاب بهذا - ما هو إلا اختصار لكلمة شكراً أو جزاك الله خيراً لما يقدمه الإنسان المسلم لأخيه المسلم :: تحياتي

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

اخي الكريم : طريقة تحويل قاعدة البيانات الى اصدار سابق لا تحتاج خبرة أو مبرمج ليقوم لك بهذا العمل!!! اتبع الخطوات: لنفرض ان القاعدة لديك Access 2007 وتريد تحويلها الى Access 97 - افتح القاعدة ثم انقر زر الاوفيس الدائري واختر حفظ باسم. - من حفظ قاعدة بيانات بتنسيق اخر اختر التنسيق الذي تريد. اخر تنسيق في الاكسس Access 2007 هو Access 2000 ولحفظ قاعدة بياناتك بصيغة Access 97 احفظها بصيغة Access 2000 او Access 2002 - 2003 ثم استخدم اصدار سابق اقل من Access 2007 وليكن Access 2003 ومن خلاله تستطيع حفظ قاعدة بياناتك بصيغة Access 97 :: تحياتي

استخدم : Me.txt482.Value = Round(Me.txt482.Value,0) للحقل الذي تريد اظهاره في الرسالة او ارفق مثالا للتعديل عليه :: تحياتي

حقل الادخال: qproduced بعد التحديث ::

select case qproduced case > text482 msgbox("القيمة التي تم ادخالها أعلى من قيمة الحقل (" & [text482] & ")" DoCmd.CancelEvent end select

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

حياك الله اخي الكريم حقل التاريخ خاصتك: A حقل النتيجة : B ضع هذا الكود في حدث بعد التحديث للحقل خاصتك: B = DateSerial(Year(a), Month([a]), 1)

[score]<([highscore]/2) في التعبير الشرطي للاسم : ضع في شرط التعبير: ثم غير اللون الى الاحمر :: تحياتي Alwazeer-1.rar

تفضل اخي الكريم هذا نموذج تسجيل دخول به كل ما تحتاج ان شاء الله :: تحياتي loginsample.rar

ضع الكود التالي في الاستعلام الخاص بالنموذج : Total: IIf(IsError(DSum("[Credit]-[Debit]","advane","[id_adv]<=" & [id_adv])),0,DSum("[Credit]-[Debit]","advane","[id_adv]<=" & [id_adv])) سوف يعيد القيمة الى صفر في حالة الخطأ... :: تحياتي Alwazeer-Database9.rar

كلمة مرور على قاعدة بياناتك ...

انشئ زر امر وضع في حدث عند النقر الكود التالي: Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("T1") rst.AddNew rst("Edara").Value = [schoolID].[Column](2) rst("school").Value = [schoolID].[Column](1) rst("SAFE").Value = [schoolID].[Column](4) rst("school_kind").Value = [schoolID].[Column](3) rst.Update :: تحياتي

السلام عليكم ورحمة الله وبركاته،،، اذاُ لا نحتاج الى عمل تجميع للصفوف في ملف الاكسل. اصبح هناك نقطة اساسية يجب تغييرها على التصدير لاكسل وهي: - التصدير للصف حسب الاختيار ولا حاجة لتجميع الصفوف في ملف اكسل واحد. * هل تريد عند استيراد العلامات من اكسل للملف الرئيسي في البرنامج ان يتم استيراد جميع البيانات بما فيها الاسماء ام خلايا محددة؟ * هل تريد ان يقوم بتحديث البيانات ام يضيفها تراكميا الى الجدول الرئيسي في البرنامج؟ وافيني بالاجابات :: تحياتي

خطأ في ربط الجداول (العلاقات)