Amr Ashraf

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

ليس هو المطلوب اخى الكريم المطلوب ان حقل TotalBill يتم تحديث سعره ليساوى القيمة الموجودة فى الاستعلام وهذا الحقل هو اجمالى قيمة الفاتورة ككل بكامل الاصناف الموجودة داخلها وليس قيمة الحركة كما طبقت انت فى المرفق ... على العموم جزيل الشكر على المتابعة هل الموضوع غير واضح للأساتذة على العموم سأحاول التوضيح : انا قمت باضافة فاتورة بها 3 اصناف وعند الاضافة يقوم البرنامج بحساب قيمة الفاتورة اجمالا ويضيفه بجوار رقم الفاتورة فى الجدول رأس الفاتورة طيب بعد الاضافة اتضح ان هناك خطأ فى سعر صنف من الاصناف وحبيت اعدل سعره ,, عند تعديل السعر فى هذه الحالة سيقوم بتعديله فى تفاصيل الفاتورة لكن قيمة الفاتورة الاجمالية التى تم الحاقها الى جدول اخر عند اضافة الفاتورة لن يتم تحديثها ولذلك اردت طريقة تقوم بتحديث اجمالى سعر الفاتورة ليصبح يساوى مجموع اسعار الاصناف عملت استعلام يقوم بجمع اجمالى اسعار الاصناف واستدعيت منه قيمة الفاتورة ولكن المشكلة هنا تحدث عن تحديث سعر او كمية صنف من الاصناف الموجودة فى الفاتورة حيث انه لا يستدعى السعر الجديد الموجود بالاستعلام الا بعد الانتقال من السجل الحالى بالطبع لأنه اذا لم ننتقل من السجل الحالى كأننا لم نعدل على قيمة السجل من الاساس ... وبالتالى لو عملنا استعلام تحديث ليحدث قيمة الفاتورة فى الجدول الاخر سيقوم بتحديثها الى السعر القديم قبل التعديل الاخير ... اختصارا لم تنفع هذه الطريقة واسف على الاطالة

وعليكم السلام ورحمة الله وبركاته كنت مستعجل ولذلك ما جهزت مرفق ... تفضل المرفق ومازالت المشكلة قائمة بعد ازالة السطر المشار اليه بالنسبة للمرفق اضغط ضغطتين فى الحقل الفارغ ثم اضغط ضغطتين على نتيجة البحث ليتم كتابتها فى الحقل الفارغ فى النموذج FrmAmr أو FrmMoh على حسب النموذج المفتوح منهما 2.rar

السلام عليكم اساتذتى الافاضل من باب التسهيل فى تصميمى قد استخدم نموذج بحث شامل يصلح عمله على جميع النماذج وعند الضغط على اسم الصنف يتحقق من النموذج المفتوح ويدرج اسم الصنف فيه ولكن الكود به مشكلة If CurrentProject.AllForms(Trans_top).IsLoaded = True Then Forms![Trans_top]![Text98] = Me.Orient DoCmd.Close Else Forms![FrmAmr]![Field] = Me.Orient DoCmd.Close End If ماهو سبب الخطأ فى هذا الكود لا يعمل بالطريقة التى اريدها ... جزاكم الله خير

up

السلام عليكم اساتذتى الافاضل فى المرفق عندى جدولين رأس الفاتورة وتفاصيلها فى رأس الفاتورة موجود الرقم والتاريخ واجمالى الفاتورة وفى التفاصيل موجود تفاصيل الصنف بالكميات واسعار البيع او الشراء واجمالى الحركة المطلوب عند التعديل على قيمة ( كمية البيع او كمية الشراء او سعر البيع او سعر الشراء ) فى نموذج التعديل يتم التعديل تلقائيا فى جدول رأس الفاتورة ليكون اجمالى الفاتورة بيساوى مجموع اجماليات الحركات الموجودة بها ويظهر اثر ذلك فى النموذج بدون الانتقال من السجل الحالى فى المرفق حاولت اعملها باستعلامات ولكن النتيجة تظهر متأخرة وليست متزامنة مع التحديث الق نظرة على المرفق جزاك الله خير .... دمتم بخير 1.rar

والله يا استاذى الفاضل احب جدا اتناقش معك فى المشاكل بحس انى اتعلم كتير جزاك الله خير وزادك علما ... ان شاء الله بجرب واشوف النتيجة تقبل فائق احترامى تمام النتيجة استاذ جعفر وبالفعل غيرت نوع المتغير لدوبل مع العلم كنت عامله دوبل فى الاول بس جربت كتير وبالنسبة لموضوع Debug.print اول مرة اصادف عمله وبحثت عنه فى منتدى اجنبى واستفدت جدا من الطريقة جزاك الله خير

استاذ @jjafferr بعد التجربة على القاعدة الاصلية حدث معى خطأ لا اعرف سببه حيث ان عدد السجلات خاطئ ليس بالعدد الفعلى الذى ينطبق عليه الشرط لو تكرمت القى نظرة على المرفق 5.rar

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

