ابوخليل

الرسائل النصية تعمل بشكل جيد المشكلة في المرفقات فقط

الحمدلله على التمام و الكمال ‏اللهُم لا تجعله آخر عهدنا في رمضان ‏اللهُم أعده علينا أعواماً عديدة وأزمنةً مديدة عيدكم مبارك و‏كُل عام و إنتم بخير ‏

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

تفضل Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing Viewer2.accdb

لا لست وحدك .. بل غالب الاعضاء يعاني .. نلتمس له العذر ... وندعوا له بالخير .. ونحمد الله الذي انعم علينا وعافانا .

غير السطر Path = CurrentProject.Path & "\MyBk\" الى Path= "C:\Users\myuser\Documents\MyBk\" او الى Path= "C:\Users\myuser\Documents\MyBk" لا حظ يجب تغيير myuser الى اسم المستخدم عندك في وندوز

منظم : من التنظيم وهو الترتيب منضم : من الانضمام وهو الارتباط للتصحيح : تكتب : غير منضم .. و منضم ..... وليس منظم

غير بهذين السطرين فقط كما هو موضح Public Function crBkp() As Boolean Path = CurrentProject.Path & "\MyBk\" target = Path & nm & Format(Now(), "dd-mm-yyyy h m s") & ".accdb" End Function

الحمد لله .. هذا افضل .. هكذا تعلمنا .. بالمحاولة والبحث

شوف الحدث المناسب وضع هذين السطرين Me.Filter = "" Me.Requery مثلا تعمل زر وتسميه : تحديث .... وتضع السطرين في حدث النقر

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

تجد ادناه في المرفقات خطوط خاصة بقارىء الباركود + المكتبة : لتفعيل ظهور خطوط الباركود في مربع الاداة أولا : انسخ جميع ملفات الخطوط والصقها في مجلد الخطوط في وندز ثانيا : طريقة تسجيل الاداة barcodex.ocx في الويندوز ليقبلها الاكسيس للنظام 32 بت 1. قم بنسخ الاداة الى مجلد C:\WINDOWS\system32 2. اذهب الى ابدأ واختر تشغيل وضع هذا الامر regsvr32 "C:\WINDOWS\system32\barcodex.ocx" للنظام 64 بت 1. قم بنسخ الاداة الى مجلد C:\WINDOWS\sysWow64 2. اذهب الى ابدأ واختر تشغيل وضع هذا الامر regsvr32 "C:\WINDOWS\sysWow64\barcodex.ocx" regsvr32 "C:\WINDOWS\system32\Acropdf.dll" 3. اضغط موافق وسيتم تسجيل الاداة وظهور رسالة تفيد بنجاح عملية التسجيل Barcode.rar

مختصر مفيد بدلا من كتابة رقم المنتج داخل الحقل يدويا والنقر على انتر للانتقال الى حقل آخر قارىء الباركود : يقرأ خطوط الباركود على الملصق/ ويحولها الى رقم / ويلصقها في الحقل/ وينقر انتر نيابة عنك ليس هناك برمجة ولا اكواد ... فقط تضيف المكتبة الخاصة في النظام فقط ابحث في المنتدى بكلمة باركود وستحصل على ملف المكتبة . barcodex.ocx

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

جميل شرح باسهاب انا اتكلم عن حركة التنقلات وليس الاجراءات .. انا معك الاجراءات المتعددة كل واحد منها يحتاج جدول فرعي يخصه انا شاركت في عمل منشأة صحية الجدول الرئيس + الجداول الفرعية التالية : - غرفة الكشف المبدئي ( قياس الضغط والحرارة ... الخ) - جدول المختبر - جدول الاشعة - جدول التشخيص والاجراء ووصف الدواء ... ( الجزء الخاص بالدواء يظهر في الصيدلية ) الآن سنعمل على الأرض والمسؤول عن التنقلاات حقل واحد موجود في سجل المريض الرئيسي في الجدول الرئيس ودعنا نسميه الحقل x عندما يأتي المريض للاستقبال سواء كان جديد او سبق له المراجعة .. فان كان جديد قام بتسجيل بياناته والا بحث عنه اذا ظهر اسم المريض امامه ينقر على تحويل فيأخذ (الحقل x) رقم غرفة الكشف ليظهر في غرفة الكشف بعد تعبئة النتيجة في جدوله الفرعي ينقر على تحويل فيأخذ (الحقل x )رقم غرفة الطبيب ... لا اطيل عليكم بعد معاينة الطبيب للمريض قد يحتاج الى تحاليل فينقر على زر المختبر ليأخذ (الحقل x) رقم المختبر >>> وهكذا يعيد المختبر النتيجة الى غرفة الطبيب الاستقبال لديه خيار واحد وهو التحويل الى غرفة الكشف ، وقد يتم تمكينه للتحويل الى الطبيب غرفة الكشف لديه خيار واحد عند التحويل وهو التحويل الى غرف الأطباء فقط ومثله المختبر / والأشعة الطبيب لديه جميع الخيارات .. الاشعة / المختبر / غرفة الكشف / اغلاق الملف .. ليظهر في الاستقبال الذي اريد ايضاحه ان التنقلات بين الاقسام تتم بمعلومية (قيمة حقل) في السجل الرئيس يتغير حسب التدرج المتبع

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

الحقيقة الداخل في البرنامج مفقود والخارج مولود على كل حال تمت معالجة المشكلة كما اشرت ايك في مشاركتي الأخيرة وهذه صورة للنموذج T3Q-Copy3.rar

هل القيمة تظهر في الحقل PreviuseBalnce ؟ اقصد في حقل : الرصيد السابق

الله يلطف بحال من يتعامل مع عملك هذا لم اتمكن من اظهار العمليات بسبب الاكواد المحشورة في form1 وعلى كل حال جرب الآن التعديل داخل استعلام : تجميعات حسب اسم الحساب انسخ هذا والصقه بدلا من الموجود ووافني بالنتيجة PreviuseBalnce: Round(ClcPrevAllBalances(0;[Accounts].[Accounts_Type_ID];[forms]![form1]![FromDate];1);2)

هنا يجب استخدام مشرط الجراح ارفق مثالا صغيرا

لا فرق .. نموذج او تقرير شرحي اعلاه ينطبق على الكل

سيختلف التنسيق باختلاف مكان الحقل انت قلت ان العمود في التقرير ، فاذا كان الحقل منضم ومصدر بيانات التقرير استعلام .. سواء كان استعلام خارجي او داخلي .. لنفرض ان الحقل في الاستعلام اسمه txtSum وهو عبارة عن جمع حقول سيكون الترتيب على هذا النحو txtSum: ([txt1]+[txt2])-([txt3])*2 يتم ادراج الدالة على هذا النحو txtSum: Round([txt1]+[txt2])-([txt3]);2) اما اذا كان الحقل تجميعي وغير منضم فيتم الكتابة هكذا =Round(([txt1]+[txt2])-([txt3]);2) اذا كان باستخدام كود داخل المحرر سيكون على النحو التالي .. لاحظ تغير الفاصلة txtSum=Round(([txt1]+[txt2])-([txt3]),2)

استخدم الدالة Round i هكذا : =Round([mytextNumber];2)

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

غالبا تظهر هذه الرسالة بسبب اللغة في وندوز ، عندما يتم نقل البرنامج من جهاز الى آخر