ابوخليل

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

الحمد لله .. وانت واهلك واحبابك بالف خير .. وشكرا على دعواتك الطيبات

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

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

تمام استاذ عبدالله يا سلام عليك وهذا ما يوصى به وهناك فائدة اخرى عظيمة وهي التخفيف على قاعدة البيانات فباتباع هذه الطريقة ستستوعب الجداول اضعاف اضعاف فيما لو تم ادخال البيانات والنصوص كاملة . هذا مثال لتشفير البيانات داخل الجداول كلمة المرور 123 وهو اجابة لصاحب السؤال ahmedrashed في توضيحه ومشاركته الثانية مع الاخذ بالاعتبار مقولة عدم تحقق الحماية الكاملة حماية.rar

المشكلة هذه بسبب اعدادات اللغة اضبط اعدادات اللغة في وندوز /لوحة التحكم / المنطقة واللغة

السلام عليكم حاول دائما ان تكتب اسماء الجداول واسماء الحقول بحروف انجليزية وأن لا تترك مسافات خالية بين الكلمات حتى يسهل عليك تعلم كتابة الجمل البرمجية والاكواد وفي مثالك المرفق تعاملت انت في الجدولين مع الارقام الرئيسية والفرعية شجريا ، والتفريعات الشجرية في الارقام لا تتم الا حين نستخدم جدولا واحدا ، ولكن حين نستخدم جدولين تنتهي مهمة التفريعات الشجرية في الارقام ونكتفي بالعلاقة الحاصلة بين الجدولين . سأرفق لك مثالا عثرت عليه لشجرة حسابات فإن لم يحقق فكرتك فيمكنك ارفاق مثال جديد مراعيا التوجيه اعلاه فيما يخص انشاء الجداول db1.rar

قيد النظر ...

تفضل الصق هذا الكود في حدث عند التحميل للنموذج : If day(Date) = 1 Then DoCmd.OpenForm "frm1", acNormal

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

طيب وماذا تعمل في فرق الدقائق ؟

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

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

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

تقصد الاستئذان خلال ساعات العمل سأنظر لك في ذلك ...

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

الحمدلله .. وشكرا على دعواتك الطيبة .. وجعل الله لك نصيبا منها

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

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

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

استاذنا العزيز السيد جمال كنا نعمل في وقت واحد رغم المسافة الهائلة بيننا .. وسبقتني بفارق دقيقة شكرا لك

مشاركة مع اخوتي واحبتي الكرام تفضل .. وغير ما يلزم .. حسب المسميات عندك Dim rs As Recordset Private Sub cmdOK_Click() Set db = CurrentDb Set rs = db.OpenRecordset("tblUsers", dbOpenDynaset) rs.FindFirst "UserName = '" & UserName & "' and password ='" & Password & "'" If rs.NoMatch Then MsgBox "هذا المستخدم غير مسجل" Exit Sub Else DoCmd.OpenForm "frm_main" DoCmd.Close acForm, Me.Name End If End Sub

وعليكم السلام انظر هذا النظام ربما يروق لك

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

كم اتفقنا انك تفرد كل سؤال بموضوع وعنوان جديد يخصه بالنسبة للحل اعلاه كما قلت لك : افتح التقرير على التصميم / ثم انقر على الخلية بزر الفأرة الأيمن اختر من القائمة : تنسيق شرطي سيظهر لك مربع حوار وسترى القيمة التي وضعتها انا وهي morte=-1 ولون الخلفية اذا تحقق الشرط طبق العملية على جميع الخلايا