استاذى الفاضل جعفر جزاك الله خير على المعلومة ولكنى لاحظت شئ فى حالة ان الحقل المطلوب عده غير منضم Unbound تظهر رسالة خطأ Item is not found in this Collection هل هناك طريقة لتفادى الامر لأن القاعدة الاساسية المطلوب عده حقل غير منضم وليس منضم تقبل تحياتى انظر المرفق 3.rar جزاك الله خير يا غالى نفس الملاحظة لن تعمل الطريقة على الحقول الغير منضمة فى النموذج انظر المرفق 3.rar

استاذى الفاضل مازالت المشكلة قائمة بيعطى #خطأ مرفق قاعدة مصغرة 2.rar

انا استخدم النسخة الانجليزية اخى الكريم ولذلك عندى , وليس ; شكرا على المتابعة

السلام عليكم اساتذتى الافاضل ما الخطأ بهذا الكود =Count(IIf("[text286]>0",0)) تقوم بحساب عدد السجلات الموجودة بالنموذج كلها بدون تطبيق الشرط المطلوب المطلوب من الكود القيام بالعدد بشرط الحقل أكبر من صفر وللعلم الحقل غير منضم ومصدره حاصل جمع حقلين اخرين وبالنسبة للكود موجود فى حقل نصى فى تذييل نموذج مستمر Continuos Form دمتم بخير

اسف على الاطالة اخوتى تم حل الموضوع ويعمل جيدا جزاكم الله خير الحل كان كتابة الكلمة المطلوبة بين تنصيص مفرد ' '

السلام عليكم اساتذتى الافاضل هناك مشكلة بكود استعلام الالحاق المرفق لا يلحق سجلات فى الجدول وتمت مراجعة المفاتيح الاساسية ولا يوجد اى مشاكل تمنع من الحاق البيانات برجاء النظر للمرفق دمتم بخير 1.rar مشكورين وجدت المشكلة فى الكود جزاكم الله خير ولكن لدى استفسار اخر ماذا لو اردت الحاق كلمة معينة بالاضافة الى البيانات من النموذج ليصبح الكود مثلا كالتالى DoCmd.RunSQL "INSERT INTO Account_Payable ( voucher, zDate, Client, LEin, Remarks, LEout,Type )SELECT [Forms]![Normalize]![Voucher] AS Expr6, [Forms]![Normalize]![zdate] AS Expr1, [Forms]![Normalize]![Item] AS Expr2, [Forms]![Normalize]![Out] AS Expr3, [Forms]![Normalize]![Remarks1] AS Expr4, [Forms]![Normalize]![in] AS Expr5 , "Type is Pay";" بحيث يتم الحاق الكلمة المكتوبة فى اخر الكود "Type IS Pay" فى الحقل Type من الجدول المطلوب جزاكم الله خير

السلام عليكم اساتذتى الافاضل ما الخطأ فى هذا الكود Public Function RunMe() On Error GoTo err Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = CurrentDb.OpenRecordset("QryRemarksEdit", dbOpenDynaset) If rst.EOF Then Exit Function Do Until rst.EOF If IsNull(rst!Remarks) Then rst!Remarks.Edit rst!Remarks = "تجديد تلقائى" rst.Update End If rst.MoveNext Loop On Error Resume Next Set db = Nothing rst.Close Set rst = Nothing Exit Function err: MsgBox err.Number & ": " & err.Description End Function الفكرة انه هيفتح استعلام معين ويقوم بتعديل حقل Remarks فى حالة انه فارغ ويكتب جملة معينة ثم ينتقل الى السجل التالى لينظر فى توافر الشروط ويكرر العملية وهكذا ... ما الخطأ فى الكود جزاكم الله خير 1.rar شكرا جزيلا وجدت الحل والخطأ كان فى السطر rst!Remarks.Edit المفروض rst.Edit

لم انزل المرفق ولكن قد يكون مسار القاعدة مكتوب بصيغة خاطئة( المفروض يكون هناك \\ قبل اسم الجهاز المطلوب على الشبكة وبعدين تكمل المسار عادى ) او ليس لديك الصلاحيات الكافية على الجهاز الاخر يمكن احد الاخوة يفيدك افضل بالتوفيق

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

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

هذه ليست جداول وهمية اخى الكريم هذه جداول النظام ...عامة انا مش هعرف اشرحها بالعربى لكنها فى الانجليزى Navigation Options ثم Show Hidden Object ازل علامة الصح من امامها هتختفى الجداول

افتح موضوع اخى الكريم

انظر المرفق هناك نموذج جديد Form1 school2.rar

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

مشكلة اعدادات اللغة فى الويندوز اخى الكريم لو ما اتحلت المشكلة قولى وانا اشرحها لك

مشكور استاذى