نجوم المشاركات

السلام عليكم ورحمة الله اخواني كنت قد شاركت بعض الاخوة مشروعا بسيطا لتسديد الفواتير سواء مبيعات اومشتريات وكان المشروع غير مكتمل البنية احببت ان ارفق لكم ما حاولت به لاجعله مقبولا وقابلا للاستخدام 737.rar

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

أشكرك أخي على التوضيح .....

لقد حولت المشكلة جزاك الله خير

تفضل هذه الصورة للتوضيح

كةلةك ممنون سةيدا هةر ساغ بي برا.... واو برا تؤش كوردى خؤمانةى ؟؟؟

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

جزاك الله خيرا اخي الحبيب.....وبارك الله فيك... كةلةك ممنون سةيدا هةر ساغ بي برا....

أخى الفاضل لعدم تغير قيمة العملة وتاريخها يجب ربطها مع تاريخ حركة اليوم ولعدم تغيير القيمة مع التاريخ يمكن وضع حماية تعديل الخلية بعد الادخال

اتفضل اليك هذا Private Sub Command29_Click() DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO sub ( [no], price, tests, selecting ) SELECT [Forms]![chem]![MyListNumber] AS MyListNumber, chem.price, chem.test, chem.[select] FROM chem WHERE ((([Forms]![chem]![MyListNumber])=[Forms]![chem]![MyListNumber]) AND ((chem.[select])=Yes))") MsgBox "تم اضافة" DoCmd.RunSQL ("UPDATE chem SET chem.[select] = No;") DoCmd.SetWarnings True DoCmd.Close acForm, Me.name Form_sub.Requery End Sub Tests (1).accdb

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

' انظر لموقع عبارة Barna في الاسطر التالية If (IsNull(strDBPassword) = True) Or (strDBPassword = "Barna") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink