ابوخليل

اخي الكريم يجب مراعاة قواعد المشاركة 1- احتيار عنوان مناسب يصف المشكلة او الفكرة 2- الاقتصار على سؤال واحد محدد في كل مشاركة اعتذر من الجميع : يغلق ،،،

اخي الكريم : يرجى الاكتفاء بسؤال واحد في كل مشاركة لئلا تعرض موضوعك للغلق

اخونا عمر حفظه الله : هذا يعد مخالفة لقواعد المشاركة 1- عدم اختيار عنوان مناسب يصف الموضوع 2- طرح اكثر من سؤال في المشاركة يغلق ،،،

تفضل اكمل البقية Public Function tArqam(strx As Integer) Dim x As String Select Case strx Case 1 x = "يوم واحد فقط" Case 2 x = "يومين فقط" Case 3 x = "ثلاثة أيام فقط" Case 4 x = "أربعة أيام فقط" End Select tArqam = x End Function

اعذروني عن التأخر حتى الآن لم اجد الوقت الكافي للبحث والتجربة بالنسبة للسيرفر فسألت متخصصص بقواعد بيانات sql وقال ان التاريخ الافتراضي متوفر (getdate) ويمكن ان تستدعيه من اي جهاز فرعي ولكنني ابحث عن حل ضمن قواعد بيانات أكسس وكلام وتجربة ابو جودي حقيقية لأنك لو عملت جدول من حقل واحد وجعلت قيمته الافتراضية NOW() فان قيمته الحقيقية = Null لانه حقيقة خالي من البيانات وصلت الى اكثر من حل بشرط امكانية تطبيقه : 1- ان يكون البرنامج على جهاز المدير يعمل بشكل دائم اثناء وقت العمل ، وهنا يمكن توظيف نموذج يقوم بادخال التاريخ والوقت الحالي في الحقل المذكور كل ثانية ( وهذه الطريقة موثوقة وآمنة ) 2- الاعتماد على المدخلات خلال اليوم الحالي في الفترة المسموح بها بحيث نوجد حقل ياخذ الوقت الحالي يمكن الرجوع اليه داخل الكود ( علما ان هذه الخطوة لا تخلوا من ثغرات ) 3 - استدعاء ساعة الجهاز البعيد ( السيرفر ) بمعلومية شبكة اللان او الآي بي وهذا باعتقادي حل متقن وآمن . في الوقت الحالي لا املك اجهزة لربطها واجراء التجربة ، وان تسنى لي سأحاول ان شاء الله

قيد النظر ... آمل وبالتعاون معك ان نجد طريقة آمنة

السلام عليكم وبعد اذن اخي محمد هل هذا مطلوبك تسجيل الايرادات2.rar

اكتب هنا الكود الذي يقفل النموذج

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

اشرح ما تريد بدقة

انسخ الكود والصقه في حدث عند تحميل النموذج

لو كنت اقدر على فتح مرفقك لعدلت لك من المشاركة الاولى تفضل هذا تطبيق للفكرة db1.rar

الصق هذ الكود في محرر الفيجوال Private Sub c1_AfterUpdate() If c1 = True Then subfrm.SourceObject = "SubForm1" Else subfrm.SourceObject = "" End If End Sub على اعتبار اسم خانة الاختيار = c1 وخذ بالاعتبارات السابقة ايضا في تسمية النموذج الفرعي وعنصر الحكم

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

غالب البرامج الاحترافية التي تعتمد على pc الجهاز المحلي تتم حمايتها بالاستعانة بملفات نظام التشغيل واخص منها في وندز ملف تسجيل النظام او ما يسمى بالريجستري Registry يتم التسجيل داخله والتعامل مع البيانات كما لو تتعامل مع جدول

subfrm.SourceObject = "SubForm1" subfrm.SourceObject = "" على اعتبار subfrm هو عنصر تحكم النموذج الفرعي داخل النموذج الرئيس و SubForm1 هو النموذج الفرعي السطر الاول يربط فيظهر الفرعي والسطر الثاني يفك الارتباط فيختفي

الغ اي فكرة داخل الجداول حاول تجعل الحماية داخل نظام التشغيل

هلا اخوي شفان يعني تستخدم الجدول في حفظ هذه البيانات يمكن ادخل على الجدول وانظفه

موضوع مخالف لقواعد المشاركة عدم اختيار عنوان مناسب نأسف لتطبيق النظام xxx يغلق xxx

2003

السلام عليكم للاحتراف : عليك بــ 2003 يدعم صلاحيات المستخدمين وصفحات النت والا فاخرج من اكسس واستخدم ستوديو دوت نت كان زمان الواحد يتردد على المنتدى شهر شهرين ويصبح خبير اكسس وبعد الاصدارات الحديثة الواحد يتردد سنين ولا يحصل شي السبب لانها تصنع له معظم الخطوات

هذا برنامج يستخرج الجداول اتمنى ان يفي بحاجتك accessfix.rar

لم اجرب على 2007 او اصدار اعلى فلعل بعض الاخوة ممن جرب يفيدك في هذا ولكن يمكنك التجربة : ابحث في الكود عن mdb واستبدلها بــ accdb

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

اذا الاصل العيادة والطبيب طارىء ، لانه منطقيا احتمال تغير الاطباء