فتى الوادي

السلام عليكم الأخ أبو هادي وجميع الأخوة المشاركين ... الجحدول مرفق ... جدول الصادر

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

السلام عليكم ... يا أخوان البرنامج يعمل مضبوط على الشبكة .... لكن أحياناً المستخدم 1 والمستخدم 2 يدخلون في نفس الوقت ويضغطون على زر الأدخال في نفس الوقتت مما يسبب تكرار للرقم ... أنا استخدم Dcount ودالة Dsum لكن المشكلة كما قلت أنه أحياناً يتم تحديث السجلات في وقت واحد مما يتسبب في تكرار الرقم .... فهل هناك حل ؟!

السلام عليكم... أخي خضر .. أشكر لك أهتمامك ..... لم تحل المشكلة بعد ...

بارك الله فيك أخي خضر وغفر الله لك ولوالديك ...

السلام عليكم .. لدي برنامج فيه ترقيم تلقائي سنوي .... البرنامج يعمل ممتاز على جهاز مستخدم واحد .. الآن وضعته على جهازين مرتبطين بشبكة ..... لكن حصل فيه تكرار للترقيم ....! حيث أني أستخدم دالة Dmax للحصول على رقم ويضاف له 1 .. الأن عندما يدخل المستخدم الأول والمستخدم الثاني يعطي لهم رقم مكرر لك منهم .. فما هو الحل مع العمل على الترقيم التلقائي السنوي والشبكة ..!!! غفر الله لي ولكم ،،، والسلام عليكم .

السلام عليكم حاولت أعمل الكود يظهر لي هذه الرسالة

بيض الله وجهك ..... وغفر الله لك ولوالديك وأنا في الأنتظار ...

يعطيك العافية أخوي ... هل تتكرم بمثال للفائدة ...

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

السلام عليكم ... استخدم هذا الكود عند حدث عند الخروج من حقل ( الرقم ) If IsNull(Me.الرقم) Then MsgBox "عفواً لقد ترك حقل الرقم فارغاً .." Cancel = 1 DoCmd.GoToControl "الرقم" Else End If

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

السلام عليكم.... جزاكم الله خيراًُ .... هل نطمع ببرنامج لجمعيات تحفيظ القرآن الكريم .. غفر الله لكم ..

السلام عليكم أقصد ماذا تريد من البرنامج أن يخدمك ؟ وهل أنت تدير مجموعة محافظ بيع وشراء للأسهم ؟ أو أنك تريد برنامج مباشر يعرض لك أسعار الأسهم الحالية .... فهذا له برنامج اسمه ( مباشر ) أما إن كنت تريد برنامج التحليل الفني ( الستوك ... والشارات والشموع اليابانية ... الخ فهذا فيه برامج جاهزة تباع بأسعار من 1500 دولار .... على حسب علمي .. amotaib@hotmail.com

السلام عليكم ... أخي الكريم ... أنت أعرف بما تريد .... أشرح لنا المطلوب وممكن نسوي لك البرنامج ...... حسب طلبك ....

السلام عليكم ... إذا كنت تريد برنامج تجاري على طلبك .... يمكنك الأتصال على ( اعمال الغد للبرمجيات ) بالرياض 0505116119 أو البريد : amotaib@hotmail.com

السلام عليكم ... أخي سهل ابو نعيم .... بار ك الله فيك .. هل يمكن أن تكون هذه الدالة هي هذه : Calendar = vbCalHijri TxtTDateHijri = Date TxtTDateHijri = Format(TxtTDateHijri, "dddd dd / mm / yyyy ") & " åÜ" Calendar = vbCalGreg TxtTDateGreg = Date TxtTDateGreg = Format(TxtTDateGreg, "dd / mm / yyyy") & " ã " وإذا كانت مثلاً هي السابقة .. فكيف أنقلها للطرف الثاني ... حتى يعمل البرنامج بكفاءة ؟ غفر الله لنا ولكم ولوالدينا . والسلام

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

السلام عليكم .... جزاك الله كل خير يا أخي رضا .. وبارك الله فيك وفي علمك ونفع الله بك البلاد والعباد ... وغفر الله لنا ولكم .

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

السلام عليكم ... أولاً الكود يحتاج إلى مرجع DAO ثم تعدل مسميات الحقول والنماذج اللي في الكود بمسيميات الحقول والنماذج والجداول عندك ...

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

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

السلام عليكم ... أو استخدم هذا الكود : 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![ÇáÑÞã] = MyTABLE![ÇáÑÞã] + "/8" MyTABLE.Update MyTABLE.MoveNext Loop MyTABLE.Close

السلام عليكم .... هذا هو المثال يا أخي سهل .. وقد رفعت الموضوع لحاجتي لمعرفة الطريقة .. http://www.officena.net/ib/index.php?act=A...pe=post&id=1670 المثال هنا