فتى الوادي

شكراً لك يا أبو هادي .... أنا أستخدمت طريقة أخرى وهي =([txt2]/[txt1])*100-100 txt1=الشراء txt2=البيع مع وضع التسيق format = رقم ثابت

السلام عليكم إذا كان عندي نموذج جدولي كما في الصورة ومربع نص غير منضم اسمه ( نسبة الربح ) وأريد أن تظهر نسبة سعر البيع إلى سعر الشراء ... فكيف يتم عمل ذلك .. مع الدعاء لكم بالخير والتوفيق مقدماً ..

السلام عليكم للرفع !!! وين الشباب ... (y)

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

الله يعطيك العافية ,,, وما قصرت ..

يعطيك العافية .. لكن .. ماذا تقصد بالقيمة ( 1 ) ؟!!!

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

السلام عليكم أشكر للجميع ردودهم .... ولا أملك لكم ألا الدعاء في ظهر الغيب ..

السلام عليكم كيف يمكن تحديد عدد خانات حقل بحيث لا يزيد ولا ينقص عن عشرة أرقام ؟؟!!

السلام عليكم كيف أقوم بوضع كلمة مرور لحماية الكود من الأطلاع والتعديل ؟؟‍

السلام عليكم أستخدم هذا الكود عند فتح النموذج ... Dim txtmot As Recordset Set txtmot = Me.RecordsetClone If txtmot.RecordCount = 0 Then MsgBox " عفواً لايوجد بيانات " Me.Undo Cancel = True Else End If

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

السلام عليكم أخي شاكر الزين .. شكر الله صنيعك .. وأحسن مثواك .. وغفر الله لك ولوالديك .. وزوج الله بكراً ... (y) والسلام عليكم

السلام عليكم أمتداداً للسؤال السابق .. إذا كان عندي قائمة وفيها القول ( رقم السند ، تاريخ السند .. ) ويوجد لدي مربعين نص ( رقم السند ، تاريخ السند ) المطلوب : عند النقر على أحد السجلات في القائمة أن تنقل قيمة رقم السند إلى مربع النص ( رقم السند ) وتنقل قيمة ( تاريخ السند ) من القائمة إلى مربع التص ( تاريخ السند )

الأخ شاكر الزين ... بالنسبة لأستفسارك حول تكرار رقم السند ... لأن تاريخ السند يختلف ... أحدها في عام 2003 والآخر في 2004 وأكتشفت أن هذه هي المشكلة في عدم نجاح الطريقة التي ذكرتها ... وقد تم التعديل على ذلك ... وشكراً لك وللجميع ... ولا أملك لكم إلا الدعاء في ظهر الغيب .

السلام عليكم .. الأخ أسامة .. لم أستطيع تحميل المثال .. وطبقت ما ذكرته ولم افلح .. الأخ شاكر الزين .. حاولت التعديل على مثالي ولم أستطيع .. ممكن تشاهدون المثال المرفق . الله يجزل لكم المثوبة والعطاء .. http://ftws.net/alzaeem1/1free/db6.zip

السلام عليكم عندي قائمة فيها الحقول التالية : رقم السند تاريخ السند أريد عن النقر المزدوج على أحد سجل تظهر بياناته في تقرير .. فكيف أقوم بذلك ؟! مع الشكر الدعاء .

السلام عليكم أبحث عن كود يقوم بالبحث عن ملف معين من نوع .txt فإذا تم العثور عليه في المسار الصحيح تعمل القاعدة أو سوف تغلق القاعدة . جربت البحث بدون جدوى .. فهل أجده لدى أحد الأخوة الكرام . والسلام عليكم

أشكر للجميع ردودهم .. وشكر خاص للأخ أسامة ... ولا أملك لك إلا الدعاء .. أنحلت المشكلة ... غفر الله لكم ولوالديكم ....

السلام عليكم أشكر لك أهتمامك .. لكن المبرمج لم يضع كود أنتهاء .. لأن المبرمج هو ( حضرتي ) :') والمشكلة أالأهم أني لا أستطيع أستيراد الجدوال ... ولو أستطعت أستيرادها لهانت المشكلة ..

للرفع... (y)

السلام عليكم عندي قاعدة بيانات على جهاز آخر .... ومنذ سنتين تقريباً وأنا أعمل عليها زي السكر ... وفجأة ....! لم أعد قادراً على فتح القاعدة ؟!!! عند تشغيل القاعدة لا يظهر لي شي وتبقى شريط الأكسيس فقط ... المشكلة هنا في :1 - أن القاعدة تم ألغاء الشفت بها 2- القاعدة تم وضع حماية عليها .. بحيث لو نسخت ووضعت على جهاز آخر لن تعمل . 3- الجداول مخفيه بالكود . حاولت أن ألغي عمل الشفت بكود ألغاء الشفت من قاعدة أخرى ولم أفلح !؟؟ حاولت أن أستورد الجدوال .. ولم أفلح ؟!!! فما هي المشكلة ؟؟ وكيف أستورد الجدوال وهي مخفيه ؟؟؟؟؟؟ وما سبب هذه المشكلة .. والسلام

السلام عليكم لدي قاعدة بيانات على الأكسيس وفيها سندات قبض .. ولدي طابعة نقطية ( أبسون LQ 300 ) .. والسندات عندي مطبوعة على أوراق مخرمة ... مقاس A4 وفي كل ورقة سندين قبض ... السؤال : كيف أستطيع أن أجعل الطابعة المذكورة تقف عن منتصف الورقة ( اي نهاية السند الأول ) .. ثم تطبع السند الثاني وتقف عند نهايته وهكذا ... فهل هناك إعدادت معينة ..؟؟!!

الحل الثاني هو المطلوب ... طريقة حسابها عن طريق الأستعلام سهلة .. لكن اريد أن أحدث قيمة حقل ( المجموع السابق ) في الجدول فما هو الكود المناسب .. مع ان لدي كود ينقصه عملية الجمع للسابق ، وهو : Dim db As Database Dim MyTABLE As Recordset Set db = DBEngine.Workspaces(0).Databases(0) Set MyTABLE = db.OpenRecordset("جدول1", dbOpenTable) Do While Not MyTABLE.EOF MyTABLE.edit 'هنا يوضع كود عملية جمع حقل ( المبلغ ) في حقل ( الجموع السابق MyTABLE.Update MyTABLE.MoveNext Loop MyTABLE.Close هذه هو كود التعامل مع الجداول ... لكن ما هو الكود اللي يستطيع يجمع لي القيم من حقل ( المبلغ ) ويجمعها في حق ( المجموع السابق )

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